diff options
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 |