fix warning

This commit is contained in:
Joey Hess 2016-03-11 14:33:38 -04:00
parent fed8fcb99f
commit ec8eba18ad
Failed to extract signature

View file

@ -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