diff --git a/rank-product.cabal b/rank-product.cabal
--- a/rank-product.cabal
+++ b/rank-product.cabal
@@ -1,5 +1,5 @@
 name:                rank-product
-version:             0.1.0.4
+version:             0.1.0.5
 synopsis:            Find the rank product of a data set.
 description:         Find the rank product of a data set and get the p-value from a permutation test.
 homepage:            http://github.com/GregorySchwartz/rank-product#readme
diff --git a/src/Statistics/RankProduct.hs b/src/Statistics/RankProduct.hs
--- a/src/Statistics/RankProduct.hs
+++ b/src/Statistics/RankProduct.hs
@@ -18,6 +18,8 @@
 import Data.Function (on)
 import Data.List
 import Data.Random
+import Debug.Trace
+    
 
 -- Cabal
 
@@ -25,7 +27,7 @@
 import Statistics.Types
 
 -- | Rank transform a list.
-rankList :: (Ord a) => [a] -> [Int]
+rankList :: (Ord a) => [a] -> [Double]
 rankList = fmap fst
          . sortBy (compare `on` (fst . snd))
          . zip [1..]
@@ -37,7 +39,6 @@
 rankProduct xs =
     fmap ( RankProductEntity
          . (** (1 / (genericLength . unEntity . head $ xs)))
-         . fromIntegral
          . product
          )
         . transpose
@@ -53,7 +54,6 @@
     fmap
         ( RankProductEntity
         . (** (1 / (genericLength . unRankEntity . head $ xs)))
-        . fromIntegral
         . product
         . unRankEntity
         )
diff --git a/src/Statistics/Types.hs b/src/Statistics/Types.hs
--- a/src/Statistics/Types.hs
+++ b/src/Statistics/Types.hs
@@ -16,10 +16,10 @@
 -- Basic
 newtype Permutations      = Permutations Int
 newtype Entity            = Entity { unEntity :: [Double] } deriving (Show)
-newtype RankEntity        = RankEntity { unRankEntity :: [Int] }
+newtype RankEntity        = RankEntity { unRankEntity :: [Double] } deriving (Show)
 newtype RankProductEntity = RankProductEntity
     { unRankProductEntity :: Double
-    } deriving ((Show))
+    } deriving (Show)
 newtype PValue            = PValue { unPValue :: Double } deriving (Show)
 
 -- Advanced