Safe Haskell | None |
---|---|
Language | Haskell2010 |
Plugin.TypeCheck.Nat.Simple
Contents
PLUGIN
type L = Log SDocStr Var plugin :: Plugin plugin = typeCheckWith @L "Plugin.TypeCheck.Nat.Simple" \gs _ w -> tell @L $ "givens: " .+. fromSDoc (ppr gs) tell @L $ "wanted: " .+. fromSDoc (ppr w) uncurry canDerive =<< (,) <$> (givens =<< decodeAll gs) <*> (wanted =<< decode w)