diff options
Diffstat (limited to 'Command/Direct.hs')
-rw-r--r-- | Command/Direct.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Direct.hs b/Command/Direct.hs index 47f622a81..9727549b6 100644 --- a/Command/Direct.hs +++ b/Command/Direct.hs @@ -47,7 +47,7 @@ perform = do void $ liftIO clean next cleanup where - go = whenAnnexed $ \f (k, _) -> do + go = whenAnnexed $ \f k -> do r <- toDirectGen k f case r of Nothing -> noop |