testsuite/tests/patsyn/should_fail/UnliftedPSBind.hs


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


-- This is testing the printing of the builder really.
{-# LANGUAGE MagicHash, PatternSynonyms #-}
{-# OPTIONS_GHC -Werror -Wunbanged-strict-patterns #-}
module UnliftedPSBind where

import GHC.Exts

pattern P x = I# x

x = ()
  where P x = P 4#