path: root/testsuite/tests/parser/should_compile/proposal-229a.hs

{-# LANGUAGE BangPatterns #-}

module Proposal229a where

data T a b = a :! b

(!) :: x -> T a b -> (x, a, b)
~u ! !(!m :! !n) = (u, m, n)