use lazy ByteString for GemResponse
This commit is contained in:
@@ -38,7 +38,7 @@ module Network.GemServ.Types (
|
||||
newGemServSettings
|
||||
) where
|
||||
|
||||
import qualified Data.ByteString as BS
|
||||
import qualified Data.ByteString.Lazy as BSL
|
||||
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 BS.ByteString
|
||||
, respBody :: Maybe BSL.ByteString
|
||||
-- ^ The response body
|
||||
} deriving (Eq, Show)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user