HAppS-Data 0.9.2 → 0.9.2.1

raw patch · 2 files changed

+4/−2 lines, 2 files

Files

• HAppS-Data.cabal +1/−1
• src/HAppS/Data/SerializeTH.hs +3/−1

@@ -1,5 +1,5 @@ Name:               HAppS-Data-Version:            0.9.2+Version:            0.9.2.1 License:            BSD3 Copyright:          2007 HAppS LLC Author:             HAppS LLC

@@ -1,4 +1,4 @@-{-# LANGUAGE TemplateHaskell #-}+{-# LANGUAGE TemplateHaskell, CPP #-} module HAppS.Data.SerializeTH     ( deriveSerialize     , deriveSerializeFor@@ -13,6 +13,7 @@ data Class = Tagged [(Name, Int)] Cxt [Name]  deriveSerialize :: Name -> Q [Dec]+#ifndef __HADDOCK__ deriveSerialize name     = do c <- parseInfo name          case c of@@ -48,6 +49,7 @@                         = doE $ [ bindS (varP arg) [| safeGet |] | arg <- args ] ++                                 [ noBindS [| return $(foldl appE (conE conName) (map varE args)) |] ]                 in funD 'getCopy [clause [] (normalB getCopyBody) []]+#endif  deriveSerializeFor :: [Name] -> Q [Dec] deriveSerializeFor names