path: root/testsuite/tests/simplCore/should_compile/T22662.hs

module T22662 where

import Data.Set

foo x = sequence_ [ f y | y <- x ]
  where f _ = return (fromList [0])