@@ -370,6 +370,8 @@ inferBinder val (NamedBinder name binder) = do
370 return $ M.insert name val m
370 return $ M.insert name val m
371inferBinder val (PositionedBinder pos _ binder) =
371inferBinder val (PositionedBinder pos _ binder) =
372 warnAndRethrowWithPosition pos $ inferBinder val binder
372 warnAndRethrowWithPosition pos $ inferBinder val binder
373+-- TODO: When adding support for polymorphic types, check subsumption here
374+-- and change the definition of `binderRequiresMonotype`
373inferBinder val (TypedBinder ty binder) = val =?= ty >> inferBinder val binder
375inferBinder val (TypedBinder ty binder) = val =?= ty >> inferBinder val binder
375-- | Returns true if a binder requires its argument type to be a monotype.
377-- | Returns true if a binder requires its argument type to be a monotype.