From 3a4a88f0c96fd0fc5a3808dfadefc0a8b80573fd Mon Sep 17 00:00:00 2001 From: Gabor Greif Date: Wed, 27 Jan 2016 17:08:41 +0100 Subject: Ord constraint redundant --- Command/Wanted.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Command') 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 -- cgit v1.2.3