Commit 12c44496 authored by Simon Marlow's avatar Simon Marlow

Implement ReifyConStrictness for -fexternal-interpreter (#12219)

Fixes
   T10697_decided_1.run  T10697_decided_1 [exit code non-0] (ext-interp)
   T10697_decided_2.run  T10697_decided_2 [exit code non-0] (ext-interp)
   T10697_decided_3.run  T10697_decided_3 [exit code non-0] (ext-interp)
parent bb84ee44
......@@ -1053,6 +1053,7 @@ handleTHMessage msg = case msg of
ReifyAnnotations lookup tyrep ->
wrapTHResult $ (map B.pack <$> getAnnotationsByTypeRep lookup tyrep)
ReifyModule m -> wrapTHResult $ TH.qReifyModule m
ReifyConStrictness nm -> wrapTHResult $ TH.qReifyConStrictness nm
AddDependentFile f -> wrapTHResult $ TH.qAddDependentFile f
AddTopDecls decs -> wrapTHResult $ TH.qAddTopDecls decs
IsExtEnabled ext -> wrapTHResult $ TH.qIsExtEnabled ext
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment