jlamothe/gemcap
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

use lazy ByteString for GemResponse

Browse Source
This commit is contained in:
Jonathan Lamothe
2021-11-01 13:12:50 -04:00
parent 3e17acc4f3
commit 1ecf47b391
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/Network/GemServ/Types.hs
View File

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