haskell-nix/hnix-store
1
1
Fork 0
mirror of https://github.com/haskell-nix/hnix-store.git synced 2024-09-11 18:05:56 +03:00
Code Issues Projects Releases Wiki Activity

remote: switch Logger_Next from ByteString to Text

Browse Source
This commit is contained in:
Richard Marko 2023-11-26 13:43:24 +01:00 committed by sorki
parent 01f26b359a
commit 8b9eb48b40
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hnix-store-remote/src/System/Nix/Store/Remote/Serializer.hs
View File

@ -240,7 +240,7 @@ logger :: NixSerializer r e Logger
logger = Serializer
{ getS = getS loggerOpCode >>= \case
LoggerOpCode_Next ->
Logger_Next <$> getS byteString
Logger_Next <$> getS text
LoggerOpCode_Read ->
Logger_Read <$> getS int
LoggerOpCode_Write ->
@ -270,7 +270,7 @@ logger = Serializer
, putS = \case
Logger_Next s -> do
putS loggerOpCode LoggerOpCode_Next
putS byteString s
putS text s
Logger_Read i -> do
putS loggerOpCode LoggerOpCode_Read
putS int i

2
hnix-store-remote/src/System/Nix/Store/Remote/Types/Logger.hs
View File

@ -53,7 +53,7 @@ intToLoggerOpCode = \case
x -> Left $ "Invalid LoggerOpCode: " ++ show x
data Logger
= Logger_Next ByteString
= Logger_Next Text
| Logger_Read Int -- data needed from source
| Logger_Write ByteString -- data for sink
| Logger_Last