testsuite/tests/ghc-regress/lib/should_run/packedstring001.hs


1
2
3
4
5
6
7
8
9
10
11


module Main (main) where

import Char (isSpace)
import Data.PackedString

-- Bug in PackedString.lhs (fixed in rev 1.5)

foo = packString "this is a test"
main = print (filterPS (not.isSpace) foo)