From 944eea8de9e077d1b3ee1a9edad9c52e9dbc2bd0 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 18 Jun 2008 16:26:12 +0000 Subject: system command pipes (sp) --- src-3.0/GF/Command/Abstract.hs | 6 ++++++ 1 file changed, 6 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 2b9ce5d1d..8643a649f 100644 --- a/src-3.0/GF/Command/Abstract.hs +++ b/src-3.0/GF/Command/Abstract.hs @@ -20,6 +20,7 @@ data Option data Value = VId Ident | VInt Integer + | VStr String deriving (Eq,Ord,Show) data Argument @@ -38,6 +39,11 @@ valIntOpts flag def opts = fromInteger $ case valOpts flag (VInt def) opts of VInt v -> v _ -> def +valStrOpts :: String -> String -> [Option] -> String +valStrOpts flag def opts = case valOpts flag (VStr def) opts of + VStr v -> v + _ -> def + valOpts :: String -> Value -> [Option] -> Value valOpts flag def opts = case lookup flag flags of Just v -> v -- cgit v1.2.3