[commit: ghc] wip/nfs-locking: Drops 'none' (a24a85f)
git at git.haskell.org
git at git.haskell.org
Fri Oct 27 00:09:34 UTC 2017
Repository : ssh://git@git.haskell.org/ghc
On branch : wip/nfs-locking
Link : http://ghc.haskell.org/trac/ghc/changeset/a24a85f283a387df60e9755398c1e2c563fe1cda/ghc
>---------------------------------------------------------------
commit a24a85f283a387df60e9755398c1e2c563fe1cda
Author: Moritz Angermann <moritz.angermann at gmail.com>
Date: Thu Jan 14 14:02:51 2016 +0800
Drops 'none'
shake has `-q` already, which is identical.
>---------------------------------------------------------------
a24a85f283a387df60e9755398c1e2c563fe1cda
src/Base.hs | 1 -
src/Oracles/Config/CmdLineFlag.hs | 3 +--
2 files changed, 1 insertion(+), 3 deletions(-)
diff --git a/src/Base.hs b/src/Base.hs
index be3ff1b..a46031c 100644
--- a/src/Base.hs
+++ b/src/Base.hs
@@ -152,7 +152,6 @@ renderAction what input output = case buildInfo of
, " input:" ++ input
, " => output:" ++ output ]
Dot -> "."
- None -> ""
-- | Render the successful build of a program
renderProgram :: String -> String -> String -> String
diff --git a/src/Oracles/Config/CmdLineFlag.hs b/src/Oracles/Config/CmdLineFlag.hs
index 687c541..47dbbbc 100644
--- a/src/Oracles/Config/CmdLineFlag.hs
+++ b/src/Oracles/Config/CmdLineFlag.hs
@@ -8,7 +8,7 @@ import Data.IORef
-- Flags
-data BuildInfoFlag = Normal | Brief | Pony | Dot | None deriving (Eq, Show)
+data BuildInfoFlag = Normal | Brief | Pony | Dot deriving (Eq, Show)
data CmdLineOptions = CmdLineOptions {
flagBuildInfo :: BuildInfoFlag
@@ -29,7 +29,6 @@ readBuildInfoFlag ms =
go "brief" = Just Brief
go "pony" = Just Pony
go "dot" = Just Dot
- go "none" = Just None
go _ = Nothing -- Left "no parse"
mkClosure :: BuildInfoFlag -> CmdLineOptions -> CmdLineOptions
mkClosure flag opts = opts { flagBuildInfo = flag }
More information about the ghc-commits
mailing list