Fix openFile003 for Win64
[packages/base.git] / tests / packedstring001.hs
1
2 module Main (main) where
3
4 import Char (isSpace)
5 import Data.PackedString
6
7 -- Bug in PackedString.lhs (fixed in rev 1.5)
8
9 foo = packString "this is a test"
10 main = print (filterPS (not.isSpace) foo)
11