mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-20 08:32:50 -06:00
prompt and CPU time in experimental shell
This commit is contained in:
@@ -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)))]
|
||||
|
||||
Reference in New Issue
Block a user