git.iko.soy/text
on master help sign in
Type defaulting: make GHC quieter
509c320Bryan O'Sullivan
tests/Tests/Regressions.hs+1−1
compare with master
unifiedsplit
@@ -66,7 +66,7 @@ mapAccumL_resize :: IO ()
66mapAccumL_resize = do
66mapAccumL_resize = do
67 let f a _ = (a, '\65536')
67 let f a _ = (a, '\65536')
68 count = 5
68 count = 5
69− val = T.mapAccumL f 0 (T.replicate count "a")
69+ val = T.mapAccumL f (0::Int) (T.replicate count "a")
70 assertEqual "mapAccumL should correctly fill buffers for two-word results"
70 assertEqual "mapAccumL should correctly fill buffers for two-word results"
71 (0, T.replicate count "\65536") val
71 (0, T.replicate count "\65536") val
72 assertEqual "mapAccumL should correctly size buffers for two-word results"
72 assertEqual "mapAccumL should correctly size buffers for two-word results"