msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

fromString for Fix

Browse Source
This commit is contained in:
crumbtoo
2024-02-26 14:59:37 -07:00
parent c8967572a6
commit 4bbf3a3afe
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/Core/Syntax.hs
View File

@@ -88,6 +88,9 @@ type Expr b = Fix (ExprF b)
instance IsString (ExprF b a) where instance IsString (ExprF b a) where
fromString = VarF . fromString fromString = VarF . fromString
instance (IsString (f (Fix f))) => IsString (Fix f) where
fromString = Fix . fromString
data Type = TyFun data Type = TyFun
| TyVar Name | TyVar Name
| TyApp Type Type | TyApp Type Type