blob: 318367e7f4d2b91d72dc4dd9aeb6b6f60ab5eefd (
plain)
1
2
3
4
5
6
7
8
9
10
|
-- Test the classic "\SOH" ambiguity
module Main(main) where
main = do { print soh ; print (length (fst (head soh))) ;
print so ; print (length (fst (head so))) }
where
so, soh :: [(String,String)]
soh = reads "\"\\SOH\"" -- Should read \SOH
so = reads "\"\\SOx\"" -- Should read \SO followed by x
|
