diff options
author | defanor <defanor@uberspace.net> | 2017-12-20 00:22:25 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2017-12-20 00:22:25 +0300 |
commit | e7489043d8bf2a406a910adcb93280e83d6d2faa (patch) | |
tree | b080cab07394cc02ffd3ebbcd815813e5dc2de69 /Example.hs | |
parent | 62aa7bb8ba54c2a0f480e122c46d967f2102dac5 (diff) |
Prepare for IO
DSV functions operate on individual lines now, unit type gets
printed/parsed as nothing (handier for argument parsing to set '()'
when there's none, and that's what it should be anyway).
Diffstat (limited to 'Example.hs')
-rw-r--r-- | Example.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -34,7 +34,7 @@ data Test = Test { foo :: [Int], bar :: Maybe String } help :: IO () help = do - mapM_ (\(o, x, y) -> print o >> putStr x >> putStrLn y) $ + mapM_ (\(o, x, y) -> print o >> putStrLn x >> putStrLn y) $ [ let opts = defOpt { alwaysUseSelName = ausn , omitNamedOptions = ono } in ( (ausn, ono) |