From 239f310eb560763c215400a41af7e21fa0f2d51f Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 24 Jun 2008 13:58:04 +0000
Subject: cp1251 coding ; trying to recognize the coding flag in grammar

---
 src-3.0/GF/Command/Abstract.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src-3.0/GF/Command/Abstract.hs')

diff --git a/src-3.0/GF/Command/Abstract.hs b/src-3.0/GF/Command/Abstract.hs
index 23f76fa82..16905c2f9 100644
--- 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
+
+
 
-- 
cgit v1.2.3