aboutsummaryrefslogtreecommitdiff
path: root/src/HaddockHtml.hs
diff options
context:
space:
mode:
authordavve <davve@dtek.chalmers.se>2006-09-22 18:07:07 +0000
committerdavve <davve@dtek.chalmers.se>2006-09-22 18:07:07 +0000
commit9d0f9d3afa6189f1f223f6f9b728e5f0ec41dc17 (patch)
tree3e94350eeadb155c206a364b624d5631412272ab /src/HaddockHtml.hs
parente5a97767214b55e2f90359a2654e741970c38a4d (diff)
Make import list in HaddockHtml prettier
Diffstat (limited to 'src/HaddockHtml.hs')
-rw-r--r--src/HaddockHtml.hs24
1 files changed, 12 insertions, 12 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index 1cf6966a..9e976269 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -22,27 +22,27 @@ import HaddockVersion
import Html
import qualified Html
-import Control.Exception ( bracket )
-import Control.Monad ( when, unless )
-import Data.Char ( isUpper, toUpper )
-import Data.List ( sortBy )
-import Data.Maybe ( fromJust, isJust, mapMaybe, fromMaybe )
+import Control.Exception ( bracket )
+import Control.Monad ( when, unless )
+import Data.Char ( isUpper, toUpper )
+import Data.List ( sortBy )
+import Data.Maybe ( fromJust, isJust, mapMaybe, fromMaybe )
import Foreign.Marshal.Alloc ( allocaBytes )
-import System.IO ( IOMode(..), hClose, hGetBuf, hPutBuf, openFile )
-import Debug.Trace ( trace )
-import Data.Map ( Map )
+import System.IO ( IOMode(..), hClose, hGetBuf, hPutBuf, openFile )
+import Debug.Trace ( trace )
+import Data.Map ( Map )
import qualified Data.Map as Map hiding ( Map )
import GHC
import Name
import Module
-import PackageConfig ( stringToPackageId )
+import PackageConfig ( stringToPackageId )
import RdrName hiding ( Qual )
import SrcLoc
-import FastString ( unpackFS )
-import BasicTypes ( IPName(..), Boxity(..) )
+import FastString ( unpackFS )
+import BasicTypes ( IPName(..), Boxity(..) )
import Kind
-import Outputable ( ppr, defaultUserStyle )
+import Outputable ( ppr, defaultUserStyle, showSDoc )
-- the base, module and entity URLs for the source code and wiki links.
type SourceURLs = (Maybe String, Maybe String, Maybe String)