Revision 5c03bcea htest/Test/Ganeti/THH.hs
b/htest/Test/Ganeti/THH.hs | ||
---|---|---|
46 | 46 |
-- | Type used to test optional field implementation. Equivalent to |
47 | 47 |
-- @data TestObj = TestObj { tobjA :: Maybe Int, tobjB :: Maybe Int |
48 | 48 |
-- }@. |
49 |
$(buildObject "TestObj" "tobj" $
|
|
49 |
$(buildObject "TestObj" "tobj" |
|
50 | 50 |
[ optionalField $ simpleField "a" [t| Int |] |
51 | 51 |
, optionalNullSerField $ simpleField "b" [t| Int |] |
52 | 52 |
]) |
Also available in: Unified diff