diff options
| author | aarne <unknown> | 2004-04-23 13:45:07 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-04-23 13:45:07 +0000 |
| commit | 233d6910e4716f078876541bfbd4ce6163ffd0c8 (patch) | |
| tree | d81b2a452ab8d7f8081250f3d64448ee7e44b5cc /src/GF/CF | |
| parent | 2e0c510285ac1cabefea0ab68ffb1215d7297578 (diff) | |
ditt o datt
Diffstat (limited to 'src/GF/CF')
| -rw-r--r-- | src/GF/CF/PPrCF.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/CF/PPrCF.hs b/src/GF/CF/PPrCF.hs index a797daace..cdeab188b 100644 --- a/src/GF/CF/PPrCF.hs +++ b/src/GF/CF/PPrCF.hs @@ -30,12 +30,12 @@ prCFFun :: CFFun -> String prCFFun = prCFFun' True ---- False -- print profiles for debug prCFFun' :: Bool -> CFFun -> String -prCFFun' profs (CFFun (t, p)) = prt t ++ pp p where +prCFFun' profs (CFFun (t, p)) = prt_ t ++ pp p where pp p = if (not profs || normal p) then "" else "_" ++ concat (map show p) normal p = and [x==y && null b | ((b,x),y) <- zip p (map (:[]) [0..])] prCFCat :: CFCat -> String -prCFCat (CFCat (c,l)) = prt c ++ "-" ++ prt l ---- +prCFCat (CFCat (c,l)) = prt_ c ++ "-" ++ prt_ l ---- prCFItem (CFNonterm c) = prCFCat c prCFItem (CFTerm a) = prRegExp a |