Commit 68990f69 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-08-20 15:47:12 by simonmar]

ignore newlines too: because the compiler pretty-prints error
messages, we sometimes encounter spurious line wrappage.
parent 1e81eb46
......@@ -42,7 +42,7 @@ main
clean str
= let
-- convert all non-\n whitespace to space
toSpace c = if isSpace c && c /= '\n' then ' ' else c
toSpace c = if isSpace c then ' ' else c
spaced = map toSpace str
-- collapse sequences of spaces into one
......@@ -63,4 +63,4 @@ clean str
-- zap directory-parts in pathnames
unpathified = unpathify unblanked
in
unpathified
\ No newline at end of file
unpathified
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment