Permalink
Browse files

BUG Lines start at 1

At least, that is the typical for humans
  • Loading branch information...
1 parent 1e47f3f commit 63f543966b8ba9d28590f713a9ffedb994abcb23 @luispedro committed Jun 21, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 hex/CharStream.lhs
View
@@ -62,7 +62,7 @@ data NamedCharStream = EofNCS
deriving (Eq, Show)
asqueue :: String -> LT.Text -> NamedCharStream
-asqueue fname cs = NamedCharStream cs 0 fname EofNCS
+asqueue fname cs = NamedCharStream cs 1 fname EofNCS
_safeget EofNCS = Nothing
_safeget s@NamedCharStream{ncsData=r, ncsLine=line, ncsNext=next} = case LT.uncons r of

0 comments on commit 63f5439

Please sign in to comment.