[project @ 2000-10-26 14:38:42 by simonmar]

[ghc-hetmet.git] / ghc / compiler / main / MkIface.lhs

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index 1172df3..b16a95a 100644 (file)
--- a/ghc/compiler/main/MkIface.lhs
+++ b/ghc/compiler/main/MkIface.lhs
@@ -5,7 +5,8 @@
 
 \begin{code}
 module MkIface ( 
-       mkModDetails, mkModDetailsFromIface, completeIface, writeIface
+       mkModDetails, mkModDetailsFromIface, completeIface, 
+       writeIface, pprIface
   ) where
 
 #include "HsVersions.h"
@@ -266,7 +267,7 @@ ifaceTyCls (AnId id)
 %*                                                                     *
 %************************************************************************
 
-\begin{code}                    
+\begin{code}
 ifaceInstance :: DFunId -> RenamedInstDecl
 ifaceInstance dfun_id
   = InstDecl (toHsType tidy_ty) EmptyMonoBinds [] (Just (getName dfun_id)) noSrcLoc                     
@@ -621,6 +622,7 @@ writeIface finder (Just mod_iface)
   where
     mod_name = moduleName (mi_module mod_iface)
         
+pprIface :: ModIface -> SDoc
 pprIface iface
  = vcat [ ptext SLIT("__interface")
                <+> doubleQuotes (ptext opt_InPackage)