urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-20 17:32:11 +03:00
Code Issues Packages Projects Releases Wiki Activity

Minor

Browse Source
This commit is contained in:
Benjamin Summers 2019-08-14 15:35:36 -07:00
parent 1eda9d3401
commit e896447bf8
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkg/king/app/CLI.hs
View File

@ -20,7 +20,7 @@ data Opts = Opts
, oVerbose :: Bool
, oAmesPort :: Maybe Word16
, oProf :: Bool
, oCollectFx :: Maybe FilePath
, oCollectFx :: Bool
}
deriving (Show)
@ -129,10 +129,8 @@ opts = do
oDryRun <- switch (short 'N' <> help "Dry run -- Don't persist")
oProf <- switch (short 'p' <> help "Enable profiling")
oCollectFx <- option auto $ metavar "FXDIR"
<> long "collect-fx"
<> help "Write effects to disk for debugging"
<> value Nothing
oCollectFx <- switch $ long "collect-fx"
<> help "Write effects to disk for debugging"
pure (Opts{..})