Commit e34cc0dd authored by Valentin Reis's avatar Valentin Reis
Browse files

Style

parent 3a9546ae
...@@ -29,4 +29,4 @@ fix 1 all nve ...@@ -29,4 +29,4 @@ fix 1 all nve
thermo 100 thermo 100
run 100 run 300000
...@@ -29,17 +29,17 @@ data StackArgs = StackArgs ...@@ -29,17 +29,17 @@ data StackArgs = StackArgs
, shareDir :: ShareDir , shareDir :: ShareDir
, manifestName :: ManifestName , manifestName :: ManifestName
, preludeCommand :: PreludeCommand , preludeCommand :: PreludeCommand
, daemon :: ProcessBehavior , daemon
, cmdrun :: ProcessBehavior , cmdrun
, cmdlisten :: ProcessBehavior , cmdlisten
, cmdlistenprogress :: ProcessBehavior , cmdlistenprogress
, cmdlistenperformance :: ProcessBehavior , cmdlistenperformance
, cmdlistenpower :: ProcessBehavior , cmdlistenpower :: ProcessBehavior
, hwThreadCount :: HwThreadCount , hwThreadCount :: HwThreadCount
} deriving (Show) } deriving (Show)
{-data OutputFiles = OutputFiles FilePath FilePath-} {-data OutputFiles = OutputFiles FilePath FilePath-}
data Verbosity = Normal | Verbose deriving (Show,Read,Eq) data Verbosity = Normal | Verbose deriving (Show, Read, Eq)
newtype HwThreadCount = HwThreadCount Int deriving (Show, Read, Eq) newtype HwThreadCount = HwThreadCount Int deriving (Show, Read, Eq)
newtype AppArg = AppArg Text deriving (IsString, Show, Read) newtype AppArg = AppArg Text deriving (IsString, Show, Read)
newtype WorkingDirectory = WorkingDirectory FilePath deriving (IsString, Show) newtype WorkingDirectory = WorkingDirectory FilePath deriving (IsString, Show)
...@@ -176,7 +176,8 @@ parseExtendStackArgs sa = do ...@@ -176,7 +176,8 @@ parseExtendStackArgs sa = do
<> showDefault <> showDefault
<> value (cmdlistenpower sa) <> value (cmdlistenpower sa)
) )
hwThreadCount <- option auto hwThreadCount <- option
auto
( long "threadCount" ( long "threadCount"
<> metavar "THREADS" <> metavar "THREADS"
<> help "Number of threads to use when running the stack." <> help "Number of threads to use when running the stack."
......
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