diff --git a/hmpfr.cabal b/hmpfr.cabal
--- a/hmpfr.cabal
+++ b/hmpfr.cabal
@@ -1,5 +1,5 @@
 name:                hmpfr
-version:             0.4.0
+version:             0.4.0.1
 synopsis:            Haskell binding to the MPFR library
 description:
   Haskell binding to the MPFR library.
diff --git a/src/Data/Number/MPFR/Instances/Down.hs b/src/Data/Number/MPFR/Instances/Down.hs
--- a/src/Data/Number/MPFR/Instances/Down.hs
+++ b/src/Data/Number/MPFR/Instances/Down.hs
@@ -47,9 +47,11 @@
     negate d      = A.neg Down (getPrec d) d
     abs d         = A.absD Down (getPrec d) d
     signum        = fromInt Down minPrec . fromMaybe (-1) .sgn
--- #ifdef INTEGER_SIMPLE
     fromInteger i =
         fromIntegerA Down (max minPrec $ 1 + bitsInInteger i) i
+-- #ifdef INTEGER_SIMPLE
+--     fromInteger i =
+--         fromIntegerA Down (max minPrec $ 1 + bitsInInteger i) i
 -- #endif
 -- #ifdef INTEGER_GMP
 --     fromInteger (S# i) = fromInt Down minPrec (E.I# i)
diff --git a/src/Data/Number/MPFR/Instances/Near.hs b/src/Data/Number/MPFR/Instances/Near.hs
--- a/src/Data/Number/MPFR/Instances/Near.hs
+++ b/src/Data/Number/MPFR/Instances/Near.hs
@@ -45,9 +45,11 @@
     negate d      = A.neg Near (getPrec d) d
     abs d         = A.absD Near (getPrec d) d
     signum        = fromInt Near minPrec . fromMaybe (-1) . sgn
--- #ifdef INTEGER_SIMPLE
     fromInteger i =
         fromIntegerA Near (max minPrec $ 1 + bitsInInteger i) i
+-- #ifdef INTEGER_SIMPLE
+--     fromInteger i =
+--         fromIntegerA Near (max minPrec $ 1 + bitsInInteger i) i
 -- #endif
 -- #ifdef INTEGER_GMP
 --     fromInteger (S# i) = fromInt Near minPrec (E.I# i)
diff --git a/src/Data/Number/MPFR/Instances/Up.hs b/src/Data/Number/MPFR/Instances/Up.hs
--- a/src/Data/Number/MPFR/Instances/Up.hs
+++ b/src/Data/Number/MPFR/Instances/Up.hs
@@ -47,9 +47,11 @@
     negate d      = A.neg Up (getPrec d) d
     abs d         = A.absD Up (getPrec d) d
     signum        = fromInt Up minPrec . fromMaybe (-1) . sgn
--- #ifdef INTEGER_SIMPLE
     fromInteger i =
         fromIntegerA Up (max minPrec $ 1 + bitsInInteger i) i
+-- #ifdef INTEGER_SIMPLE
+--     fromInteger i =
+--         fromIntegerA Up (max minPrec $ 1 + bitsInInteger i) i
 -- #endif
 -- #ifdef INTEGER_GMP
 --     fromInteger (S# i) = fromInt Up minPrec (E.I# i)
diff --git a/src/Data/Number/MPFR/Instances/Zero.hs b/src/Data/Number/MPFR/Instances/Zero.hs
--- a/src/Data/Number/MPFR/Instances/Zero.hs
+++ b/src/Data/Number/MPFR/Instances/Zero.hs
@@ -46,9 +46,11 @@
     negate d      = A.neg Zero (getPrec d) d
     abs d         = A.absD Zero (getPrec d) d
     signum        = fromInt Zero minPrec . fromMaybe (-1) . sgn
--- #ifdef INTEGER_SIMPLE
     fromInteger i =
         fromIntegerA Zero (max minPrec $ 1 + bitsInInteger i) i
+-- #ifdef INTEGER_SIMPLE
+--     fromInteger i =
+--         fromIntegerA Zero (max minPrec $ 1 + bitsInInteger i) i
 -- #endif
 -- #ifdef INTEGER_GMP
 --     fromInteger (S# i) = fromInt Zero minPrec (E.I# i)