32 lines
715 B
Haskell
32 lines
715 B
Haskell
|
{-# LANGUAGE CPP #-}
|
||
|
{-# LANGUAGE DeriveGeneric #-}
|
||
|
|
||
|
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
|