summaryrefslogtreecommitdiff
path: root/testsuite/tests/parser/should_fail/T13260.hs
blob: b0e1f97529d465dc4cc144ac7ad74ed855b59422 (plain)
1
2
3
4
5
6
7
{-# LANGUAGE MagicHash #-}

module T13260 where

  g y = case y of
    "a"# -> True
    _    -> False