Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/LowB/PrimIndex.hs
module NHC.PackedString(index) where import DPackedString(PackedString) import Prelude hiding(Ix(range,index,inRange)) indexPS primitive 2 :: PackedString -> Int -> Char index x y = indexPS x y
