From d7239b31954abe0ea67358fe4932f4db8bde5153 Mon Sep 17 00:00:00 2001 From: defanor Date: Sun, 3 Dec 2017 09:00:55 +0300 Subject: Add argument name modifiers --- Example.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'Example.hs') diff --git a/Example.hs b/Example.hs index 0319bcd..6454fc7 100644 --- a/Example.hs +++ b/Example.hs @@ -6,7 +6,9 @@ import GHC.Generics import Text.Megaparsec import Coalpit -data RecTest = RecTest { a :: Maybe Int, b :: Maybe Double, c :: Maybe Int } +data RecTest = RecTest { a :: Maybe Int + , b :: Maybe Double + , c :: Maybe Int } deriving (Generic, Show) instance ArgParser RecTest @@ -29,7 +31,7 @@ instance ToArgs Wrap main :: IO () main = do let val = Wrap (Just $ Qux Nothing (Just 1) (RecTest Nothing (Just 2.3) Nothing) Nothing) (Just 1) - a = args val + a = args defMod val print val putStrLn a - print $ parse (argParser :: Parser Wrap) "test" a + print $ parse (argParser defMod :: Parser Wrap) "test" a -- cgit v1.2.3