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