blob: 2e2ed944f131fab707d9885056bf57dee4552265 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
-- Test from Kirsten Chevalier
-- Tests the "strict bindings getting floated to top" bug in the floater
{-# OPTIONS_GHC -Wno-x-partial #-}
module B (bernoulli) where
powers = [2..] : powers
neg_powers = map (zip (iterate id True)) powers
bernoulli = head powers
where powers = head neg_powers
|
