summaryrefslogtreecommitdiff
path: root/Example.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Example.hs')
-rw-r--r--Example.hs21
1 files changed, 21 insertions, 0 deletions
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
+