diff options
author | Gabor Greif <ggreif@gmail.com> | 2016-01-27 17:08:41 +0100 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-01-28 12:34:07 -0400 |
commit | 3a4a88f0c96fd0fc5a3808dfadefc0a8b80573fd (patch) | |
tree | 6e6a6635d34cd815fcf443ab104f0e9b1a40d545 | |
parent | b2cecd5936429017428654266c5f115f593f13bb (diff) |
Ord constraint redundant
-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 |