From e7489043d8bf2a406a910adcb93280e83d6d2faa Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Wed, 20 Dec 2017 00:22:25 +0300
Subject: 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).
---
 Example.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Example.hs')

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)
-- 
cgit v1.2.3