fixed #137

gsdlab · Aug 15, 2012 · 1702f40 · 1702f40
1 parent da52ae8
commit 1702f40
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 1 deletion.
diff --git a/src/Language/Clafer/Front/LayoutResolver.hs b/src/Language/Clafer/Front/LayoutResolver.hs
@@ -206,6 +206,7 @@ addNewLines :: [Token] -> [ExToken]
 addNewLines = addNewLines' 0
 
 addNewLines' :: Int -> [Token] -> [ExToken]
+addNewLines' _ []         = []
 addNewLines' 0 (t:[])     = [ExToken t]
 addNewLines' n (t:[])
   | n == 0 && isBracketClose t = [ExToken t]

diff --git a/src/Language/Clafer/Version.hs b/src/Language/Clafer/Version.hs
@@ -21,4 +21,4 @@ SOFTWARE.
 -}
 
 module Language.Clafer.Version where
-version = "v0.3.1-8-2012"
+version = "v0.3.15-8-2012"
diff --git a/test/positive/i137_parsing.cfr b/test/positive/i137_parsing.cfr
@@ -0,0 +1,3 @@
+//# FRAGMENT
+
+//# FRAGMENT