bugfix: fix unused list numbering

Introduced in 43f0a666f0
2011-05-28 22:28:14 -04:00 · 2011-05-28 22:28:14 -04:00 · 14ffb5d47b
commit 14ffb5d47b
parent 66a99d3740
2 changed files with 7 additions and 1 deletions
--- a/Command/Unused.hs
+++ b/Command/Unused.hs
@ -57,7 +57,7 @@ checkUnused = do
 			let unusedlist = number c l
 			when (not $ null l) $ showLongNote $ msg unusedlist
 			writeUnusedFile file unusedlist
-			return $ length l
+			return $ c + length l

 checkRemoteUnused :: String -> CommandPerform
 checkRemoteUnused name = do