diff options
author | davve <davve@dtek.chalmers.se> | 2006-09-22 18:07:07 +0000 |
---|---|---|
committer | davve <davve@dtek.chalmers.se> | 2006-09-22 18:07:07 +0000 |
commit | 9d0f9d3afa6189f1f223f6f9b728e5f0ec41dc17 (patch) | |
tree | 3e94350eeadb155c206a364b624d5631412272ab /src/HaddockHtml.hs | |
parent | e5a97767214b55e2f90359a2654e741970c38a4d (diff) |
Make import list in HaddockHtml prettier
Diffstat (limited to 'src/HaddockHtml.hs')
-rw-r--r-- | src/HaddockHtml.hs | 24 |
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) |