remote: cosmetic

Co-authored-by: Richard Marko <srk@48.io>
This commit is contained in:
Anton Latukha 2020-12-17 13:05:58 +02:00 committed by GitHub
parent 5d160cd5c5
commit 181f5fc0a8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -218,7 +218,7 @@ queryPathInfoUncached path = do
deriverPath <- sockGetPathMay
narHashText <- Data.Text.Encoding.decodeUtf8 <$> sockGetStr
let narHash = case (System.Nix.Hash.decodeBase Base32 :: Text -> Either String (Digest a)) @'System.Nix.Hash.SHA256 narHashText of
let narHash = case System.Nix.Hash.decodeBase @'System.Nix.Hash.SHA256 Base32 narHashText of
Left e -> error e
Right x -> SomeDigest x