[commit: ghc] wip/nfs-locking: Set precedence level for <+>. (45208c5)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/45208c5e1e6059db3b6993f03db0a0439f486377/ghc

>---------------------------------------------------------------

commit 45208c5e1e6059db3b6993f03db0a0439f486377
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Sat Jan 10 02:13:01 2015 +0000

    Set precedence level for <+>.


>---------------------------------------------------------------

45208c5e1e6059db3b6993f03db0a0439f486377
 src/Base.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Base.hs b/src/Base.hs
index ce2714e..de0c3d6 100644
--- a/src/Base.hs
+++ b/src/Base.hs
@@ -51,6 +51,8 @@ arg = showArgs
 (<+>) :: (ShowArgs a, ShowArgs b) => a -> b -> Args
 a <+> b = (<>) <$> showArgs a <*> showArgs b
 
+infixr 6 <+>
+
 filterOut :: ShowArgs a => Args -> a -> Args
 filterOut as exclude = do
     exclude' <- showArgs exclude