mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
Added mkText : Phr -> Text
This commit is contained in:
@@ -38,6 +38,7 @@ incomplete resource Constructors = open Grammar in {
|
||||
|
||||
mkText : overload {
|
||||
mkText : Text ; -- [empty text]
|
||||
mkText : Phr -> Text ; -- John walks.
|
||||
mkText : Phr -> Text -> Text -- John walks. ...
|
||||
} ;
|
||||
|
||||
@@ -591,6 +592,8 @@ incomplete resource Constructors = open Grammar in {
|
||||
mkText = overload {
|
||||
mkText : Text -- [empty text]
|
||||
= TEmpty ;
|
||||
mkText : Phr -> Text -- John walks.
|
||||
= \x -> TFullStop x TEmpty ;
|
||||
mkText : Phr -> Text -> Text -- John walks. ...
|
||||
= TFullStop
|
||||
} ;
|
||||
|
||||
Reference in New Issue
Block a user