unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-10-05 06:07:21 +03:00
Code Issues Projects Releases Wiki Activity

started on Type.generalizeEffects

Browse Source
This commit is contained in:
Paul Chiusano 2018-08-27 17:39:45 -04:00
parent e739e9e0e2
commit 526904223f
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
parser-typechecker/src/Unison/Type.hs
View File

@ -316,6 +316,22 @@ flipApply t = forall() b $ arrow() (arrow() t (var() b)) (var() b)
generalize :: Ord v => AnnotatedType v a -> AnnotatedType v a
generalize t = foldr (forall (ABT.annotation t)) t $ Set.toList (ABT.freeVars t)
-- map : (a -> b) -> List a -> List b
-- map : (a -> {e} b) -> List a -> {e} (List b)
--
-- map : (a ->{e1} b) ->{e2} List a ->{e1,} (List b)
generalizeEffects :: Var v => AnnotatedType v a -> AnnotatedType v a
generalizeEffects t = let
at = ABT.annotation t
e = ABT.fresh t (Var.named "e")
ev t = effect1 at (var at e) t
-- if `arg` is `{} blah` leave it alone or need some way of telling typechecker
-- to leave it alone
go t@(Arrow' f arg) = arrow (ABT.annotation t) f (ev arg)
go _t@(Ann' _a _) = error "todo"
go _ = error "todo"
in forall (ABT.annotation t) e (go t)
-- | Bind all free variables that start with a lowercase letter with an outer `forall`.
generalizeLowercase :: Var v => AnnotatedType v a -> AnnotatedType v a
generalizeLowercase t = foldr (forall (ABT.annotation t)) t vars