Commit 3b204077 authored by Valentin Reis's avatar Valentin Reis

Fix warnings.

parent a47caa67
Pipeline #5778 passed with stage
in 1 minute and 32 seconds
......@@ -36,5 +36,5 @@ executable argonix
-fwarn-missing-signatures
-fwarn-name-shadowing
-fprint-potential-instances
-Wmissing-export-list
-Wmissing-export-lists
-fwarn-incomplete-patterns
......@@ -11,7 +11,7 @@ License : MIT
Maintainer : fre@freux.fr
-}
module Main where
module Main (main) where
import Data.Default
import Turtle hiding ( header
......@@ -40,20 +40,11 @@ verboseShell :: Bool -> Text -> Shell Line -> Shell ExitCode
verboseShell v c i = when v (printCommand c) >> shell c i
printInfo :: Text -> Shell ()
printCommand :: Text -> Shell ()
printError :: Text -> Shell ()
printWarning :: Text -> Shell ()
printSuccess :: Text -> Shell ()
printTest :: Text -> Shell ()
dieRed :: Text -> Shell ()
printInfo = printf ("Info: " % s % "\n")
printCommand = printf ("Running: " % s % "\n")
printWarning = colorShell Yellow . printf ("Warning: " % s % "\n")
printError = colorShell Red . printf ("Error: " % s % "\n")
printSuccess = colorShell Green . printf ("Success: " % s % "\n")
printTest = colorShell Green . printf ("RUNNING TEST: " % s % "\n")
dieRed strw =
colorShell Red (printf ("Failure: " % s) strw) >> exit (ExitFailure 1)
checkFsAttributes :: FilePath -> Shell ()
checkFsAttributes workingDirectory = do
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment