diff options
Diffstat (limited to 'libraries/ghci/GHCi/Message.hs')
-rw-r--r-- | libraries/ghci/GHCi/Message.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libraries/ghci/GHCi/Message.hs b/libraries/ghci/GHCi/Message.hs index 37db0627e1..81de2fbd21 100644 --- a/libraries/ghci/GHCi/Message.hs +++ b/libraries/ghci/GHCi/Message.hs @@ -30,6 +30,7 @@ import GHCi.TH.Binary () import GHCi.BreakArray import GHC.LanguageExtensions +import GHC.ForeignSrcLang import GHC.Fingerprint import Control.Concurrent import Control.Exception @@ -244,7 +245,7 @@ data THMessage a where AddDependentFile :: FilePath -> THMessage (THResult ()) AddModFinalizer :: RemoteRef (TH.Q ()) -> THMessage (THResult ()) AddTopDecls :: [TH.Dec] -> THMessage (THResult ()) - AddCStub :: String -> THMessage (THResult ()) + AddForeignFile :: ForeignSrcLang -> String -> THMessage (THResult ()) IsExtEnabled :: Extension -> THMessage (THResult Bool) ExtsEnabled :: THMessage (THResult [Extension]) @@ -281,7 +282,7 @@ getTHMessage = do 15 -> THMsg <$> EndRecover <$> get 16 -> return (THMsg RunTHDone) 17 -> THMsg <$> AddModFinalizer <$> get - _ -> THMsg <$> AddCStub <$> get + _ -> THMsg <$> (AddForeignFile <$> get <*> get) putTHMessage :: THMessage a -> Put putTHMessage m = case m of @@ -303,7 +304,7 @@ putTHMessage m = case m of EndRecover a -> putWord8 15 >> put a RunTHDone -> putWord8 16 AddModFinalizer a -> putWord8 17 >> put a - AddCStub a -> putWord8 18 >> put a + AddForeignFile lang a -> putWord8 18 >> put lang >> put a data EvalOpts = EvalOpts |