src/Network/Gemini/Capsule/Internal.hs

@@ -48,7 +48,7 @@ import qualified Data.ByteString.Lazy as BSL
 import Data.Connection (Connection, source)
 import qualified Data.Text as T
 import Data.Text.Encoding (decodeUtf8')
-import qualified System.IO.Streams as S
+import System.IO.Streams as S
 
 import Network.Gemini.Capsule.Encoding
 import Network.Gemini.Capsule.Types

test/Network/Gemini/Capsule/InternalSpec.hs

@@ -97,7 +97,7 @@ readMaxSpec = describe "readMax" $ mapM_
       readMax maxLen conn `shouldReturn` expect
   )
 
-  --  description,    max length,   connection,  expected
+  --  description,    max length,   connection, expected
   [ ( "single input", 1024,         singleConn,  Just singleBS )
   , ( "multi input",  1024,         multiConn,   Just multiBS  )
   , ( "long input",   longLen,      longConn,    Just longBS   )