From 8e2b3afd2197c7648a20752c7276646d2091a930 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 22 Nov 2004 16:42:21 +0000
Subject: [PATCH] [project @ 2004-11-22 16:42:21 by simonmar] \r is whitespace

---
 ghc/utils/unlit/unlit.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/utils/unlit/unlit.c b/ghc/utils/unlit/unlit.c
index 769707e..7ab2932 100644
--- a/ghc/utils/unlit/unlit.c
+++ b/ghc/utils/unlit/unlit.c
@@ -69,7 +69,7 @@
 #endif
 
 typedef enum { START, BLANK, TEXT, DEFN, BEGIN, /*PSEUDO,*/ END, HASH, SHEBANG } line;
-#define isWhitespace(c)  (c==' '  || c=='\t')
+#define isWhitespace(c)  (c==' '  || c=='\t' || c=='\r')
 #define isLineTerm(c)    (c=='\n' || c==EOF)
 
 static int noisy  = 1;   /* 0 => keep quiet about errors, 1 => report errors */
-- 
1.7.10.4