summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2011-11-20 20:46:28 -0500
committerGravatar Adam Chlipala <adam@chlipala.net>2011-11-20 20:46:28 -0500
commit7c14fd970c1b6c4b3e51d39360cfe3138eb50f26 (patch)
treefbf218d6692f16d2e7623a4ed805dc7870f363e3
parent7ed47fc3dcd34e96ce94c6d761a9d17e9f39721f (diff)
Fix bug in previous change
-rw-r--r--src/compiler.sml3
-rw-r--r--tests/comment.ur1
2 files changed, 3 insertions, 1 deletions
diff --git a/src/compiler.sml b/src/compiler.sml
index a296bfbb..75e98364 100644
--- a/src/compiler.sml
+++ b/src/compiler.sml
@@ -433,7 +433,8 @@ fun parseUrp' accLibs fname =
case inputCommentableLine inf of
Content s => s = "debug" orelse s = "profile"
orelse CharVector.exists (fn ch => ch = #" " orelse ch = #"\t") s orelse hasSpaceLine ()
- | _ => false
+ | EndOfFile => false
+ | OnlyComment => hasSpaceLine ()
val hasBlankLine = hasSpaceLine ()
diff --git a/tests/comment.ur b/tests/comment.ur
index e69de29b..975fc277 100644
--- a/tests/comment.ur
+++ b/tests/comment.ur
@@ -0,0 +1 @@
+fun main () : transaction page = return <xml>Hi</xml>