diff options
author | defanor <defanor@uberspace.net> | 2017-12-17 00:44:06 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2017-12-17 00:44:06 +0300 |
commit | 1de2f778183a8890c0aa8e1f0486002f504649b5 (patch) | |
tree | e1dfd45825d4b2bdfbe186d66a00644bcc06edac /Example.hs | |
parent | 9a0b116cd7a78590cd46bb17bbd542d93de2acef (diff) |
Add DSV support
Diffstat (limited to 'Example.hs')
-rw-r--r-- | Example.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -34,11 +34,11 @@ data Test = Test { foo :: [Int], bar :: Maybe String } help :: IO () help = do - mapM_ (\(o, x, y) -> print o >> print x >> putStrLn y) $ + mapM_ (\(o, x, y) -> print o >> putStr x >> putStrLn y) $ [ let opts = defOpt { alwaysUseSelName = ausn , omitNamedOptions = ono } in ( (ausn, ono) - , toArgs opts (Test [] vals) + , showDSV opts [Test [1,2,3] vals] , argHelper opts [] (Proxy :: Proxy Test)) | ausn <- [True, False] , ono <- [True, False] |