1
1
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00

Stub in a datatype of named decorators.

This commit is contained in:
Rob Rix 2017-05-29 12:34:49 -04:00
parent 7081b3f8b8
commit bbc7b78f39

View File

@ -75,6 +75,8 @@ data TaskF output where
type Task = Freer TaskF
data NamedDecorator = IdentifierDecorator
parse :: Parser term -> Source -> Task term
parse parser source = Parse parser source `Then` return