summaryrefslogtreecommitdiff
path: root/Example.hs
diff options
context:
space:
mode:
authordefanor <defanor@uberspace.net>2017-12-20 00:22:25 +0300
committerdefanor <defanor@uberspace.net>2017-12-20 00:22:25 +0300
commite7489043d8bf2a406a910adcb93280e83d6d2faa (patch)
treeb080cab07394cc02ffd3ebbcd815813e5dc2de69 /Example.hs
parent62aa7bb8ba54c2a0f480e122c46d967f2102dac5 (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.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Example.hs b/Example.hs
index 5fc19ee..a08730d 100644
--- a/Example.hs
+++ b/Example.hs
@@ -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)