cp1251 coding ; trying to recognize the coding flag in grammar

2008-06-24 13:58:04 +00:00
parent c122bc52d8
commit 2038b776af
5 changed files with 42 additions and 11 deletions
--- a/src-3.0/GF/Command/Abstract.hs
+++ b/src-3.0/GF/Command/Abstract.hs
@@ -60,4 +60,8 @@ isFlag o opts = elem o [x | OFlag x _ <- opts]
 prOpt :: Option -> String
 prOpt (OOpt i) = i ----

+mkOpt :: String -> Option
+mkOpt = OOpt
+
+