Skip to content

Commit 605bf06

Browse files
committed
refactor: Replace I with Identity in Haskell code
The `Identity` is used in other sections. Also, it is defined in base library.
1 parent b6db475 commit 605bf06

File tree

2 files changed

+3
-3
lines changed

2 files changed

+3
-3
lines changed
Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1 +1 @@
1-
type Exp a b = Lan ((,) a) I b
1+
type Exp a b = Lan ((,) a) Identity b
Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
toExp :: (a -> b) -> Exp a b
2-
toExp f = Lan (f . fst) (I ())
2+
toExp f = Lan (f . fst) (Identity ())
33

44
fromExp :: Exp a b -> (a -> b)
5-
fromExp (Lan f (I x)) = \a -> f (a, x)
5+
fromExp (Lan f (Identity x)) = \a -> f (a, x)

0 commit comments

Comments
 (0)