path: root/libraries/ghc-compact/tests/compact_pinned.hs

import Control.Exception
import qualified Data.ByteString.Char8 as B
import GHC.Compact

main = compact (B.pack ['a'..'c'])