da-x / cpio-conduit Goto Github PK

:
Linking dist/build/cpio-test/cpio-test ...
> /tmp/stackage-build12/cpio-conduit-0.7.0$ dist/build/cpio-test/cpio-test
cpio-test: tests/file.cpio: openBinaryFile: does not exist (No such file or directory)

[1 of 1] Compiling Data.CPIO        ( src/Data/CPIO.hs, dist/build/Data/CPIO.o, dist/build/Data/CPIO.dyn_o )

src/Data/CPIO.hs:125:8: error:
    • Couldn't match expected type ‘Either String ByteString’
                  with actual type ‘(ByteString, a1)’
    • In the pattern: (decoded, "")
      In a case alternative:
          (decoded, "")
            -> return $ runGet getWord32be $ BL.fromChunks [decoded]
      In a stmt of a 'do' block:
        case B16.decode v of
          (decoded, "")
            -> return $ runGet getWord32be $ BL.fromChunks [decoded]
          (_, _) -> E.throw (InvalidHex v)
    |
125 |        (decoded,  "") ->
    |        ^^^^^^^^^^^^^^

src/Data/CPIO.hs:127:8: error:
    • Couldn't match expected type ‘Either String ByteString’
                  with actual type ‘(a0, b0)’
    • In the pattern: (_, _)
      In a case alternative: (_, _) -> E.throw (InvalidHex v)
      In a stmt of a 'do' block:
        case B16.decode v of
          (decoded, "")
            -> return $ runGet getWord32be $ BL.fromChunks [decoded]
          (_, _) -> E.throw (InvalidHex v)
    |
127 |        (_, _) ->
    |        ^^^^^^