diff options
Diffstat (limited to 'libraries/ghci/GHCi/TH.hs')
-rw-r--r-- | libraries/ghci/GHCi/TH.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libraries/ghci/GHCi/TH.hs b/libraries/ghci/GHCi/TH.hs index 56e38c0244..f2325db1e1 100644 --- a/libraries/ghci/GHCi/TH.hs +++ b/libraries/ghci/GHCi/TH.hs @@ -209,6 +209,8 @@ instance TH.Quasi GHCiQ where return ((), s { qsMap = M.insert (typeOf k) (toDyn k) (qsMap s) }) qIsExtEnabled x = ghcCmd (IsExtEnabled x) qExtsEnabled = ghcCmd ExtsEnabled + qPutDoc l s = ghcCmd (PutDoc l s) + qGetDoc l = ghcCmd (GetDoc l) -- | The implementation of the 'StartTH' message: create -- a new IORef QState, and return a RemoteRef to it. |