ghc/tests/lib/should_run/packedstring001.hs

   1 {-# OPTIONS -fglasgow-exts #-}
   2
   3 module Main (main) where
   4
   5 import Char (isSpace)
   6 import PackedString
   7
   8 -- Bug in PackedString.lhs (fixed in rev 1.5)
   9
  10 foo = packString "this is a test"
  11 main = print (filterPS (not.isSpace) foo)
  12