From: Malcolm.Wallace@cs.york.ac.uk <unknown>
Date: Fri, 9 Oct 2009 13:52:42 +0000 (+0000)
Subject: It seems that nhc98 needs defaulting in Data.Fixed.
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=23678400d8eb74b70a42f74cefb76d679369fe21;p=ghc-base.git

It seems that nhc98 needs defaulting in Data.Fixed.
---

diff --git a/Data/Fixed.hs b/Data/Fixed.hs
index d38bfac..bb76e01 100644
--- a/Data/Fixed.hs
+++ b/Data/Fixed.hs
@@ -40,7 +40,9 @@ import Data.Typeable
 import Data.Data
 #endif
 
+#ifndef __NHC__
 default () -- avoid any defaulting shenanigans
+#endif
 
 -- | generalisation of 'div' to any instance of Real
 div' :: (Real a,Integral b) => a -> a -> b