summaryrefslogtreecommitdiff
path: root/testsuite/tests/lib/should_run/packedstring001.hs
blob: 9ee24e232c4237f8600eb4ee118a51de78b00082 (plain)
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)