From 1de2f778183a8890c0aa8e1f0486002f504649b5 Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Sun, 17 Dec 2017 00:44:06 +0300
Subject: Add DSV support

---
 Example.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Example.hs')

diff --git a/Example.hs b/Example.hs
index 9fb9e0b..5fc19ee 100644
--- a/Example.hs
+++ b/Example.hs
@@ -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]
-- 
cgit v1.2.3