Merge branch 'master' into atomics
[ghc.git] / testsuite / tests / simplCore / should_compile / strict-float.hs
1
2 -- Test from Kirsten Chevalier
3 -- Tests the "strict bindings getting floated to top" bug in the floater
4
5 module B (bernoulli) where
6
7 powers = [2..] : powers
8
9 neg_powers = map (zip (iterate id True)) powers
10
11 bernoulli = head powers
12 where powers = head neg_powers
13