testsuite/tests/simplCore/should_compile/strict-float.hs


1
2
3
4
5
6
7
8
9
10
11
12
13


-- Test from Kirsten Chevalier
-- Tests the "strict bindings getting floated to top" bug in the floater

module B (bernoulli) where

powers = [2..] : powers 

neg_powers = map (zip (iterate id True)) powers

bernoulli = head powers 
  where powers = head neg_powers