From 527df206a40c72786f3aa956c093fc226c9fcc82 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Mon, 30 Sep 2013 05:30:07 +0400
Subject: Minor optimizations

---
 src/Data/BEncode.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs
index ebeed6e..1284a83 100644
--- a/src/Data/BEncode.hs
+++ b/src/Data/BEncode.hs
@@ -648,13 +648,13 @@ fromDict _  _        = decodingError (show (typeOf inst))
 --  >     ]
 --  >     ...
 --
-data Assoc = Some BKey BValue
+data Assoc = Some !BKey BValue
            | None
 
 -- TODO better name
 -- | Make required key value pair.
 (.=!) :: BEncode a => BKey -> a -> Assoc
-k .=! v = Some k (toBEncode v)
+(!k) .=! v = Some k (toBEncode v)
 {-# INLINE (.=!) #-}
 
 infix 6 .=!
-- 
cgit v1.2.3