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

{-# LANGUAGE LinearTypes #-}

module LinearSeq where

bad :: a %1 -> ()
bad x = seq x ()