From 2ad606aaea58bce57ebb1681831514caf6ff56a3 Mon Sep 17 00:00:00 2001
From: David Waern <unknown>
Date: Wed, 29 Aug 2007 23:26:24 +0000
Subject: Rename HaddockModule to Interface and a few more refactorings

---
 src/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index c127f773..b12c7850 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -92,7 +92,7 @@ handleGhcExceptions inner =
 
 
 -------------------------------------------------------------------------------
--- Top-level
+-- Top level
 -------------------------------------------------------------------------------
 
 
@@ -142,7 +142,7 @@ main = handleTopExceptions $ do
 
 
 -- | Render the interfaces with whatever backend is specified in the flags 
-render :: [Flag] -> [HaddockModule] -> IO ()
+render :: [Flag] -> [Interface] -> IO ()
 render flags interfaces = do
   let
     title = case [str | Flag_Heading str <- flags] of
-- 
cgit v1.2.3