diff --git a/bencoding.cabal b/bencoding.cabal
--- a/bencoding.cabal
+++ b/bencoding.cabal
@@ -1,5 +1,5 @@
 name:                  bencoding
-version:               0.4.5.3
+version:               0.4.5.4
 license:               BSD3
 license-file:          LICENSE
 author:                Sam Truzjan
diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs
--- a/src/Data/BEncode.hs
+++ b/src/Data/BEncode.hs
@@ -274,7 +274,7 @@
 instance (Selector s, GBEncodable f BValue)
        => GBEncodable (M1 S s f) BDict where
   {-# INLINE gto #-}
-  gto s @ (M1 x) = BC.pack (selRename (selName s)) `BD.singleton` gto x
+  gto s@(M1 x) = BC.pack (selRename (selName s)) `BD.singleton` gto x
 
   {-# INLINE gfrom #-}
   gfrom = gfromM1S
@@ -292,7 +292,7 @@
 instance (Constructor c, GBEncodable f BDict, GBEncodable f BList)
        => GBEncodable (M1 C c f) BValue where
   {-# INLINE gto #-}
-  gto con @ (M1 x)
+  gto con@(M1 x)
       | conIsRecord con = BDict (gto x)
       |    otherwise    = BList (gto x)