Synnefo » snf-ganeti

fieldVariable f =

  case (fieldConstr f) of

    Just name -> ensureLower name

actualFieldType :: Field -> Q Type

actualFieldType f | fieldIsContainer f = [t| Container $t |]

-- | Transform an underscore_name into a CamelCase one.

camelCase :: String -> String

camelCase = concatMap (ensureUpper . drop 1) .

-- | Computes the name of a given constructor.

constructorName :: Con -> Q Name

                -> Q Clause  -- ^ Resulting clause

saveConstructor sname fields = do

  let cname = mkName sname

  let pat = conP cname (map varP fnames)

  let felems = map (uncurry saveObjectField) (zip fnames fields)

      -- now build the OP_ID serialisation

              -> String -> [Field] -> Q [Dec]

genSaveObject save_fn sname fields = do

  let name = mkName sname

  let pat = conP name (map varP fnames)

  let tdname = mkName ("toDict" ++ sname)

  tdsigt <- [t| $(conT name) -> [(String, JSON.JSValue)] |]

loadObjectField :: Field -> Q (Name, Stmt)

loadObjectField field = do

  let name = fieldVariable field

  -- these are used in all patterns below

  let objvar = varNameE "o"

      objfield = stringE (fieldName field)

loadPParamField field = do

  checkNonOptDef field

  let name = fieldName field

  -- these are used in all patterns below

  let objvar = varNameE "o"

      objfield = stringE name