remove dangling where
This commit is contained in:
parent
6227314e77
commit
286a681b57
1 changed files with 0 additions and 2 deletions
|
@ -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
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue