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: bark if parsing leftover isn't empty

Browse Source
This commit is contained in:
Richard Marko 2023-11-26 15:38:22 +01:00 committed by sorki
parent bb5f116a51
commit a2c5065b36
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,6 +11,7 @@ import System.Nix.Store.Remote.Socket (sockGet8, sockPut)
import System.Nix.Store.Remote.MonadStore (MonadStore, clearData)
import System.Nix.Store.Remote.Types (Logger(..), ProtoVersion, hasProtoVersion)
import qualified Control.Monad
import qualified Control.Monad.Reader
import qualified Control.Monad.State.Strict
import qualified Data.Serialize.Get
@ -27,7 +28,12 @@ processOutput = do
(runSerialT protoVersion $ Data.Serializer.getS logger)
go :: Result (Either () Logger) -> MonadStore [Logger]
go (Done ectrl _leftover) = do
go (Done ectrl leftover) = do
Control.Monad.unless (leftover == mempty) $
-- TODO: throwError
error $ "Leftovers detected: '" ++ show leftover ++ "'"
protoVersion <- Control.Monad.Reader.asks hasProtoVersion
case ectrl of
-- TODO: tie this with throwError and better error type