🔥 Data.Copointed; use pointed instead.

semantic-diff.cabal

@@ -18,7 +18,6 @@ library
                      , Category
                      , Control.Comonad.Cofree
                      , Control.Monad.Free
-                     , Data.Copointed
                      , Data.Functor.Both
                      , Data.Option
                      , Data.OrderedMap
@@ -52,6 +51,7 @@ library
                      , directory
                      , filepath
                      , mtl
+                     , pointed
                      , text >= 1.2.1.3
                      , text-icu
                      , these

src/Data/Copointed.hs

@@ -1,13 +0,0 @@
-module Data.Copointed where
-
-import Data.Functor.Identity
-
--- | A value that can return its content.
-class Copointed c where
-  copoint :: c a -> a
-
-instance Copointed ((,) a) where
-  copoint = snd
-
-instance Copointed Identity where
-  copoint = runIdentity