Follow GHC.Bool/GHC.Types merge

[ghc-base.git] / Data / Fixed.hs

diff --git a/Data/Fixed.hs b/Data/Fixed.hs
index d38bfac..bb76e01 100644 (file)
--- 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