Fix warnings

haskell · Oct 2, 2011 · 316b494 · 316b494
1 parent 4e2b24b
commit 316b494
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 5 deletions.
diff --git a/Statistics/Distribution/ChiSquared.hs b/Statistics/Distribution/ChiSquared.hs
@@ -18,8 +18,7 @@ module Statistics.Distribution.ChiSquared (
         , chiSquaredNDF
         ) where
 
-import Data.Typeable (Typeable)
-import Statistics.Constants (m_huge)
+import Data.Typeable        (Typeable)
 import Statistics.Math      (incompleteGamma,invIncompleteGamma,logGamma)
 
 import qualified Statistics.Distribution as D
@@ -84,7 +83,7 @@ density chi x
 {-# INLINE density #-}
 
 quantile :: ChiSquared -> Double -> Double
-quantile d@(ChiSquared ndf) p
+quantile (ChiSquared ndf) p
   | p == 0         = 0
   | p == 1         = 1/0
   | p > 0 && p < 1 = 2 * invIncompleteGamma (fromIntegral ndf / 2) p

diff --git a/Statistics/Distribution/Uniform.hs b/Statistics/Distribution/Uniform.hs
@@ -17,8 +17,6 @@ module Statistics.Distribution.Uniform (
 import Data.Typeable (Typeable)
 import qualified Statistics.Distribution as D
 
-import Control.Exception
-import Prelude hiding (catch)
 
 -- | Uniform distribution
 data UniformDistribution = UniformDistribution {-# UNPACK #-} !Double {-# UNPACK #-} !Double