diff --git a/Command/Smudge.hs b/Command/Smudge.hs index 355dd7a647..dc3854a661 100644 --- a/Command/Smudge.hs +++ b/Command/Smudge.hs @@ -112,7 +112,6 @@ clean file = do discardreststdin emitpointer stop - where -- Handles everything except the IO of the file content. clean' @@ -135,7 +134,6 @@ clean' file mk passthrough discardreststdin emitpointer = , inSmudgeCleanFilter go ) where - go = case mk of Right (Just k) -> do addingExistingLink file k $ do