From: Simon Marlow <simonmar@microsoft.com>
Date: Mon, 29 Oct 2007 13:19:21 +0000 (+0000)
Subject: FIX BUILD: Haddock 1.x fails to parse (Prelude..)
X-Git-Tag: 2008-05-28~121
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ee60f7f31db8897f2b078c964fe715813faee702;p=ghc-base.git

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

diff --git a/Control/Category.hs b/Control/Category.hs
index 13fba06..c85ebd5 100644
--- 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