diff options
| author | aarne <unknown> | 2005-06-10 14:59:58 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-06-10 14:59:58 +0000 |
| commit | 3f192bd2bb99f827abd20be36fc125c0e6553e80 (patch) | |
| tree | 29aed998993203fa61fc2e39f5b3d93614dc6fc5 /src/GF/UseGrammar | |
| parent | 17c4219691d0df7629b7f8dd9ead956f9ee750b6 (diff) | |
editor command pc n ; resource/finnish
Diffstat (limited to 'src/GF/UseGrammar')
| -rw-r--r-- | src/GF/UseGrammar/Session.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/GF/UseGrammar/Session.hs b/src/GF/UseGrammar/Session.hs index 34ffeed4a..4aabe9f60 100644 --- a/src/GF/UseGrammar/Session.hs +++ b/src/GF/UseGrammar/Session.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/04/21 16:23:51 $ --- > CVS $Author: bringert $ --- > CVS $Revision: 1.9 $ +-- > CVS $Date: 2005/06/10 15:59:59 $ +-- > CVS $Author: aarne $ +-- > CVS $Revision: 1.10 $ -- -- (Description of the module) ----------------------------------------------------------------------------- @@ -82,6 +82,9 @@ changeCands ts ss@((s,(_,cb),(_,b)):_) = (s,(ts,cb),(candInfo ts,b)) : ss addtoClip :: Clip -> ECommand addtoClip t ss@((s,(ts,cb),(i,b)):_) = (s,(ts,t:cb),(i,b)) : ss +removeClip :: Int -> ECommand +removeClip n ss@((s,(ts,cb),(i,b)):_) = (s,(ts, drop n cb),(i,b)) : ss + changeMsg :: [String] -> ECommand changeMsg m ((s,ts,(_,b)):ss) = (s,ts,(m,b)) : ss -- just change message |