X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FFixed.hs;h=bb76e01a3b4c89dc8ab9ffd0d7502f454b2e78e9;hb=d505d74452a79d349876bb31bf0a7003f3f203a0;hp=d38bfac2f9081b575b778f66e8cf26eaf063f44b;hpb=76ac102104dcacddc44cd6f1828feff99f5ae72f;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