[commit: ghc] wip/T15548: Actually make it compile (4d8fd08)

[git at git.haskell.org]

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

On branch  : wip/T15548
Link       : http://ghc.haskell.org/trac/ghc/changeset/4d8fd08625c9af458f66e033fbc808c942d37633/ghc

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

commit 4d8fd08625c9af458f66e033fbc808c942d37633
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Mon Aug 20 23:22:16 2018 -0700

    Actually make it compile


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

4d8fd08625c9af458f66e033fbc808c942d37633
 compiler/ghci/ByteCodeItbls.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/ghci/ByteCodeItbls.hs b/compiler/ghci/ByteCodeItbls.hs
index 0aff25f..c17f213 100644
--- a/compiler/ghci/ByteCodeItbls.hs
+++ b/compiler/ghci/ByteCodeItbls.hs
@@ -73,6 +73,6 @@ make_constr_itbls hsc_env cons =
 
          tables_next_to_code = tablesNextToCode dflags
 
-     r <- iservCmd hsc_env (MkConInfoTable tablesNextToCode ptrs' nptrs_really
+     r <- iservCmd hsc_env (MkConInfoTable tables_next_to_code ptrs' nptrs_really
                               conNo (tagForCon dflags dcon) descr)
      return (getName dcon, ItblPtr r)