diff --git a/HAppS-Data.cabal b/HAppS-Data.cabal
--- a/HAppS-Data.cabal
+++ b/HAppS-Data.cabal
@@ -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
diff --git a/src/HAppS/Data/SerializeTH.hs b/src/HAppS/Data/SerializeTH.hs
--- a/src/HAppS/Data/SerializeTH.hs
+++ b/src/HAppS/Data/SerializeTH.hs
@@ -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