Hopefully fix off by one error

This was causing an infinite loop
jacobstanley · Oct 28, 2015 · 9aa61e5 · 9aa61e5
1 parent a798f22
commit 9aa61e5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/HsImport/Parse.hs b/lib/HsImport/Parse.hs
@@ -111,7 +111,7 @@ parseInvalidSource srcLines firstInvalidLine lastValidLine currLastLine
                      | HS.srcLine srcLoc == firstInvalidLine ->
                         parseInvalidSource srcLines firstInvalidLine lastValidLine nextLine
                      | otherwise                             ->
-                        parseInvalidSource srcLines firstInvalidLine nextLine currLastLine)
+                        parseInvalidSource srcLines firstInvalidLine (nextLine + 1) currLastLine)
 
             (\(_ :: SomeException) -> parseInvalidSource srcLines firstInvalidLine lastValidLine nextLine)
    where