ghc-exactprint-0.6.4: tests/examples/ghc90/LinearGuards.hs
{-# LANGUAGE LinearTypes #-}
module LinearGuards where
f :: Bool -> a %1 -> a
f b a | b = a
| True = a
{-# LANGUAGE LinearTypes #-}
module LinearGuards where
f :: Bool -> a %1 -> a
f b a | b = a
| True = a