diff --git a/pipes-bytestring.cabal b/pipes-bytestring.cabal
--- a/pipes-bytestring.cabal
+++ b/pipes-bytestring.cabal
@@ -1,6 +1,6 @@
 Name: pipes-bytestring
-Version: 2.1.6
-Cabal-Version: >=1.8.0.2
+Version: 2.1.7
+Cabal-Version: >=1.10
 Build-Type: Simple
 License: BSD3
 License-File: LICENSE
@@ -19,7 +19,7 @@
     Hs-Source-Dirs: src
     Build-Depends:
         base         >= 4       && < 5   ,
-        bytestring   >= 0.9.2.1 && < 0.11,
+        bytestring   >= 0.9.2.1 && < 0.12,
         pipes        >= 4.0     && < 4.4 ,
         pipes-group  >= 1.0.0   && < 1.1 ,
         pipes-parse  >= 3.0.0   && < 3.1 ,
@@ -27,3 +27,4 @@
         transformers >= 0.2.0.0 && < 0.6
     Exposed-Modules: Pipes.ByteString
     GHC-Options: -O2 -Wall
+    Default-Language: Haskell2010
diff --git a/src/Pipes/ByteString.hs b/src/Pipes/ByteString.hs
--- a/src/Pipes/ByteString.hs
+++ b/src/Pipes/ByteString.hs
@@ -284,7 +284,7 @@
 {-| Like 'hGetSome', except you can vary the maximum chunk size for each request
 -}
 hGetSomeN :: MonadIO m => IO.Handle -> Int -> Server' Int ByteString m ()
-hGetSomeN h = go
+hGetSomeN h size = go size
   where
     go size = do
         bs <- liftIO (BS.hGetSome h size)
@@ -297,7 +297,7 @@
 
 -- | Like 'hGet', except you can vary the chunk size for each request
 hGetN :: MonadIO m => IO.Handle -> Int -> Server' Int ByteString m ()
-hGetN h = go
+hGetN h size = go size
   where
     go size = do
         bs <- liftIO (BS.hGet h size)