Ord constraint redundant
This commit is contained in:
parent
108f829543
commit
7f13e8fba6
1 changed files with 1 additions and 1 deletions
|
@ -50,7 +50,7 @@ performGet getter a = do
|
||||||
liftIO $ putStrLn $ fromMaybe "" $ M.lookup a m
|
liftIO $ putStrLn $ fromMaybe "" $ M.lookup a m
|
||||||
next $ return True
|
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
|
performSet setter expr a = case checkPreferredContentExpression expr of
|
||||||
Just e -> error $ "Parse error: " ++ e
|
Just e -> error $ "Parse error: " ++ e
|
||||||
Nothing -> do
|
Nothing -> do
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue