diff --git a/fields-json.cabal b/fields-json.cabal
--- a/fields-json.cabal
+++ b/fields-json.cabal
@@ -1,5 +1,5 @@
 Name:                fields-json
-Version:             0.2.1
+Version:             0.2.1.1
 Synopsis: Abusing monadic syntax JSON objects generation.            
 
 Description: 
diff --git a/src/Text/JSON/FromJSValue.hs b/src/Text/JSON/FromJSValue.hs
--- a/src/Text/JSON/FromJSValue.hs
+++ b/src/Text/JSON/FromJSValue.hs
@@ -29,7 +29,6 @@
 import Control.Monad.Reader
 import qualified Data.ByteString.UTF8 as BS
 import qualified Data.ByteString.Base64 as BASE64
-import Data.Ratio
 import Control.Monad.Identity
 import Data.Maybe
 
@@ -56,7 +55,7 @@
     fromJSValue s = fmap BS.fromString (fromJSValue s)
 
 instance FromJSValue Integer where
-    fromJSValue (JSRational _ r) = Just $ numerator r
+    fromJSValue (JSRational _ r) = Just $ round r
     fromJSValue _ = Nothing
 
 instance FromJSValue Int where