Style

share/modified.lj

@@ -29,4 +29,4 @@ fix		1 all nve
 
 thermo 100
 
-run		100
+run		300000

src/Argo/Args.hs

@@ -29,17 +29,17 @@ data StackArgs = StackArgs
   , shareDir               :: ShareDir
   , manifestName           :: ManifestName
   , preludeCommand         :: PreludeCommand
-  , daemon                 :: ProcessBehavior
-  , cmdrun                 :: ProcessBehavior
-  , cmdlisten              :: ProcessBehavior
-  , cmdlistenprogress      :: ProcessBehavior
-  , cmdlistenperformance   :: ProcessBehavior
+  , daemon
+  , cmdrun
+  , cmdlisten
+  , cmdlistenprogress
+  , cmdlistenperformance
   , cmdlistenpower         :: ProcessBehavior
   , hwThreadCount          :: HwThreadCount
   } deriving (Show)
 
 {-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 AppArg = AppArg Text deriving (IsString, Show, Read)
 newtype WorkingDirectory = WorkingDirectory FilePath deriving (IsString, Show)
@@ -176,7 +176,8 @@ parseExtendStackArgs sa = do
     <> showDefault
     <> value (cmdlistenpower sa)
     )
-  hwThreadCount <- option auto
+  hwThreadCount <- option
+    auto
     (  long "threadCount"
     <> metavar "THREADS"
     <> help "Number of threads to use when running the stack."