path: root/testsuite/tests/linear/should_fail/LinearPatternGuardWildcard.hs

{-# LANGUAGE LinearTypes #-}
module LinearPatternGuardWildcard where

-- See #18439

unsafeConsume :: a %1 -> ()
unsafeConsume x | _ <- x = ()