diff options
| author | aarne <unknown> | 2004-08-13 20:46:54 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-08-13 20:46:54 +0000 |
| commit | 1142d18a08cb8b9b96aefbd52fdadb05cb1982c7 (patch) | |
| tree | d3a7c3242b7687cccfe30793d0cf7a1aca636ed0 /src/GF/UseGrammar | |
| parent | 69aa3248d2ea878ef45e9e8c177381730d949c32 (diff) | |
-s
Diffstat (limited to 'src/GF/UseGrammar')
| -rw-r--r-- | src/GF/UseGrammar/Session.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/UseGrammar/Session.hs b/src/GF/UseGrammar/Session.hs index 7d43ea33c..8bc91e145 100644 --- a/src/GF/UseGrammar/Session.hs +++ b/src/GF/UseGrammar/Session.hs @@ -17,7 +17,7 @@ type SState = [(State,([Exp],[Clip]),SInfo)] -- exps: candidate refinements,clip type SInfo = ([String],(Int,Options)) -- string is message, int is the view initSState :: SState -initSState = [(initState, ([],[]), (["Select category to start"],(0,noOptions)))] +initSState = [(initState, ([],[]), (["Select 'New' category to start"],(0,noOptions)))] -- instead of empty type Clip = Tree ---- (Exp,Type) |