haskell-nix/hnix-store
1
1
Fork 0
mirror of https://github.com/haskell-nix/hnix-store.git synced 2024-09-19 22:07:13 +03:00
Code Issues Projects Releases Wiki Activity

remote: fix Wincomplete-uni-patterns warnings

Browse Source
This commit is contained in:
Richard Marko 2023-11-12 14:45:33 +01:00
parent ac8f9b8faa
commit ffc254c105
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
hnix-store-remote/tests/NixDaemon.hs
View File

@ -7,6 +7,7 @@ import qualified System.Environment as Env
import Control.Exception ( bracket )
import Control.Concurrent ( threadDelay )
import qualified Data.ByteString.Char8 as BSC
import qualified Data.Either
import qualified Data.HashSet as HS
import qualified Data.Map.Strict as M
import System.Directory
@ -159,13 +160,13 @@ withPath action = do
-- | dummy path, adds <tmp>/dummpy with "Hello World" contents
dummy :: MonadStore StorePath
dummy = do
let Right n = makeStorePathName "dummy"
addToStore @SHA256 n (dumpPath "dummy") False False
let name = Data.Either.fromRight (error "impossible") $ makeStorePathName "dummy"
addToStore @SHA256 name (dumpPath "dummy") False False
invalidPath :: StorePath
invalidPath =
let Right n = makeStorePathName "invalid"
in StorePath (mkStorePathHashPart "invalid") n
let name = Data.Either.fromRight (error "impossible") $ makeStorePathName "invalid"
in StorePath (mkStorePathHashPart "invalid") name
withBuilder :: (StorePath -> MonadStore a) -> MonadStore a
withBuilder action = do
@ -250,8 +251,8 @@ spec_protocol = Hspec.around withNixDaemon $
context "addToStore" $
itRights "adds file to store" $ do
fp <- liftIO $ writeSystemTempFile "addition" "lal"
let Right n = makeStorePathName "tmp-addition"
res <- addToStore @SHA256 n (dumpPath fp) False False
let name = Data.Either.fromRight (error "impossible") $ makeStorePathName "tmp-addition"
res <- addToStore @SHA256 name (dumpPath fp) False False
liftIO $ print res
context "with dummy" $ do