Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PackedString/Read_PackedString.hs
module NHC.PackedString(Read(..)) where import DPackedString import PackString instance Read PackedString where readsPrec l s = [(packString x, y) | (x, y) <- readsPrec l s]
