Fixed off by one preventing printing of last line

e6edffa8 · Vidar Holen · a92598c3 · e6edffa8
隐藏空白更改
内联并排

Showing with 1 addition and 1 deletion

shpell.hs shpell.hs +1 -1

未找到文件。
--- 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 ""