summaryrefslogtreecommitdiff
path: root/src/Codec/Archive/Types.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Codec/Archive/Types.hs')
-rw-r--r--src/Codec/Archive/Types.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Codec/Archive/Types.hs b/src/Codec/Archive/Types.hs
index ec0a329..0807ff8 100644
--- a/src/Codec/Archive/Types.hs
+++ b/src/Codec/Archive/Types.hs
@@ -41,6 +41,7 @@ data EntryContent = NormalFile !BS.ByteString
| Directory
| Symlink !FilePath
| Hardlink !FilePath
+ deriving (Eq)
data Entry = Entry { filepath :: !FilePath
, content :: !EntryContent
@@ -48,12 +49,14 @@ data Entry = Entry { filepath :: !FilePath
, ownership :: !Ownership
, time :: !(Maybe ModTime)
}
+ deriving (Eq)
data Ownership = Ownership { userName :: !(Maybe String)
, groupName :: !(Maybe String)
, ownerId :: !Id
, groupId :: !Id
}
+ deriving (Eq, Show)
type Permissions = CMode
type ModTime = (CTime, CLong)