2024-01-09 09:19:58 +00:00
|
|
|
{-# LANGUAGE CPP #-}
|
2024-01-09 09:26:46 +00:00
|
|
|
#if defined(TAR)
|
2024-01-09 09:19:58 +00:00
|
|
|
{-# LANGUAGE DeriveGeneric #-}
|
2024-01-09 09:26:46 +00:00
|
|
|
#endif
|
2024-01-09 09:19:58 +00:00
|
|
|
|
|
|
|
module GHCup.Utils.Tar.Types
|
|
|
|
( ArchiveResult(..)
|
|
|
|
)
|
|
|
|
where
|
|
|
|
|
|
|
|
#if defined(TAR)
|
|
|
|
|
|
|
|
import Control.Exception ( Exception )
|
|
|
|
import Control.DeepSeq ( NFData )
|
|
|
|
import qualified GHC.Generics as GHC
|
|
|
|
|
|
|
|
data ArchiveResult = ArchiveFatal
|
|
|
|
| ArchiveFailed
|
|
|
|
| ArchiveWarn
|
|
|
|
| ArchiveRetry
|
|
|
|
| ArchiveOk
|
|
|
|
| ArchiveEOF
|
|
|
|
deriving (Eq, Show, GHC.Generic)
|
|
|
|
|
|
|
|
instance NFData ArchiveResult
|
|
|
|
|
|
|
|
instance Exception ArchiveResult
|
|
|
|
|
|
|
|
#else
|
|
|
|
|
|
|
|
import Codec.Archive ( ArchiveResult(..) )
|
|
|
|
|
|
|
|
#endif
|