diff options
| author | bringert <unknown> | 2005-03-08 14:49:24 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2005-03-08 14:49:24 +0000 |
| commit | e19f8f8922dc9704c7cc8e6156f2a475b9627439 (patch) | |
| tree | 7539dc73107668e8d8ed112712db0da112bafe7f /src/GF/Canon | |
| parent | 7194efcea85e6a1d16b35fd2ad268dfc675a1b24 (diff) | |
Switched to doing utf8-conversion after pretty-printing.
Diffstat (limited to 'src/GF/Canon')
| -rw-r--r-- | src/GF/Canon/GFC.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/GF/Canon/GFC.hs b/src/GF/Canon/GFC.hs index c29e77c73..54b905ca5 100644 --- a/src/GF/Canon/GFC.hs +++ b/src/GF/Canon/GFC.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/03/08 15:31:22 $ +-- > CVS $Date: 2005/03/08 15:49:24 $ -- > CVS $Author: bringert $ --- > CVS $Revision: 1.8 $ +-- > CVS $Revision: 1.9 $ -- -- canonical GF. AR 10\/9\/2002 -- 9\/5\/2003 -- 21\/9 ----------------------------------------------------------------------------- @@ -20,8 +20,8 @@ module GFC (Context, Info(..), Printname, mapInfoTerms, - setFlag, - mapIdents + setFlag +-- , mapIdents ) where import AbsGFC @@ -71,6 +71,7 @@ mapInfoTerms f i = case i of setFlag :: String -> String -> [Flag] -> [Flag] setFlag n v fs = Flg (IC n) (IC v):[f | f@(Flg (IC n') _) <- fs, n' /= n] +{- -- | Apply a function to all identifiers in a module mapIdents :: (Ident -> Ident) -> M.ModInfo Ident Flag Info -> M.ModInfo Ident Flag Info mapIdents f mi = case mi of @@ -156,6 +157,7 @@ mapIdents f mi = case mi of fav av = case av of A i x -> A (f i) x AB i x y -> AB (f i) x y +-} {- fat :: A.Term -> A.Term fat t = case t of |