diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-27 09:09:29 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-27 09:09:29 +0000 |
| commit | f7b2a83059697f1b36a6369e489ac276e7ff875d (patch) | |
| tree | 76e8394432f8f8a3c11b00e96cf65fa4f722d580 /src/GF/Command/Interpreter.hs | |
| parent | e8dc8c3ef5fa82c6bbab7ae8c7a4c75003af48c9 (diff) | |
version-related changes in Makefile and help
Diffstat (limited to 'src/GF/Command/Interpreter.hs')
| -rw-r--r-- | src/GF/Command/Interpreter.hs | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/src/GF/Command/Interpreter.hs b/src/GF/Command/Interpreter.hs index db4192001..f4e3e220d 100644 --- a/src/GF/Command/Interpreter.hs +++ b/src/GF/Command/Interpreter.hs @@ -116,10 +116,3 @@ getCommandArg env a ts = case a of ATree t -> [t] -- ignore piped ANoArg -> ts -- use piped --- abbreviation convention from gf commands -getCommandOp s = case break (=='_') s of - (a:_,_:b:_) -> [a,b] -- axx_byy --> ab - _ -> case s of - [a,b] -> s -- ab --> ab - a:_ -> [a] -- axx --> a - |