From 5fd9f09476be05d2a0ca29daa60fda6f30c9d190 Mon Sep 17 00:00:00 2001
From: Bodigrim <andrew.lelechenko@gmail.com>
Date: Tue, 26 Nov 2024 23:06:55 +0000
Subject: [PATCH] Add instance Bifunctor GenEntry

---
 Codec/Archive/Tar/Types.hs | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/Codec/Archive/Tar/Types.hs b/Codec/Archive/Tar/Types.hs
index 45477db..0f486a3 100644
--- a/Codec/Archive/Tar/Types.hs
+++ b/Codec/Archive/Tar/Types.hs
@@ -76,6 +76,7 @@ module Codec.Archive.Tar.Types (
   unfoldEntriesM,
   ) where
 
+import Data.Bifunctor (Bifunctor, bimap)
 import Data.Int      (Int64)
 import Data.List.NonEmpty (NonEmpty(..))
 import Data.Monoid   (Monoid(..))
@@ -145,7 +146,18 @@ data GenEntry tarPath linkTarget = Entry {
     -- | The tar format the archive is using.
     entryFormat :: !Format
   }
-  deriving (Eq, Show)
+  deriving
+  ( Eq
+  , Show
+  , Functor -- ^ @since 0.6.4.0
+  )
+
+-- | @since 0.6.4.0
+instance Bifunctor GenEntry where
+  bimap f g e = e
+    { entryTarPath = f (entryTarPath e)
+    , entryContent = fmap g (entryContent e)
+    }
 
 -- | Monomorphic tar archive entry, ready for serialization / deserialization.
 --
@@ -178,7 +190,12 @@ data GenEntryContent linkTarget
   | NamedPipe
   | OtherEntryType  {-# UNPACK #-} !TypeCode LBS.ByteString
                     {-# UNPACK #-} !FileSize
-  deriving (Eq, Ord, Show)
+  deriving
+  ( Eq
+  , Ord
+  , Show
+  , Functor -- ^ @since 0.6.4.0
+  )
 
 -- | Monomorphic content of a tar archive entry,
 -- ready for serialization / deserialization.