testsuite/tests/patsyn/should_compile/T21531.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

{-# LANGUAGE PatternSynonyms #-}

module T21531 where

import Foreign.C( CChar )

newtype LGate = LGate CChar

{-# INLINE And #-}
pattern And :: LGate
pattern And <- LGate 0b00000000
  where
    And = LGate 0b00000000