Commit 70bdc11d authored by Valentin Reis's avatar Valentin Reis

codequality tool application.

parent 6ee0a893
......@@ -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"]
......
{-# 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
......
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