testsuite/tests/th/T15481.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE TemplateHaskell #-}
module Bug where

import Language.Haskell.TH

main :: IO ()
main = putStrLn $(recover (stringE "reifyFixity failed")
                          (do foo <- newName "foo"
                              _ <- reifyFixity foo
                              stringE "reifyFixity successful"))