GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

Added case (error) for transfer modules.

Browse Source
This commit is contained in:
bringert
2004-11-24 18:07:04 +00:00
parent c1b4224363
commit e25d29f27d
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Visualization/VisualizeGrammar.hs
View File

@@ -39,7 +39,9 @@ toNode i m = Node {
M.MTAbstract -> (GrAbstract, Nothing) M.MTAbstract -> (GrAbstract, Nothing)
M.MTConcrete i -> (GrConcrete, Just (prIdent i)) M.MTConcrete i -> (GrConcrete, Just (prIdent i))
M.MTResource -> (GrResource, Nothing) M.MTResource -> (GrResource, Nothing)
-- FIXME: transfer and resource M.MTTransfer _ _ ->
-- FIXME
error "Can't visualize transfer modules yet"
openName :: M.OpenSpec Ident -> String openName :: M.OpenSpec Ident -> String
openName (M.OSimple q i) = prIdent i openName (M.OSimple q i) = prIdent i