Fix formatting
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Wed, 8 Jun 2016 00:20:03 +0000 (01:20 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Wed, 8 Jun 2016 00:20:03 +0000 (01:20 +0100)
src/Rules/Library.hs

index dd144d1..a45ef51 100644 (file)
@@ -62,17 +62,15 @@ buildPackageGhciLibrary context@Context {..} = priority 2 $ do
     let path = buildPath context
         libPrefix = path -/- "HS" ++ pkgNameString package
 
-    -- TODO: simplify handling of AutoApply.cmm
     matchVersionedFilePath libPrefix (waySuffix way <.> "o") ?> \obj -> do
-            cSrcs <- cSources context
-            hSrcs <- hSources context
-
-            eObjs <- extraObjects context
-            let cObjs = map (objFile context) cSrcs
-                hObjs = [ path -/- src <.> osuf way | src <- hSrcs ]
-                objs  = cObjs ++ hObjs ++ eObjs
-            need objs
-            build $ Target context Ld objs [obj]
+        cSrcs <- cSources context
+        hSrcs <- hSources context
+        eObjs <- extraObjects context
+        let cObjs = map (objFile context) cSrcs
+            hObjs = [ path -/- src <.> osuf way | src <- hSrcs ]
+            objs  = cObjs ++ hObjs ++ eObjs
+        need objs
+        build $ Target context Ld objs [obj]
 
 -- TODO: Get rid of code duplication and simplify. See also src2dep.
 -- | Given a 'Context' and a 'FilePath' to a source file, compute the 'FilePath'