Add special handling for named Maybe values

Allow to omit named options.

1 files changed, 3 insertions, 3 deletions

diff --git a/Example.hs b/Example.hs
index 725f8cc..a9f50aa 100644
--- a/Example.hs
+++ b/Example.hs
@@ -6,7 +6,7 @@ import GHC.Generics
 import Text.Megaparsec
 import Coalpit
 
-data RecTest = RecTest { a :: Int, b :: Double }
+data RecTest = RecTest { a :: Maybe Int, b :: Maybe Double, c :: Maybe Int }
              deriving (Generic, Show)
 
 instance ArgParser RecTest
@@ -14,7 +14,7 @@ instance ToArgs RecTest
 
 data Foo = Bar Int
          | Baz Int
-         | Qux RecTest
+         | Qux (Maybe Int) (Maybe Int) RecTest (Maybe Double)
   deriving (Generic, Show)
 
 instance ToArgs Foo
@@ -22,7 +22,7 @@ instance ArgParser Foo
 
 main :: IO ()
 main = do
-  let val = Qux (RecTest 1 2.3)
+  let val = Qux Nothing (Just 1) (RecTest Nothing (Just 2.3) Nothing) Nothing
       a = args val
   print val
   putStrLn a