1 files changed, 1 insertions, 1 deletions

diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs
index 5c93e2f..86e813d 100644
--- a/src/Data/BEncode.hs
+++ b/src/Data/BEncode.hs
@@ -251,7 +251,7 @@ instance (GBEncodable a e, GBEncodable b e)
 selRename :: String -> String
 selRename = dropWhile ('_'==)
 
-gfromM1S :: forall c. Selector c
+gfromM1S :: forall f i p c. Selector c
          => GBEncodable f BValue
          => BDict -> Result (M1 i c f p)
 gfromM1S dict