src/Network/GemServ.hs

@@ -27,9 +27,7 @@ License along with this program.  If not, see
 {-# LANGUAGE LambdaCase, OverloadedStrings, RecordWildCards #-}
 
 module Network.GemServ (
-  -- * Running a Gemini Server
   runGemServer,
-  -- * Encoding/Decoding Functions
   encodeGemURL,
   decodeGemURL,
   escapeString,

src/Network/GemServ/Types.hs

@@ -38,7 +38,7 @@ module Network.GemServ.Types (
   newGemServSettings
 ) where
 
-import qualified Data.ByteString.Lazy as BSL
+import qualified Data.ByteString as BS
 import Data.Word (Word8, Word16, Word32)
 import Data.X509 (Certificate)
 
@@ -68,7 +68,7 @@ data GemResponse = GemResponse
   -- ^ The response status code
   , respMeta :: String
   -- ^ The response metadata
-  , respBody :: Maybe BSL.ByteString
+  , respBody :: Maybe BS.ByteString
   -- ^ The response body
   } deriving (Eq, Show)