diff --git a/Git/DiffTree.hs b/Git/DiffTree.hs
index 0dac607e5c..645d18d35d 100644
--- a/Git/DiffTree.hs
+++ b/Git/DiffTree.hs
@@ -107,7 +107,7 @@ parseDiffRaw l = go l []
 	go (info:f:rest) c = case mk info f of
 		Nothing -> Nothing
 		Just i -> go rest (i:c)
-	go (s:[]) _ = Nothing
+	go (_:[]) _ = Nothing
 
 	mk info f = DiffTreeItem
 		<$> readmode srcm