suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed a warning about the type of 0.5 defaulting to Double

Browse Source
This commit is contained in:
Neil Brown 2007-12-12 13:56:33 +00:00
parent 4a83bd8b41
commit e34ebc67ea
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
transformations/ArrayUsageCheck.hs
View File

@ -152,7 +152,7 @@ solveConstraints p ineq
-- This is floor (x/y + 1/2). Probably a way to do it without reverting to float arithmetic: -- This is floor (x/y + 1/2). Probably a way to do it without reverting to float arithmetic:
floordivplushalf :: Integer -> Integer -> Integer floordivplushalf :: Integer -> Integer -> Integer
floordivplushalf x y = floor ((fromInteger x / fromInteger y) + 0.5) floordivplushalf x y = floor ((fromInteger x / fromInteger y) + (0.5 :: Double))
changeAllButOneDifferent :: (IArray a e, IArray a e', Ix i) => (i,e') -> (e -> e') -> a i e -> a i e' changeAllButOneDifferent :: (IArray a e, IArray a e', Ix i) => (i,e') -> (e -> e') -> a i e -> a i e'
changeAllButOneDifferent (specialI,specialE) f = arrayMapWithIndex f' changeAllButOneDifferent (specialI,specialE) f = arrayMapWithIndex f'