diff options
Diffstat (limited to 'libraries/base/GHC/Ix.hs')
| -rw-r--r-- | libraries/base/GHC/Ix.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libraries/base/GHC/Ix.hs b/libraries/base/GHC/Ix.hs index b523fe2b4f..be02b568a2 100644 --- a/libraries/base/GHC/Ix.hs +++ b/libraries/base/GHC/Ix.hs @@ -271,15 +271,15 @@ instance Ix a => Ix (Solo a) where -- as derived {-# SPECIALISE instance Ix (Solo Int) #-} {-# INLINE range #-} - range (Solo l, Solo u) = - [ Solo i | i <- range (l,u) ] + range (MkSolo l, MkSolo u) = + [ MkSolo i | i <- range (l,u) ] {-# INLINE unsafeIndex #-} - unsafeIndex (Solo l, Solo u) (Solo i) = + unsafeIndex (MkSolo l, MkSolo u) (MkSolo i) = unsafeIndex (l,u) i {-# INLINE inRange #-} - inRange (Solo l, Solo u) (Solo i) = + inRange (MkSolo l, MkSolo u) (MkSolo i) = inRange (l, u) i -- Default method for index |