diff options
Diffstat (limited to 'src/GF/Visualization/VisualizeGrammar.hs')
| -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 |