Refactor
This commit is contained in:
parent
b9d7d7d007
commit
122c54b51e
@ -376,17 +376,16 @@ unpackToDir dest av = do
|
|||||||
#if defined(TAR)
|
#if defined(TAR)
|
||||||
let untar :: MonadIO m => BL.ByteString -> Excepts '[] m ()
|
let untar :: MonadIO m => BL.ByteString -> Excepts '[] m ()
|
||||||
untar = liftIO . Tar.unpack (toFilePath dest) . Tar.read
|
untar = liftIO . Tar.unpack (toFilePath dest) . Tar.read
|
||||||
|
|
||||||
|
rf :: MonadIO m => Path Abs -> Excepts '[] m BL.ByteString
|
||||||
|
rf = liftIO . readFile
|
||||||
#else
|
#else
|
||||||
let untar :: MonadIO m => BL.ByteString -> Excepts '[ArchiveResult] m ()
|
let untar :: MonadIO m => BL.ByteString -> Excepts '[ArchiveResult] m ()
|
||||||
untar = lEM . liftIO . runArchiveM . unpackToDirLazy (T.unpack . decUTF8Safe . toFilePath $ dest)
|
untar = lEM . liftIO . runArchiveM . unpackToDirLazy (T.unpack . decUTF8Safe . toFilePath $ dest)
|
||||||
#endif
|
|
||||||
|
|
||||||
#if defined(TAR)
|
|
||||||
rf :: MonadIO m => Path Abs -> Excepts '[] m BL.ByteString
|
|
||||||
#else
|
|
||||||
rf :: MonadIO m => Path Abs -> Excepts '[ArchiveResult] m BL.ByteString
|
rf :: MonadIO m => Path Abs -> Excepts '[ArchiveResult] m BL.ByteString
|
||||||
#endif
|
|
||||||
rf = liftIO . readFile
|
rf = liftIO . readFile
|
||||||
|
#endif
|
||||||
|
|
||||||
-- extract, depending on file extension
|
-- extract, depending on file extension
|
||||||
if
|
if
|
||||||
|
Loading…
Reference in New Issue
Block a user