Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

BUG Lines start at 1

At least, that is the typical for humans
  • Loading branch information...
commit 63f543966b8ba9d28590f713a9ffedb994abcb23 1 parent 1e47f3f
@luispedro authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  hex/CharStream.lhs
View
2  hex/CharStream.lhs
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.