[commit: ghc] wip/nfs-locking: Clean up. (4364462)

git at git.haskell.org git at git.haskell.org
Fri Oct 27 00:01:16 UTC 2017


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

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

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

commit 436446265ec493014808d9b19dc1f0883bb3e9a8
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Tue Jul 28 02:24:04 2015 +0100

    Clean up.


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

436446265ec493014808d9b19dc1f0883bb3e9a8
 src/Oracles/PackageData.hs | 2 +-
 src/Rules/Actions.hs       | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Oracles/PackageData.hs b/src/Oracles/PackageData.hs
index 579312f..fd30cc3 100644
--- a/src/Oracles/PackageData.hs
+++ b/src/Oracles/PackageData.hs
@@ -90,6 +90,6 @@ packageDataOracle = do
         need [file]
         putOracle $ "Reading " ++ file ++ "..."
         liftIO $ readConfigFile file
-    addOracle $ \(PackageDataKey (file, key)) -> do
+    addOracle $ \(PackageDataKey (file, key)) ->
         Map.lookup key <$> pkgData (unifyPath file)
     return ()
diff --git a/src/Rules/Actions.hs b/src/Rules/Actions.hs
index d91cd84..2730c55 100644
--- a/src/Rules/Actions.hs
+++ b/src/Rules/Actions.hs
@@ -50,7 +50,7 @@ interestingInfo builder ss = case builder of
     Gcc _    -> prefixAndSuffix 0 4 ss
     GccM _   -> prefixAndSuffix 0 1 ss
     Ghc _    -> prefixAndSuffix 0 4 ss
-    --GhcM _   -> prefixAndSuffix 1 1 ss
+    GhcM _   -> prefixAndSuffix 1 1 ss
     GhcPkg _ -> prefixAndSuffix 3 0 ss
     GhcCabal -> prefixAndSuffix 3 0 ss
     _        -> ss



More information about the ghc-commits mailing list