Minor revision
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Sun, 20 Aug 2017 14:23:24 +0000 (15:23 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Sun, 20 Aug 2017 14:23:24 +0000 (15:23 +0100)
src/CommandLine.hs
src/Hadrian/Utilities.hs

index fbf3e07..cc6f944 100644 (file)
@@ -15,8 +15,8 @@ import System.Environment
 -- | All arguments that can be passed to Hadrian via the command line.
 data CommandLineArgs = CommandLineArgs
     { buildHaddock   :: Bool
-    , installDestDir :: Maybe String
     , flavour        :: Maybe String
+    , installDestDir :: Maybe String
     , integerSimple  :: Bool
     , progressColour :: UseColour
     , progressInfo   :: ProgressInfo
@@ -115,12 +115,12 @@ cmdLineArgs = userSetting defaultCommandLineArgs
 cmdBuildHaddock :: Action Bool
 cmdBuildHaddock = buildHaddock <$> cmdLineArgs
 
-cmdInstallDestDir :: Action (Maybe String)
-cmdInstallDestDir = installDestDir <$> cmdLineArgs
-
 cmdFlavour :: Action (Maybe String)
 cmdFlavour = flavour <$> cmdLineArgs
 
+cmdInstallDestDir :: Action (Maybe String)
+cmdInstallDestDir = installDestDir <$> cmdLineArgs
+
 cmdIntegerSimple :: Action Bool
 cmdIntegerSimple = integerSimple <$> cmdLineArgs
 
@@ -135,4 +135,3 @@ cmdSkipConfigure = skipConfigure <$> cmdLineArgs
 
 cmdSplitObjects :: Action Bool
 cmdSplitObjects = splitObjects <$> cmdLineArgs
-
index f1db28e..4051347 100644 (file)
@@ -177,7 +177,7 @@ copyFile source target = do
     let dir = takeDirectory target
     liftIO $ IO.createDirectoryIfMissing True dir
     putProgressInfo =<< renderAction "Copy file" source target
-    copyFileChanged source target
+    quietly $ copyFileChanged source target
 
 -- | Copy a file without tracking the source. Create the target directory if missing.
 copyFileUntracked :: FilePath -> FilePath -> Action ()