X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMisc.hs;h=24fd5b756febd19bd512cf9a7b06682f2aba9f7d;hb=d86da7a71b498a24b544ded9ad7191707fd0a123;hp=4d8f3e7f10f81f2abdd7e0fd9379e9192bc4b897;hpb=92d61dc6ab8dc3e8c9e5b4c869134f1e8079013f;p=numerical-analysis.git

diff --git a/src/Misc.hs b/src/Misc.hs
index 4d8f3e7..24fd5b7 100644
--- a/src/Misc.hs
+++ b/src/Misc.hs
@@ -1,7 +1,13 @@
+{-# LANGUAGE RebindableSyntax #-}
+
 -- | Stuff for which I'm too lazy to come up with a decent name.
 module Misc
 where
 
+import NumericPrelude
+import Algebra.Field
+import Algebra.ToInteger
+
 -- | Partition the interval [@a@, @b@] into @n@ subintervals, which we
 --   then return as a list of pairs.
 --
@@ -13,7 +19,7 @@ where
 --   >>> partition 4 (-1) 1
 --   [(-1.0,-0.5),(-0.5,0.0),(0.0,0.5),(0.5,1.0)]
 --
-partition :: (RealFrac a, Integral b)
+partition :: (Algebra.Field.C a, Algebra.ToInteger.C b, Enum b)
           => b -- ^ The number of subintervals to use, @n@
           -> a -- ^ The \"left\" endpoint of the interval, @a@
           -> a -- ^ The \"right\" endpoint of the interval, @b@
@@ -28,4 +34,4 @@ partition n a b
                  let xi = a + k'*h,
                  let xj = a + (k'+1)*h ]
     where
-      h = fromRational $ (toRational (b-a))/(toRational n)
+      h = (b-a)/(fromIntegral $ toInteger n)