diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-03-31 13:20:40 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-03-31 13:20:40 +0000 |
| commit | ae30eca84446f8968341275518fe263660ec0534 (patch) | |
| tree | 5a2525324fded7b07ca987817da0a73c14b77448 /src/GF/Canon | |
| parent | 0b3af5175e7cc7663a97d3453d6184ec75c264ae (diff) | |
gt -noexpand
Diffstat (limited to 'src/GF/Canon')
| -rw-r--r-- | src/GF/Canon/CMacros.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/GF/Canon/CMacros.hs b/src/GF/Canon/CMacros.hs index a61430512..572f09763 100644 --- a/src/GF/Canon/CMacros.hs +++ b/src/GF/Canon/CMacros.hs @@ -50,6 +50,13 @@ noMark :: Marker noMark = defTMarker mk where mk _ _ _ = ("","") +-- | mark metas with their categories +metaCatMark :: Marker +metaCatMark = defTMarker mk where + mk nod _ _ = case nod of + V.N (_,V.AtM _,val,_,_) -> ("", '+':prt val) + _ -> ("","") + -- | for vanilla brackets, focus, and position, use markBracket :: Marker markBracket = defTMarker mk where |