constructTarIndex :: BS.ByteString -> Either String TarIndex
constructTarIndex = either (\e -> Left ("bad tar file: " ++ show e)) Right
                  . TarIndex.construct . Tar.read
constructTarIndex :: BS.ByteString -> Either String TarIndex
constructTarIndex = either (\e -> Left ("bad tar file: " ++ show e)) Right
                  . TarIndex.construct . Tar.read
constructTarIndex = either (\e -> Left ("bad tar file: " ++ show e)) Right
                  . TarIndex.construct . Tar.read