@@ -66,7 +66,7 @@ mapAccumL_resize :: IO ()
6666mapAccumL_resize = do
6767 let f a _ = (a, '\65536')
6868 count = 5
69− val = T.mapAccumL f 0 (T.replicate count "a")
69+ val = T.mapAccumL f (0::Int) (T.replicate count "a")
7070 assertEqual "mapAccumL should correctly fill buffers for two-word results"
7171 (0, T.replicate count "\65536") val
7272 assertEqual "mapAccumL should correctly size buffers for two-word results"