diff options
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/ghci/RtClosureInspect.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/ghci/RtClosureInspect.hs b/compiler/ghci/RtClosureInspect.hs index 4025aa2d6f..a05830eb65 100644 --- a/compiler/ghci/RtClosureInspect.hs +++ b/compiler/ghci/RtClosureInspect.hs @@ -179,7 +179,7 @@ getClosureData a = ptrsList = Array 0 (elems - 1) elems ptrs nptrs_data = [W# (indexWordArray# nptrs i) | I# i <- [0.. fromIntegral (BCI.nptrs itbl)] ] - ASSERT(fromIntegral elems >= 0) return () + ASSERT(elems >= 0) return () ptrsList `seq` return (Closure tipe (Ptr iptr) itbl ptrsList nptrs_data) @@ -766,7 +766,7 @@ unlessM condM acc = condM >>= \c -> unless c acc -- Strict application of f at index i appArr :: Ix i => (e -> a) -> Array i e -> Int -> a -appArr f (Array _ _ _ ptrs#) (I# i#) +appArr f a@(Array _ _ _ ptrs#) i@(I# i#) = ASSERT (i < length(elems a)) case indexArray# ptrs# i# of (# e #) -> f e |