diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-12-13 20:19:47 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-12-13 20:19:47 +0000 |
| commit | b447cf1a047a6f6e1c4945e809bffa57c88a08af (patch) | |
| tree | 4b6792997f34b764796a8b787b3e8a9638c6ff49 /src/GF/GFCC/Macros.hs | |
| parent | a311dda5392ac1d019bc4f60bd94b37df01a1411 (diff) | |
new GFCC concrete syntax in place everywhere
Diffstat (limited to 'src/GF/GFCC/Macros.hs')
| -rw-r--r-- | src/GF/GFCC/Macros.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/GF/GFCC/Macros.hs b/src/GF/GFCC/Macros.hs index dd9d594d6..29d1f6947 100644 --- a/src/GF/GFCC/Macros.hs +++ b/src/GF/GFCC/Macros.hs @@ -1,8 +1,8 @@ module GF.GFCC.Macros where -import GF.GFCC.AbsGFCC +import GF.GFCC.Raw.AbsGFCCRaw (CId (..)) import GF.GFCC.DataGFCC -import GF.GFCC.PrintGFCC +----import GF.GFCC.PrintGFCC import Data.Map import Data.List @@ -83,9 +83,6 @@ term0 _ = TM kks :: String -> Term kks = K . KS -prt :: Print a => a -> String -prt = printTree - -- lookup with default value lookMap :: (Show i, Ord i) => a -> i -> Map i a -> a lookMap d c m = maybe d id $ Data.Map.lookup c m |