blob: c1dad776da178150362ce85740975ac031a509b6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# LANGUAGE TemplateHaskell, RebindableSyntax #-}
module Bug where
import Prelude ( Monad(..), Bool(..), print, ($) )
import Language.Haskell.TH.Syntax
$( do _stuff <- [| if True then 10 else 15 |]
return [] )
$$( do _stuff <- [|| if True then 10 else 15 ||]
return [] )
|