prompt and CPU time in experimental shell

This commit is contained in:
aarne
2007-11-06 17:27:20 +00:00
parent 6a716b0f68
commit d12728dae2
3 changed files with 29 additions and 6 deletions

View File

@@ -112,6 +112,11 @@ readTree _ = pTree
showTree = prExp
prIdent :: CId -> String
prIdent (CId s) = s
abstractName mgr = prIdent (absname (gfcc mgr))
languages mgr = [l | CId l <- cncnames (gfcc mgr)]
categories mgr = [c | CId c <- Map.keys (cats (abstract (gfcc mgr)))]