From daf9eaef6e2d7e4e5d57bb1500ac79ec9b46c298 Mon Sep 17 00:00:00 2001
From: Kiana Sheibani <kiana.a.sheibani@gmail.com>
Date: Sat, 4 Mar 2023 23:35:26 -0500
Subject: [PATCH] Change `MkTagged` to `Tag`

---
 Data/Profunctor/Types.idr | 29 ++++++++++++++---------------
 1 file changed, 14 insertions(+), 15 deletions(-)

diff --git a/Data/Profunctor/Types.idr b/Data/Profunctor/Types.idr
index 98e9f7d..d8c2572 100644
--- a/Data/Profunctor/Types.idr
+++ b/Data/Profunctor/Types.idr
@@ -102,43 +102,42 @@ Functor f => Profunctor (Costar f) where
 
 public export
 record Tagged (a : k) b where
-  constructor MkTagged
+  constructor Tag
   getTagged : b
 
 public export
 retag : Tagged a c -> Tagged b c
-retag (MkTagged x) = MkTagged x
+retag (Tag x) = Tag x
 
 export
 Functor (Tagged a) where
-  map f (MkTagged x) = MkTagged (f x)
+  map f (Tag x) = Tag (f x)
 
 export
 Applicative (Tagged a) where
-  pure = MkTagged
-  MkTagged f <*> MkTagged x = MkTagged (f x)
+  pure = Tag
+  Tag f <*> Tag x = Tag (f x)
 
 export
 Monad (Tagged a) where
   join = getTagged
-  MkTagged x >>= f = f x
+  Tag x >>= f = f x
 
 export
 Foldable (Tagged a) where
-  foldr f x (MkTagged y) = f y x
-  foldl f x (MkTagged y) = f x y
+  foldr f x (Tag y) = f y x
+  foldl f x (Tag y) = f x y
   null = const False
-  foldlM f x (MkTagged y) = f x y
-  toList (MkTagged x) = [x]
-  foldMap f (MkTagged x) = f x
+  foldlM f x (Tag y) = f x y
+  toList (Tag x) = [x]
+  foldMap f (Tag x) = f x
 
 export
 Traversable (Tagged a) where
-  traverse f (MkTagged x) = map MkTagged (f x)
+  traverse f (Tag x) = map Tag (f x)
 
 export
 Profunctor Tagged where
-  dimap _ f (MkTagged x) = MkTagged (f x)
+  dimap _ f (Tag x) = Tag (f x)
   lmap = const retag
-  rmap f (MkTagged x) = MkTagged (f x)
-
+  rmap f (Tag x) = Tag (f x)