Commit 45208c5e authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Set precedence level for <+>.

parent 7661c319
...@@ -51,6 +51,8 @@ arg = showArgs ...@@ -51,6 +51,8 @@ arg = showArgs
(<+>) :: (ShowArgs a, ShowArgs b) => a -> b -> Args (<+>) :: (ShowArgs a, ShowArgs b) => a -> b -> Args
a <+> b = (<>) <$> showArgs a <*> showArgs b a <+> b = (<>) <$> showArgs a <*> showArgs b
infixr 6 <+>
filterOut :: ShowArgs a => Args -> a -> Args filterOut :: ShowArgs a => Args -> a -> Args
filterOut as exclude = do filterOut as exclude = do
exclude' <- showArgs exclude exclude' <- showArgs exclude
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment