X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=Data%2FFixed.hs;fp=Data%2FFixed.hs;h=bb76e01a3b4c89dc8ab9ffd0d7502f454b2e78e9;hb=23678400d8eb74b70a42f74cefb76d679369fe21;hp=d38bfac2f9081b575b778f66e8cf26eaf063f44b;hpb=7e9f8a1fd3b8290341605eb0530d0dd47c70479b;p=ghc-base.git

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