From e25d29f27d8682e5bf44992433458cbeb4afd98e Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Wed, 24 Nov 2004 18:07:04 +0000
Subject: [PATCH] Added case (error) for transfer modules.

---
 src/GF/Visualization/VisualizeGrammar.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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