[commit: ghc] wip/nfs-locking: Fix formatting (49c2df8)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/49c2df80afe3754b2c24fae8337d1e1f13e923c3/ghc

>---------------------------------------------------------------

commit 49c2df80afe3754b2c24fae8337d1e1f13e923c3
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Wed Jun 8 01:20:03 2016 +0100

    Fix formatting


>---------------------------------------------------------------

49c2df80afe3754b2c24fae8337d1e1f13e923c3
 src/Rules/Library.hs | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

diff --git a/src/Rules/Library.hs b/src/Rules/Library.hs
index dd144d1..a45ef51 100644
--- a/src/Rules/Library.hs
+++ b/src/Rules/Library.hs
@@ -62,17 +62,15 @@ buildPackageGhciLibrary context at 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'