module NHC.PackedString where

import DPackedString(PackedString)

unpackPS primitive 1 :: PackedString -> [Char]