FIX BUILD: Haddock 1.x fails to parse (Prelude..)

diff --git a/Control/Category.hs b/Control/Category.hs
index 13fba06..c85ebd5 100644 (file)
--- a/Control/Category.hs
+++ b/Control/Category.hs
@@ -38,7 +38,10 @@ class Category cat where
 
 instance Category (->) where
        id = Prelude.id
+#ifndef __HADDOCK__
+-- Haddock 1.x cannot parse this:
        (.) = (Prelude..)
+#endif
 
 -- | Right-to-left composition
 (<<<) :: Category cat => cat b c -> cat a b -> cat a c