remove dangling where

This commit is contained in:
Joey Hess 2025-05-20 09:37:33 -04:00
parent 6227314e77
commit 286a681b57
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -112,7 +112,6 @@ clean file = do
discardreststdin discardreststdin
emitpointer emitpointer
stop stop
where
-- Handles everything except the IO of the file content. -- Handles everything except the IO of the file content.
clean' clean'
@ -135,7 +134,6 @@ clean' file mk passthrough discardreststdin emitpointer =
, inSmudgeCleanFilter go , inSmudgeCleanFilter go
) )
where where
go = case mk of go = case mk of
Right (Just k) -> do Right (Just k) -> do
addingExistingLink file k $ do addingExistingLink file k $ do