[commit: ghc] master: Implement ReifyConStrictness for -fexternal-interpreter (#12219) (12c4449)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/12c44496c9b55b82e0bd659be88f3082f6bfaf9c/ghc

>---------------------------------------------------------------

commit 12c44496c9b55b82e0bd659be88f3082f6bfaf9c
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Wed Jun 22 13:46:27 2016 +0100

    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)


>---------------------------------------------------------------

12c44496c9b55b82e0bd659be88f3082f6bfaf9c
 compiler/typecheck/TcSplice.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/typecheck/TcSplice.hs b/compiler/typecheck/TcSplice.hs
index e0fa1cb..bb9cfb3 100644
--- a/compiler/typecheck/TcSplice.hs
+++ b/compiler/typecheck/TcSplice.hs
@@ -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