Revision 6bd26f00 htools/Ganeti/THH.hs

b/htools/Ganeti/THH.hs
343 343 
               JSON.Ok s' -> $(varE (fromRawName name)) s'
344 344 
               JSON.Error e ->
345 345 
                   JSON.Error $ "Can't parse raw value for type " ++
346 
                           $(stringE name) ++ ": " ++ e
346 
                           $(stringE name) ++ ": " ++ e ++ " from " ++
347 
                           show $(varE s)
347 348 
           |]
348 349 
  return $ FunD (mkName "readJSON") [Clause [VarP s] (NormalB body) []]
349 350 

  		












Also available in:
  Unified diff