diff --git a/haddock-api/src/Haddock/Interface.hs b/haddock-api/src/Haddock/Interface.hs index cdc3064e000692d0d005a35abc34e1007cbccfdb..f2d099b35f58459420371ba9f7b7c1ce24ecb0ad 100644 --- a/haddock-api/src/Haddock/Interface.hs +++ b/haddock-api/src/Haddock/Interface.hs @@ -49,20 +49,21 @@ import qualified Data.Set as Set import Distribution.Verbosity import System.Directory import System.FilePath -import System.IO import Text.Printf import Digraph import DynFlags hiding (verbosity) import Exception import GHC hiding (verbosity) +import HscTypes +import FastString (unpackFS) +import MonadUtils (liftIO) + #if defined(mingw32_HOST_OS) +import System.IO import GHC.IO.Encoding.CodePage (mkLocaleEncoding) import GHC.IO.Encoding.Failure (CodingFailureMode(TransliterateCodingFailure)) #endif -import HscTypes -import FastString (unpackFS) -import MonadUtils (liftIO) -- | Create 'Interface's and a link environment by typechecking the list of -- modules using the GHC API and processing the resulting syntax trees.