RnPatternSynonymFail.hs\should_fail\rename\tests\testsuite - delta/haskell.git - gitlab.haskell.org: ghc/ghc.git

index : delta/haskell.git

gitlab.haskell.org: ghc/ghc.git

summary refs log tree commit diff

path: root/testsuite/tests/rename/should_fail/RnPatternSynonymFail.hs

blob: fd3c06e02c879af9e40d2f20351bd8347110613f (plain)

{-# LANGUAGE TemplateHaskell #-}
module RnPatternSynonymFail where

import Language.Haskell.TH

$(pure [ PatSynD (mkName "None") (PrefixPatSyn []) ImplBidir (ConP 'Nothing [] [])])