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

nareffetsio for addToStore in hnix-store-remote

Browse Source
This commit is contained in:
Greg Hale 2018-11-18 14:29:10 -05:00
parent 4c650ca750
commit 759abd9f94
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -52,7 +52,7 @@ import qualified System.Nix.GC as GC
import System.Nix.Hash (Digest, HashAlgorithm)
import System.Nix.Path
import System.Nix.Hash
import System.Nix.Nar (localPackNar, putNar)
import System.Nix.Nar (localPackNar, putNar, narEffectsIO)
import System.Nix.Util
import System.Nix.Store.Remote.Types
@ -206,10 +206,10 @@ addToStore
-> MonadStore Path
addToStore name pth recursive algoProxy pfilter repair = do
-- Get length first
len <- liftIO $ LBS.length . B.runPut . putNar <$> localPackNar undefined pth
len <- liftIO $ LBS.length . B.runPut . putNar <$> localPackNar narEffectsIO pth
-- Fetch full NAR bytestring separately. We are trying to
-- avoid forcing the full string in memory
bs :: LBS.ByteString <- liftIO $ B.runPut . putNar <$> localPackNar undefined pth
bs :: LBS.ByteString <- liftIO $ B.runPut . putNar <$> localPackNar narEffectsIO pth
runOpArgs AddToStore $ do
putByteStringLen name
-- TODO: really send the string 0 or 1? Or is this Word8's 0 and 1?