From 23678400d8eb74b70a42f74cefb76d679369fe21 Mon Sep 17 00:00:00 2001
From: "Malcolm.Wallace@cs.york.ac.uk" <unknown>
Date: Fri, 9 Oct 2009 13:52:42 +0000
Subject: [PATCH] It seems that nhc98 needs defaulting in Data.Fixed.

---
 Data/Fixed.hs |    2 ++
 1 file changed, 2 insertions(+)

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
-- 
1.7.10.4