From 6f2785c9d8bc38c13f5102c085c2fe87d21b8f8a Mon Sep 17 00:00:00 2001 From: defanor Date: Sun, 3 Dec 2017 14:24:28 +0300 Subject: Add tests --- Example.hs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) (limited to 'Example.hs') diff --git a/Example.hs b/Example.hs index 4df7ae9..1811fc4 100644 --- a/Example.hs +++ b/Example.hs @@ -36,3 +36,24 @@ main = do print val print a print $ parse (argParser defMod :: Parser Wrap) "test" a + + +data Record = Record { maybeInt :: Maybe Int + , maybeDouble :: Maybe Double + , str :: String + , listOfStrings :: [String] + , maybeListOfNumbers :: Maybe [Int] + , otherString :: String + } deriving (Generic, Eq, Show) +instance ArgParser Record +instance ToArgs Record + + +data NestedRecursiveRecord = + NestedRecursiveRecord { record1 :: Maybe Record + , recursiveRecord :: Maybe NestedRecursiveRecord + , record2 :: Maybe Record + } deriving (Generic, Eq, Show) +instance ArgParser NestedRecursiveRecord +instance ToArgs NestedRecursiveRecord + -- cgit v1.2.3