added todo for class
This commit is contained in:
parent
4c015a4aac
commit
3026a96eb7
1 changed files with 3 additions and 0 deletions
|
|
@ -377,6 +377,9 @@ inst (Forall xs t) = do
|
||||||
compose :: Subst -> Subst -> Subst
|
compose :: Subst -> Subst -> Subst
|
||||||
compose m1 m2 = M.map (apply m1) m2 `M.union` m1
|
compose m1 m2 = M.map (apply m1) m2 `M.union` m1
|
||||||
|
|
||||||
|
-- TODO: Split this class into two separate classes, one for free variables
|
||||||
|
-- and one for applying substitutions
|
||||||
|
|
||||||
-- | A class representing free variables functions
|
-- | A class representing free variables functions
|
||||||
class FreeVars t where
|
class FreeVars t where
|
||||||
-- | Get all free variables from t
|
-- | Get all free variables from t
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue