Revision 5b4ed56e src/Ganeti/THH.hs

b/src/Ganeti/THH.hs
1159 1159 
  let objvar = varNameE "o"
1160 1160 
      objfield = stringE name
1161 1161 
      loadexp = [| $(varE 'maybeFromObj) $objvar $objfield |]
1162 
  bexp <- loadFn field loadexp objvar
1162 
      field' = field {fieldRead=fmap (appE (varE 'makeReadOptional))
1163 
                                  $ fieldRead field}
1164 
  bexp <- loadFn field' loadexp objvar
1163 1165 
  return (fvar, BindS (VarP fvar) bexp)
1164 1166 

  		





  1165
  1167
  
    
-- | Builds a simple declaration of type @n_x = fromMaybe f_x p_x@.


  		












Also available in:
  Unified diff