separate docopts debug logging

simonmichael · Oct 21, 2016 · a5dca89 · a5dca89
1 parent a983142
commit a5dca89
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/QuickBench.hs b/src/QuickBench.hs
@@ -62,7 +62,6 @@ defaultFile :: FilePath
 defaultFile = "bench.sh"
 
 data Opts = Opts {
- docopts :: Arguments,
  file :: Maybe FilePath
  ,executables :: [String]
  ,iterations :: Int
@@ -91,7 +90,6 @@ getOpts = do
  precision' <- readint $ fromJust $ option "precision"
  let
  opts = Opts {
- docopts = dopts,
  file = option "file"
  ,executables = maybe [] (splitOn ",") $ option "with"
  ,iterations = iterations'
@@ -103,7 +101,8 @@ getOpts = do
  ,help = flag "help"
  ,clicmds = args
  }
- when (debug opts || "--debug" `elem` lateflags) $ err $ ppShow opts ++ "\n"
+ when (debug opts || "--debug" `elem` lateflags) $ do
+ err $ "docopts: " ++ ppShow dopts ++ "\n" ++ ppShow opts ++ "\n"
  when (help opts) $ putStrLn (usage docoptpatterns) >> exitSuccess
  -- try to report some errors docopts misses
  case (lateflags, args) of