Revision b775af80 src/Ganeti/THH.hs
| b/src/Ganeti/THH.hs | ||
|---|---|---|
| 955 | 955 |
-- | Build an object declaration. |
| 956 | 956 |
buildObject :: String -> String -> [Field] -> Q [Dec] |
| 957 | 957 |
buildObject sname field_pfx fields = do |
| 958 |
when (any ((==) AndRestArguments . fieldIsOptional) |
|
| 959 |
. drop 1 $ reverse fields) |
|
| 960 |
$ fail "Objects may have only one AndRestArguments field,\ |
|
| 961 |
\ and it must be the last one." |
|
| 958 | 962 |
let name = mkName sname |
| 959 | 963 |
fields_d <- mapM (fieldTypeInfo field_pfx) fields |
| 960 | 964 |
let decl_d = RecC name fields_d |
Also available in: Unified diff