summaryrefslogtreecommitdiff
path: root/tests/examples/ghc88/TH_recover_warns.hs
blob: c5027125fda64aa49419f9a50ca256bcc0a146bc (plain)
1
2
3
4
5
6
7
8
9
10
11
{-# LANGUAGE TemplateHaskell #-}
{-# OPTIONS_GHC -Wall #-}
module Bug where

import Language.Haskell.TH

-- Warnings should be preserved through recover
main :: IO ()
main = putStrLn $(recover (stringE "splice failed")
                          [| let x = "a" in let x = "b" in x |])