mgu

2024-03-07 10:20:42 -07:00
parent f6035b8a6a
commit 215feb433b
3 changed files with 65 additions and 7 deletions
--- a/src/Rlp/HindleyMilner/Types.hs
+++ b/src/Rlp/HindleyMilner/Types.hs
@@ -23,14 +23,14 @@ type Context' = HashMap PsName (Type PsName)
 data Constraint = Equality (Type PsName) (Type PsName)
    deriving (Eq, Generic, Show)

-newtype PartialJudgement = PartialJudgement Constraints
+newtype PartialJudgement = PartialJudgement [Constraint]
    deriving (Generic, Show)
    deriving (Semigroup, Monoid)
        via Generically PartialJudgement

 instance Hashable Constraint

-type Constraints = HashSet Constraint
+-- type Constraints = HashSet Constraint

 type Memo t = HashMap t (Type PsName, PartialJudgement)