codequality tool application.

shake.hs

@@ -12,17 +12,10 @@ import           Development.Shake.FilePath
 import           Control.Monad
 
 refactCommands =
-  [ "OrganizeExtensions Argo.Args"
-  , "OrganizeExtensions Argo.Utils"
-  , "OrganizeExtensions Argo.Types"
-  , "OrganizeImports Argo.Stack"
+  [ "OrganizeImports Argo.Stack"
   , "OrganizeImports Argo.Args"
   , "OrganizeImports Argo.Utils"
   , "OrganizeImports Argo.Types"
-  , "GenerateExports Argo.Stack"
-  , "GenerateExports Argo.Args"
-  , "GenerateExports Argo.Utils"
-  , "GenerateExports Argo.Types"
   ]
 
 main = shakeArgs shakeOptions $ do
@@ -47,7 +40,7 @@ main = shakeArgs shakeOptions $ do
 
   phony "brittany" brittany
 
-  phony "codequality" $ brittany >> htRefactAll
+  phony "codequality" $  htRefactAll >> brittany
 
   want ["README.md"]
 

src/Argo/Args.hs

 {-# language OverloadedStrings #-}
-{-# language ApplicativeDo #-}
+
+{-|
+Module      : Argo.Args
+Description : Argo stack library
+Copyright   : (c) Valentin Reis, 2018
+License     : MIT
+Maintainer  : fre@freux.fr
+-}
 
 module Argo.Args
   ( parseExtendStackArgs
@@ -12,13 +19,6 @@ import           Options.Applicative.Types
 import           Options.Applicative.Builder    ( option )
 import           Turtle                  hiding ( option )
 import           Prelude                 hiding ( FilePath )
-{-|
-Module      : Argo.Args
-Description : Argo stack library
-Copyright   : (c) Valentin Reis, 2018
-License     : MIT
-Maintainer  : fre@freux.fr
--}
 
 behavior :: ReadM ProcessBehavior
 behavior = read <$> readerAsk
@@ -27,24 +27,24 @@ behaviorOption = option behavior
 
 parseExtendStackArgs :: StackArgs -> Parser StackArgs
 parseExtendStackArgs sa =
-  StackArgs <$>
-  pverbosity
-  <*> papp
-  <*> pvars
-  <*> pargs
-  <*> pcontainerName
-  <*> pworkingDirectory
-  <*> pshareDir
-  <*> pmanifestName
-  <*> ppreludeCommand
-  <*> pdaemon
-  <*> pcmdrun
-  <*> pcmdlisten
-  <*> pcmdlistenprogress
-  <*> pcmdlistenperformance
-  <*> pcmdlistenpower
-  <*> phwThreadCount
-  <*> ppowercap
+  StackArgs
+    <$> pverbosity
+    <*> papp
+    <*> pvars
+    <*> pargs
+    <*> pcontainerName
+    <*> pworkingDirectory
+    <*> pshareDir
+    <*> pmanifestName
+    <*> ppreludeCommand
+    <*> pdaemon
+    <*> pcmdrun
+    <*> pcmdlisten
+    <*> pcmdlistenprogress
+    <*> pcmdlistenperformance
+    <*> pcmdlistenpower
+    <*> phwThreadCount
+    <*> ppowercap
  where
   pverbosity = flag
     Normal