Template Haskell : getQ and putQ doesn't work

Functions getQ and putQ in the module Language.Haskell.TH.Syntax do not work.

Following code is an example of this problem. The variable x should be (Just B), but x is Nothing.

{-# LANGUAGE TemplateHaskell #-}
module X where
import Language.Haskell.TH
import Language.Haskell.TH.Syntax
do
  putQ (100 :: Int)
  x <- getQ :: Q (Maybe Int)

  -- It should print "Just 100" but "Nothing"
  runIO $ print x
  return []

As a result, I get following output on compile.

$ ghc -fforce-recomp X.hs
[1 of 1] Compiling X                ( X.hs, X.o )
Nothing

Trac metadata

Trac field	Value
Version	7.10.1
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	Template Haskell
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system
Architecture