Make Brief the default setting of the --progress-info flag
[hadrian.git] / src / CommandLine.hs
index a069c0e..978a420 100644 (file)
@@ -5,7 +5,6 @@ module CommandLine (
     ) where
 
 import Data.Either
-import Data.Maybe
 import qualified Data.HashMap.Strict as Map
 import Data.List.Extra
 import Development.Shake hiding (Normal)
@@ -35,7 +34,7 @@ defaultCommandLineArgs = CommandLineArgs
     , installDestDir = Nothing
     , integerSimple  = False
     , progressColour = Auto
-    , progressInfo   = Normal
+    , progressInfo   = Brief
     , skipConfigure  = False
     , splitObjects   = False }
 
@@ -127,9 +126,7 @@ cmdFlavour :: Action (Maybe String)
 cmdFlavour = flavour <$> cmdLineArgs
 
 lookupFreeze1 :: Map.HashMap TypeRep Dynamic -> Bool
-lookupFreeze1 m = fromMaybe (freeze1 defaultCommandLineArgs) (freeze1 <$> maybeValue)
-  where
-    maybeValue = fromDynamic =<< Map.lookup (typeOf defaultCommandLineArgs) m
+lookupFreeze1 = freeze1 . lookupExtra defaultCommandLineArgs
 
 cmdInstallDestDir :: Action (Maybe String)
 cmdInstallDestDir = installDestDir <$> cmdLineArgs