[Git][ghc/ghc][wip/T22010] Fix type errors in Eval.hs

[Jaro Reinders (@Noughtmare)]

Jaro Reinders pushed to branch wip/T22010 at Glasgow Haskell Compiler / GHC


Commits:
88dc0eac by Jaro Reinders at 2023-06-22T14:48:04+02:00
Fix type errors in Eval.hs

- - - - -


1 changed file:

- compiler/GHC/Runtime/Eval.hs


Changes:

=====================================
compiler/GHC/Runtime/Eval.hs
=====================================
@@ -333,7 +333,7 @@ handleRunStatus step expr bindings final_ids status history
        let dflags = hsc_dflags hsc_env
        let hmi = expectJust "handleRunStatus" $
                    lookupHptDirectly (hsc_HPT hsc_env)
-                                     (mkUniqueGrimily mod_uniq)
+                                     (mkUniqueGrimily (fromIntegral mod_uniq))
            modl = mi_module (hm_iface hmi)
            breaks = getModBreaks hmi
 
@@ -366,7 +366,7 @@ handleRunStatus step expr bindings final_ids status history
          apStack_fhv <- liftIO $ mkFinalizedHValue interp apStack_ref
          let hmi = expectJust "handleRunStatus" $
                      lookupHptDirectly (hsc_HPT hsc_env)
-                                       (mkUniqueGrimily mod_uniq)
+                                       (mkUniqueGrimily (fromIntegral mod_uniq))
              modl = mi_module (hm_iface hmi)
              bp | is_exception = Nothing
                 | otherwise = Just (BreakInfo modl ix)



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/88dc0eacc563af5f611855e22002f42e061894a1

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/88dc0eacc563af5f611855e22002f42e061894a1
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20230622/e5a13d78/attachment-0001.html>