path: root/testsuite/tests/rebindable/T11216A.hs

{-# LANGUAGE RebindableSyntax #-}

module Bug where

data Maybe a = Just a | Nothing

foo :: [Maybe a] -> [a]
foo xs = [ x | Just x <- xs ]