Added NoThunks instance for Identity

input-output-hk · Nov 3, 2023 · cc35609 · cc35609
1 parent 7d70c4a
commit cc35609
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -3,6 +3,7 @@
 ## next version
 
 * `NoThunks ThreadId` instance.
+* `NoThunks Identity` instance
 * Fix tests on ghc 9.8.
   Andreas Abel <[email protected]>
 * Tested with ghc 8.10 to 9.8.

diff --git a/src/NoThunks/Class.hs b/src/NoThunks/Class.hs
@@ -48,6 +48,7 @@ import GHC.Conc.Sync (ThreadId (..))
 -- For instances
 
 import Data.Foldable (toList)
+import Data.Functor.Identity (Identity)
 import Data.Int
 import Data.IntMap (IntMap)
 import Data.Kind (Type)
@@ -638,6 +639,7 @@ instance NoThunks Void
 instance NoThunks ()
 
 instance NoThunks a => NoThunks [a]
+instance NoThunks a => NoThunks (Identity a)
 instance NoThunks a => NoThunks (Maybe a)
 instance NoThunks a => NoThunks (NonEmpty a)