Implement ReifyConStrictness for -fexternal-interpreter (#12219)
authorSimon Marlow <marlowsd@gmail.com>
Wed, 22 Jun 2016 12:46:27 +0000 (13:46 +0100)
committerSimon Marlow <marlowsd@gmail.com>
Fri, 24 Jun 2016 10:29:33 +0000 (11:29 +0100)
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)

compiler/typecheck/TcSplice.hs

index e0fa1cb..bb9cfb3 100644 (file)
@@ -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