1 files 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: