From 1d68da2eb258a1f426184989832208c75cac1f50 Mon Sep 17 00:00:00 2001 From: defanor Date: Sun, 24 Dec 2017 04:06:06 +0300 Subject: Update the example --- Coalpit.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Coalpit.hs b/Coalpit.hs index 6eb7f06..78be85e 100644 --- a/Coalpit.hs +++ b/Coalpit.hs @@ -33,8 +33,8 @@ main = do Right x -> do print (x :: Foo) print $ 'toArgs' 'defOpt' x - putStr $ 'showDSV' 'defOpt' [x] - print ('readDSV' 'defOpt' $ 'showDSV' 'defOpt' [x] :: [Either String Foo]) + putStrLn $ showDSV defOpt x + print ('readDSV' 'defOpt' $ 'showDSV' 'defOpt' x :: Either String Foo) @ Then, in a shell: -- cgit v1.2.3