Fixed off by one preventing printing of last line

2012-11-04 19:42:32 -08:00 · 2012-11-04 19:42:32 -08:00 · e6edffa8d1
parent a92598c372
commit e6edffa8d1
1 changed files with 1 additions and 1 deletions
--- a/shpell.hs
+++ b/shpell.hs
@ -38,7 +38,7 @@ doInput filename contents colorFunc = do
    if not $ null comments then do
        mapM_ (\x -> do
            let lineNum = shpellLine (head x)
-            let line = if lineNum < 1 || lineNum >= lineCount
+            let line = if lineNum < 1 || lineNum > lineCount
                            then ""
                            else fileLines !! (lineNum - 1)
            putStrLn ""