msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

ml and tl

Browse Source
This commit is contained in:
aarne
2005-05-17 11:37:17 +00:00
parent 197c3029e3
commit 9cc8eb6905
6 changed files with 81 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/GF/Shell/ShellCommands.hs
View File

@@ -5,9 +5,9 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/05/13 12:40:20 $
-- > CVS $Author: peb $
-- > CVS $Revision: 1.34 $
-- > CVS $Date: 2005/05/17 12:37:17 $
-- > CVS $Author: aarne $
-- > CVS $Revision: 1.35 $
--
-- The datatype of shell commands and the list of their options.
-----------------------------------------------------------------------------
@@ -53,9 +53,9 @@ data Command =
| CShowOpers String
| CTranslationQuiz Language Language
| CTranslationList Language Language Int
| CTranslationList Language Language
| CMorphoQuiz
| CMorphoList Int
| CMorphoList
| CReadFile FilePath
| CWriteFile FilePath
@@ -180,9 +180,9 @@ optionsOfCommand co = case co of
CShowOpers _ -> flags "res"
CTranslationQuiz _ _ -> flags "cat"
CTranslationList _ _ _ -> flags "cat"
CTranslationList _ _ -> flags "cat number"
CMorphoQuiz -> flags "cat lang"
CMorphoList _ -> flags "cat lang"
CMorphoList -> flags "cat lang number"
CReadFile _ -> none
CWriteFile _ -> none