Override default fixity for Get operators

1 files changed, 8 insertions, 0 deletions

diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs
index d1d153b..8768dac 100644
--- a/src/Data/BEncode.hs
+++ b/src/Data/BEncode.hs
@@ -683,21 +683,29 @@ field m = Get $ do
 f <$>! k = f <$> field (req k)
 {-# INLINE (<$>!) #-}
 
+infixl 4 <$>!
+
 -- | Shorthand for /f <$> optional (field (req k))/.
 (<$>?) :: BEncode a => (Maybe a -> b) -> BKey -> Get b
 f <$>? k = f <$> optional (field (req k))
 {-# INLINE (<$>?) #-}
 
+infixl 4 <$>?
+
 -- | Shorthand for /f <*> field (req k)/.
 (<*>!) :: BEncode a => Get (a -> b) -> BKey -> Get b
 f <*>! k = f <*> field (req k)
 {-# INLINE (<*>!) #-}
 
+infixl 4 <*>!
+
 -- | Shorthand for /f <*> optional (field (req k))/.
 (<*>?) :: BEncode a => Get (Maybe a -> b) -> BKey -> Get b
 f <*>? k = f <*> optional (field (req k))
 {-# INLINE (<*>?) #-}
 
+infixl 4 <*>?
+
 -- | Run a 'Get' monad.
 fromDict :: forall a. Typeable a => Get a -> BValue -> Result a
 fromDict m (BDict d) = evalStateT (runGet m) d