Commit a4c271fa authored by simonpj's avatar simonpj
Browse files

Update to track new scoped-tyvar story

parent b65564b4
......@@ -26,7 +26,7 @@ main = do
float_tests = run_tests float_numbers
run_tests nums =
map ($nums)
map ($ nums)
[ denorm
, pos_inf
, neg_inf
......@@ -177,12 +177,12 @@ doubleOrFloat ls
-- (caller deals with byte ordering.)
mkDouble :: [Word8] -> Double
mkDouble ls =
runST ( do
runST (( do
arr <- newArray_ (0,7)
sequence (zipWith (writeArray arr) [(0::Int)..] (take 8 ls))
arr' <- castSTUArray arr
readArray arr' 0
)
) :: ST s Double )
showAndPerform :: (Show a, Show b)
=> (a -> b)
......@@ -192,3 +192,4 @@ showAndPerform :: (Show a, Show b)
showAndPerform fun name_fun val =
name_fun ++ ' ':show val ++ " = " ++ show (fun val)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment