[project @ 2000-04-10 13:31:00 by simonmar]

change Text to Show, several years too late

diff --git a/ghc/compiler/basicTypes/Module.lhs b/ghc/compiler/basicTypes/Module.lhs
index 9fcf38c..9ce8aa9 100644 (file)
--- a/ghc/compiler/basicTypes/Module.lhs
+++ b/ghc/compiler/basicTypes/Module.lhs
@@ -85,7 +85,7 @@ data DllFlavour = NotDll      -- Ordinary module
 dll    = Dll
 notDll = NotDll
 
-instance Text DllFlavour where -- Just used in debug prints of lex tokens
+instance Show DllFlavour where -- Just used in debug prints of lex tokens
   showsPrec n NotDll s = s
   showsPrec n Dll    s = "dll " ++ s
 \end{code}