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