From 5ae7be358daf169a3852d93f36c30c4ce7d0363e Mon Sep 17 00:00:00 2001 From: krasimir Date: Thu, 1 Jul 2010 08:51:59 +0000 Subject: redesign the open-literals API --- src/runtime/haskell/PGF/Macros.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'src/runtime/haskell/PGF/Macros.hs') diff --git a/src/runtime/haskell/PGF/Macros.hs b/src/runtime/haskell/PGF/Macros.hs index f0d9b92a8..95bc82aef 100644 --- a/src/runtime/haskell/PGF/Macros.hs +++ b/src/runtime/haskell/PGF/Macros.hs @@ -48,7 +48,7 @@ lookGlobalFlag pgf f = Map.lookup f (gflags pgf) lookAbsFlag :: PGF -> CId -> Maybe Literal lookAbsFlag pgf f = Map.lookup f (aflags (abstract pgf)) -lookConcr :: PGF -> CId -> Concr +lookConcr :: PGF -> Language -> Concr lookConcr pgf cnc = lookMap (error $ "Missing concrete syntax: " ++ showCId cnc) cnc $ concretes pgf @@ -127,9 +127,6 @@ combinations t = case t of [] -> [[]] aa:uu -> [a:u | a <- aa, u <- combinations uu] -isLiteralCat :: CId -> Bool -isLiteralCat = (`elem` [cidString, cidFloat, cidInt, cidVar]) - cidString = mkCId "String" cidInt = mkCId "Int" cidFloat = mkCId "Float" -- cgit v1.2.3