[commit: dph] master: Default intermediate type to Double (a106918)

[Ben Lippmeier]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/dph

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/a10691853618dcff7b8538526497ec25ce455c84

>---------------------------------------------------------------

commit a10691853618dcff7b8538526497ec25ce455c84
Author: Ben Lippmeier <benl at ouroborus.net>
Date:   Tue May 10 18:29:17 2011 +1000

    Default intermediate type to Double

>---------------------------------------------------------------

 dph-common/Data/Array/Parallel/Prelude/Base/Int.hs |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/dph-common/Data/Array/Parallel/Prelude/Base/Int.hs b/dph-common/Data/Array/Parallel/Prelude/Base/Int.hs
index 2fee9a9..a49f796 100644
--- a/dph-common/Data/Array/Parallel/Prelude/Base/Int.hs
+++ b/dph-common/Data/Array/Parallel/Prelude/Base/Int.hs
@@ -22,7 +22,6 @@ module Data.Array.Parallel.Prelude.Base.Int (
 ) where
 
 import qualified Data.Array.Parallel as PArr
-
 import Data.Array.Parallel.Lifted.Combinators
 import Data.Array.Parallel.Lifted.Scalar
 import Data.Array.Parallel.Lifted.Closure
@@ -145,7 +144,7 @@ div = P.div
 mod = P.mod
 
 sqrt ::  Int -> Int
-sqrt n = P.floor (P.sqrt (P.fromIntegral n))
+sqrt n = P.floor (P.sqrt (P.fromIntegral n) :: P.Double)
 
 sqrtV :: Int :-> Int
 {-# INLINE sqrtV #-}