1 files changed, 6 insertions, 8 deletions
diff --git a/source/lux/data/id.lux b/source/lux/data/id.lux
index 6b996cf1e..e4f2a775f 100644
--- a/source/lux/data/id.lux
+++ b/source/lux/data/id.lux
@@ -10,20 +10,18 @@
 
 ## [Types]
 (deftype #export (Id a)
-  (| (#Id a)))
+  a)
 
 ## [Structures]
 (defstruct #export Id/Functor (Functor Id)
-  (def (map f fa)
-    (let [(#Id a) fa]
-      (#Id (f a)))))
+  (def map id))
 
 (defstruct #export Id/Monad (Monad Id)
   (def _functor Id/Functor)
-  (def (wrap a) (#Id a))
-  (def (join mma) (let [(#Id ma) mma] ma)))
+  (def wrap id)
+  (def join id))
 
 (defstruct #export Id/CoMonad (CoMonad Id)
   (def _functor Id/Functor)
-  (def (unwrap wa) (let [(#Id a) wa] a))
-  (def (split wa) (#Id wa)))
+  (def unwrap id)
+  (def split id))