mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

Ord constraint redundant

Browse source
This commit is contained in:
Gabor Greif 2016-01-27 17:08:41 +01:00 • committed by Joey Hess
parent 108f829543
commit 7f13e8fba6
Failed to extract signature
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Command/Wanted.hs
View file

@ -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