Update as per @DanielG comments

1 files changed, 28 insertions, 28 deletions

diff --git a/tests/GhcSession.hs b/tests/GhcSession.hs
index 437e927..11b35ff 100644
--- a/tests/GhcSession.hs
+++ b/tests/GhcSession.hs
@@ -106,45 +106,45 @@ compileModule ep opts = do
       defaultErrorHandler defaultFatalMessager defaultFlushOut $ do
 #endif
 
-        runGhc (Just libdir) $ do
+      runGhc (Just libdir) $ do
 
-          dflags0 <- getSessionDynFlags
-          let dflags1 = dflags0 {
-              ghcMode   = CompManager
-            , ghcLink   = LinkInMemory
-            , hscTarget = HscInterpreted
-            , optLevel  = 0
-            }
+      dflags0 <- getSessionDynFlags
+      let dflags1 = dflags0 {
+          ghcMode   = CompManager
+        , ghcLink   = LinkInMemory
+        , hscTarget = HscInterpreted
+        , optLevel  = 0
+        }
 
-          (dflags2, _, _) <- parseDynamicFlags dflags1 (map noLoc opts)
-          _ <- setSessionDynFlags dflags2
+      (dflags2, _, _) <- parseDynamicFlags dflags1 (map noLoc opts)
+      _ <- setSessionDynFlags dflags2
 
-          ts <- mapM (\t -> guessTarget t Nothing) $
-               case ep of
-                 ChLibEntrypoint ms ms' -> map unChModuleName $ ms ++ ms'
-                 ChExeEntrypoint m  ms  -> [m] ++ map unChModuleName ms
-                 ChSetupEntrypoint      -> ["Setup.hs"]
-          let ts' = map (\t -> t { targetAllowObjCode = False }) ts
+      ts <- mapM (\t -> guessTarget t Nothing) $
+           case ep of
+             ChLibEntrypoint ms ms' -> map unChModuleName $ ms ++ ms'
+             ChExeEntrypoint m  ms  -> [m] ++ map unChModuleName ms
+             ChSetupEntrypoint      -> ["Setup.hs"]
+      let ts' = map (\t -> t { targetAllowObjCode = False }) ts
 
-          setTargets ts'
-          _ <- load LoadAllTargets
+      setTargets ts'
+      _ <- load LoadAllTargets
 
 #if __GLASGOW_HASKELL__ >= 706
-          setContext $ case ep of
-            ChLibEntrypoint ms ms' ->
-                map (IIModule . mkModuleName . unChModuleName) $ ms ++ ms'
-            ChExeEntrypoint _  ms  ->
-                map (IIModule . mkModuleName . unChModuleName) $ ChModuleName "Main" : ms
-            ChSetupEntrypoint      ->
-                map (IIModule . mkModuleName) ["Main"]
+      setContext $ case ep of
+        ChLibEntrypoint ms ms' ->
+            map (IIModule . mkModuleName . unChModuleName) $ ms ++ ms'
+        ChExeEntrypoint _  ms  ->
+            map (IIModule . mkModuleName . unChModuleName) $ ChModuleName "Main" : ms
+        ChSetupEntrypoint      ->
+            map (IIModule . mkModuleName) ["Main"]
 #endif
 
 #if __GLASGOW_HASKELL__ <= 706
-          GhcMonad.liftIO $ print ExitSuccess
+      GhcMonad.liftIO $ print ExitSuccess
 #else
-          liftIO $ print ExitSuccess
+      liftIO $ print ExitSuccess
 #endif
-          return True
+      return True
 
 unChModuleName :: ChModuleName -> String
 unChModuleName (ChModuleName  mn) = mn