diff options
| author | bringert <unknown> | 2004-11-24 18:07:04 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2004-11-24 18:07:04 +0000 |
| commit | 198c84c77fadeb58d5f66f4bd46e884cb7c6ea96 (patch) | |
| tree | 1af59dfbaabef8926ed0341a11bf0fa8e435fc4d /src | |
| parent | a16a420bedda8fcff69c8ecbe138ccb3a4f7a066 (diff) | |
Added case (error) for transfer modules.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Visualization/VisualizeGrammar.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/GF/Visualization/VisualizeGrammar.hs b/src/GF/Visualization/VisualizeGrammar.hs index 5c920e36d..5f5492b65 100644 --- a/src/GF/Visualization/VisualizeGrammar.hs +++ b/src/GF/Visualization/VisualizeGrammar.hs @@ -39,7 +39,9 @@ toNode i m = Node { M.MTAbstract -> (GrAbstract, Nothing) M.MTConcrete i -> (GrConcrete, Just (prIdent i)) 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.OSimple q i) = prIdent i |