diff options
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Wanted.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Wanted.hs b/Command/Wanted.hs index 10f684567..dca92a7b4 100644 --- a/Command/Wanted.hs +++ b/Command/Wanted.hs @@ -50,7 +50,7 @@ performGet getter a = do liftIO $ putStrLn $ fromMaybe "" $ M.lookup a m next $ return True -performSet :: Ord a => (a -> PreferredContentExpression -> Annex ()) -> String -> a -> CommandPerform +performSet :: (a -> PreferredContentExpression -> Annex ()) -> String -> a -> CommandPerform performSet setter expr a = case checkPreferredContentExpression expr of Just e -> error $ "Parse error: " ++ e Nothing -> do |