packages feed

haddock 2.24.2 → 2.25.0

raw patch · 341 files changed

+4571/−2717 lines, 341 filesdep +exceptionsdep +mtldep ~basedep ~ghcdep ~haddock-api

Dependencies added: exceptions, mtl

Dependency ranges changed: base, ghc, haddock-api

Files

CHANGES.md view
@@ -1,6 +1,25 @@-## Changes in 2.24.1+## Changes in 2.25.0 - * Add support for labeled module references (#1360)+ * Fix crash in `haddock-library` on unicode space (#1144)++ * Disallow qualified uses of reserved identifiers (#1145)++ * Disallow links in section headers (#1147)++ * Prune docstrings that are never rendered (#1161)++ * Don't warn about missing links in miminal sigs (#1161)++ * Add support for custom section anchors (#1179)++ * Adapt Haddock to LinearTypes language extension++ * Adapt Haddock to QualifiedDo language extensions++ * Allow scrolling in QuickJump search results (#1235)++ * Parallel Haddock. Pass -jn (where n is the number of threads)+   to typecheck modules in parallel (#1323)  ## Changes in 2.24.0
README.md view
@@ -1,4 +1,4 @@-# Haddock [![CI][CI badge]][CI page] [![Hackage][Hackage badge]][Hackage page]+# Haddock ![CI][CI] [![Hackage][Hackage badge]][Hackage page]  Haddock is the standard tool for generating documentation from Haskell code. Full documentation about Haddock itself can be found in the `doc/` subdirectory,@@ -21,79 +21,11 @@  ## Contributing -Please create issues when you have any problems and pull requests if you have-some code.+See [CONTRIBUTING.md](CONTRIBUTING.md) to see how to make contributions to the+project. -## Hacking -To get started you'll need the latest GHC release installed.--Clone the repository:--```bash-git clone https://github.com/haskell/haddock.git-cd haddock-```--and then proceed using your favourite build tool.--Note: before building `haddock`, you need to build the subprojects-`haddock-library` and `haddock-api`, in this order!-The `cabal v2-build` takes care of this automatically.--#### Using [`cabal v2-build`][cabal v2]--```bash-cabal v2-build -w ghc-8.10.1-cabal v2-test -w ghc-8.10.1 all-```--#### Using `stack`--```bash-stack init-stack build-export HADDOCK_PATH="$(stack exec which haddock)"-stack test-```--#### Using Cabal sandboxes (deprecated)--```bash-cabal sandbox init-cabal sandbox add-source haddock-library-cabal sandbox add-source haddock-api-cabal sandbox add-source haddock-test-# adjust -j to the number of cores you want to use-cabal install -j4 --dependencies-only --enable-tests-cabal configure --enable-tests-cabal build -j4-# run the test suite-export HADDOCK_PATH="dist/build/haddock/haddock"-cabal test-```--### Git Branches--If you're a GHC developer and want to update Haddock to work with your changes,-you should be working on the `ghc-head` branch. See instructions at-<https://gitlab.haskell.org/ghc/ghc/-/wikis/working-conventions/git/submodules>-for an example workflow.--### Updating golden testsuite outputs--If you've changed Haddock's output, you will probably need to accept the new-output of Haddock's golden test suites (`html-test`, `latex-test`,-`hoogle-test`, and `hypsrc-test`). This can be done by passing the `--accept`-argument to these test suites. With a new enough version of `cabal-install`:--```-cabal v2-test html-test latex-test hoogle-test hypsrc-test \-  --test-option='--accept'-```--[CI page]: https://travis-ci.org/haskell/haddock-[CI badge]: https://travis-ci.org/haskell/haddock.svg?branch=ghc-8.10+[CI]: https://github.com/haskell/haddock/workflows/CI/badge.svg?branch=ghc-9.0 [Hackage page]: https://hackage.haskell.org/package/haddock [Hackage badge]: https://img.shields.io/hackage/v/haddock.svg [ReST]: http://www.sphinx-doc.org/en/stable/rest.html
doc/intro.rst view
@@ -25,7 +25,7 @@    The easier it is to write documentation, the more likely the    programmer is to do it. Haddock therefore uses lightweight markup in    its annotations, taking several ideas from-   `IDoc <http://www.cse.unsw.edu.au/~chak/haskell/idoc/>`__. In fact,+   `IDoc <http://freshmeat.sourceforge.net/projects/idoc/>`__. In fact,    Haddock can understand IDoc-annotated source code.  -  The documentation should not expose any of the structure of the@@ -149,11 +149,11 @@ Several documentation systems provided the inspiration for Haddock, most notably: --  `IDoc <http://www.cse.unsw.edu.au/~chak/haskell/idoc/>`__+-  `IDoc <http://freshmeat.sourceforge.net/projects/idoc/>`__ --  `HDoc <http://www.fmi.uni-passau.de/~groessli/hdoc/>`__+-  `HDoc <https://web.archive.org/web/20010603070527/http://www.fmi.uni-passau.de/~groessli/hdoc/>`__ --  `Doxygen <http://www.stack.nl/~dimitri/doxygen/>`__+-  `Doxygen <https://www.doxygen.nl/index.html>`__  and probably several others I've forgotten.
haddock-api/src/Haddock.hs view
@@ -55,27 +55,25 @@ import qualified Data.Map as Map import System.IO import System.Exit+import System.FilePath  #ifdef IN_GHC_TREE-import System.FilePath import System.Environment (getExecutablePath) #else import qualified GHC.Paths as GhcPaths import Paths_haddock_api (getDataDir) #endif import System.Directory (doesDirectoryExist, getTemporaryDirectory)-import System.FilePath ((</>))  import Text.ParserCombinators.ReadP (readP_to_S) import GHC hiding (verbosity)-import Config-import DynFlags hiding (projectVersion, verbosity)-import ErrUtils-import Packages-import Panic (handleGhcException)-import Module-import FastString-import Outputable (defaultUserStyle)+import GHC.Settings.Config+import GHC.Driver.Session hiding (projectVersion, verbosity)+import GHC.Utils.Outputable (defaultUserStyle, withPprStyle)+import GHC.Utils.Error+import GHC.Unit+import GHC.Utils.Panic (handleGhcException)+import GHC.Data.FastString  -------------------------------------------------------------------------------- -- * Exception handling@@ -154,12 +152,17 @@   sinceQual <- rightOrThrowE (sinceQualification flags)    -- inject dynamic-too into flags before we proceed-  flags' <- ghc flags $ do+  flags'' <- ghc flags $ do         df <- getDynFlags         case lookup "GHC Dynamic" (compilerInfo df) of           Just "YES" -> return $ Flag_OptGhc "-dynamic-too" : flags           _ -> return flags +  flags' <- pure $ case optParCount flags'' of+    Nothing       -> flags''+    Just Nothing  -> Flag_OptGhc "-j" : flags''+    Just (Just n) -> Flag_OptGhc ("-j" ++ show n) : flags''+   -- bypass the interface version check   let noChecks = Flag_BypassInterfaceVersonCheck `elem` flags @@ -185,7 +188,7 @@     forM_ (optShowInterfaceFile flags) $ \path -> liftIO $ do       mIfaceFile <- readInterfaceFiles freshNameCache [(("", Nothing), path)] noChecks       forM_ mIfaceFile $ \(_, ifaceFile) -> do-        logOutput dflags (defaultUserStyle dflags) (renderJson (jsonInterfaceFile ifaceFile))+        logOutput dflags $ withPprStyle defaultUserStyle (renderJson (jsonInterfaceFile ifaceFile))      if not (null files) then do       (packages, ifaces, homeLinks) <- readPackagesAndProcessModules flags files@@ -286,6 +289,7 @@     opt_latex_style      = optLaTeXStyle     flags     opt_source_css       = optSourceCssFile  flags     opt_mathjax          = optMathjax        flags+    pkgs                 = unitState dflags     dflags'       | unicode          = gopt_set dflags Opt_PrintUnicodeSyntax       | otherwise        = dflags@@ -297,8 +301,8 @@     allVisibleIfaces = [ i | i <- allIfaces, OptHide `notElem` instOptions i ]      pkgMod           = fmap ifaceMod (listToMaybe ifaces)-    pkgKey           = fmap moduleUnitId pkgMod-    pkgStr           = fmap unitIdString pkgKey+    pkgKey           = fmap moduleUnit pkgMod+    pkgStr           = fmap unitString pkgKey     pkgNameVer       = modulePackageInfo dflags flags pkgMod     pkgName          = fmap (unpackFS . (\(PackageName n) -> n)) (fst pkgNameVer)     sincePkg         = case sinceQual of@@ -315,7 +319,7 @@       (Map.map SrcExternal extSrcMap)       (Map.fromList [ (ifaceMod iface, SrcLocal) | iface <- ifaces ]) -    pkgSrcMap = Map.mapKeys moduleUnitId extSrcMap+    pkgSrcMap = Map.mapKeys moduleUnit extSrcMap     pkgSrcMap'       | Flag_HyperlinkedSource `elem` flags       , Just k <- pkgKey@@ -344,11 +348,11 @@     -- records the *wired in* identity base.  So untranslate it     -- so that we can service the request.     unwire :: Module -> Module-    unwire m = m { moduleUnitId = unwireUnitId dflags (moduleUnitId m) }+    unwire m = m { moduleUnit = unwireUnit (unitState dflags) (moduleUnit m) }    reexportedIfaces <- concat `fmap` (for (reexportFlags flags) $ \mod_str -> do     let warn = hPutStrLn stderr . ("Warning: " ++)-    case readP_to_S parseModuleId mod_str of+    case readP_to_S parseHoleyModule mod_str of       [(m, "")]         | Just iface <- Map.lookup m installedMap         -> return [iface]@@ -375,7 +379,7 @@   when (Flag_GenContents `elem` flags) $ do     withTiming dflags' "ppHtmlContents" (const ()) $ do       _ <- {-# SCC ppHtmlContents #-}-           ppHtmlContents dflags' odir title pkgStr+           ppHtmlContents pkgs odir title pkgStr                      themes opt_mathjax opt_index_url sourceUrls' opt_wiki_urls                      allVisibleIfaces True prologue pretty                      sincePkg (makeContentsQual qual)@@ -385,7 +389,7 @@   when (Flag_Html `elem` flags) $ do     withTiming dflags' "ppHtml" (const ()) $ do       _ <- {-# SCC ppHtml #-}-           ppHtml dflags' title pkgStr visibleIfaces reexportedIfaces odir+           ppHtml pkgs title pkgStr visibleIfaces reexportedIfaces odir                   prologue                   themes opt_mathjax sourceUrls' opt_wiki_urls                   opt_contents_url opt_index_url unicode sincePkg qual
haddock-api/src/Haddock/Backends/Hoogle.hs view
@@ -18,19 +18,20 @@     ppHoogle   ) where -import BasicTypes ( OverlapFlag(..), OverlapMode(..), SourceText(..)+import GHC.Types.Basic ( OverlapFlag(..), OverlapMode(..), SourceText(..)                   , PromotionFlag(..), TopLevelFlag(..) )-import InstEnv (ClsInst(..))+import GHC.Core.InstEnv (ClsInst(..)) import Documentation.Haddock.Markup import Haddock.GhcUtils import Haddock.Types hiding (Version) import Haddock.Utils hiding (out)  import GHC-import Outputable+import GHC.Utils.Outputable as Outputable+import GHC.Parser.Annotation (IsUnicodeSyntax(..))  import Data.Char-import Data.List (isPrefixOf, intercalate)+import Data.List (intercalate, isPrefixOf) import Data.Maybe import Data.Version @@ -72,12 +73,12 @@ dropHsDocTy = f     where         g (L src x) = L src (f x)-        f (HsForAllTy x fvf a e) = HsForAllTy x fvf a (g e)+        f (HsForAllTy x a e) = HsForAllTy x a (g e)         f (HsQualTy x a e) = HsQualTy x a (g e)         f (HsBangTy x a b) = HsBangTy x a (g b)         f (HsAppTy x a b) = HsAppTy x (g a) (g b)         f (HsAppKindTy x a b) = HsAppKindTy x (g a) (g b)-        f (HsFunTy x a b) = HsFunTy x (g a) (g b)+        f (HsFunTy x w a b) = HsFunTy x w (g a) (g b)         f (HsListTy x a) = HsListTy x (g a)         f (HsTupleTy x a b) = HsTupleTy x a (map g b)         f (HsOpTy x a b c) = HsOpTy x (g a) b (g c)@@ -196,7 +197,6 @@               -- for Hoogle, so pretend it doesn't have any.               ClosedTypeFamily{} -> decl { fdInfo = OpenTypeFamily }               _                  -> decl-ppFam _ (XFamilyDecl nec) = noExtCon nec  ppInstance :: DynFlags -> ClsInst -> [String] ppInstance dflags x =@@ -238,30 +238,29 @@   -- AZ:TODO get rid of the concatMap    = concatMap (lookupCon dflags subdocs) [con_name con] ++ f (getConArgs con)     where-        f (PrefixCon args) = [typeSig name $ args ++ [resType]]+        f (PrefixCon args) = [typeSig name $ (map hsScaledThing args) ++ [resType]]         f (InfixCon a1 a2) = f $ PrefixCon [a1,a2]-        f (RecCon (L _ recs)) = f (PrefixCon $ map cd_fld_type (map unLoc recs)) ++ concat+        f (RecCon (L _ recs)) = f (PrefixCon $ map (hsLinear . cd_fld_type . unLoc) recs) ++ concat                           [(concatMap (lookupCon dflags subdocs . noLoc . extFieldOcc . unLoc) (cd_fld_names r)) ++                            [out dflags (map (extFieldOcc . unLoc) $ cd_fld_names r) `typeSig` [resType, cd_fld_type r]]                           | r <- map unLoc recs] -        funs = foldr1 (\x y -> noLoc $ HsFunTy noExtField x y)-        apps = foldl1 (\x y -> noLoc $ HsAppTy noExtField x y)+        funs = foldr1 (\x y -> reL $ HsFunTy noExtField (HsUnrestrictedArrow NormalSyntax) x y)+        apps = foldl1 (\x y -> reL $ HsAppTy noExtField x y) -        typeSig nm flds = operator nm ++ " :: " ++ outHsType dflags (unLoc $ funs flds)+        typeSig nm flds = operator nm ++ " :: " ++ outHsType dflags (unL $ funs flds)          -- We print the constructors as comma-separated list. See GHC         -- docs for con_names on why it is a list to begin with.         name = commaSeparate dflags . map unLoc $ getConNames con -        resType = let c  = HsTyVar noExtField NotPromoted (noLoc (tcdName dat))-                      as = map (tyVarBndr2Type . unLoc) (hsQTvExplicit $ tyClDeclTyVars dat)-                  in apps (map noLoc (c : as))+        tyVarArg (UserTyVar _ _ n) = HsTyVar noExtField NotPromoted n+        tyVarArg (KindedTyVar _ _ n lty) = HsKindSig noExtField (reL (HsTyVar noExtField NotPromoted n)) lty+        tyVarArg _ = panic "ppCtor" -        tyVarBndr2Type :: HsTyVarBndr GhcRn -> HsType GhcRn-        tyVarBndr2Type (UserTyVar _ n) = HsTyVar noExtField NotPromoted n-        tyVarBndr2Type (KindedTyVar _ n k) = HsKindSig noExtField (noLoc (HsTyVar noExtField NotPromoted n)) k-        tyVarBndr2Type (XTyVarBndr nec) = noExtCon nec+        resType = apps $ map reL $+                        (HsTyVar noExtField NotPromoted (reL (tcdName dat))) :+                        map (tyVarArg . unLoc) (hsQTvExplicit $ tyClDeclTyVars dat)  ppCtor dflags _dat subdocs con@(ConDeclGADT { })    = concatMap (lookupCon dflags subdocs) (getConNames con) ++ f@@ -270,7 +269,6 @@          typeSig nm ty = operator nm ++ " :: " ++ outHsType dflags (unLoc ty)         name = out dflags $ map unLoc $ getConNames con-ppCtor _ _ _ (XConDecl nec) = noExtCon nec  ppFixity :: DynFlags -> (Name, Fixity) -> [String] ppFixity dflags (name, fixity) = [out dflags ((FixitySig noExtField [noLoc name] fixity) :: FixitySig GhcRn)]
haddock-api/src/Haddock/Backends/Hyperlinker.hs view
@@ -18,14 +18,14 @@ import System.Directory import System.FilePath -import HieTypes       ( HieFile(..), HieAST(..), HieASTs(..), NodeInfo(..) )-import HieBin         ( readHieFile, hie_file_result)+import GHC.Iface.Ext.Types  ( HieFile(..), HieASTs(..), HieAST(..), SourcedNodeInfo(..) )+import GHC.Iface.Ext.Binary ( readHieFile, hie_file_result, NameCacheUpdater(..))+import GHC.Types.SrcLoc     ( realSrcLocSpan, mkRealSrcLoc ) import Data.Map as M-import FastString     ( mkFastString )-import Module         ( Module, moduleName )-import NameCache      ( initNameCache )-import SrcLoc         ( mkRealSrcLoc, realSrcLocSpan )-import UniqSupply     ( mkSplitUniqSupply )+import GHC.Data.FastString     ( mkFastString )+import GHC.Unit.Module         ( Module, moduleName )+import GHC.Types.Name.Cache    ( initNameCache )+import GHC.Types.Unique.Supply ( mkSplitUniqSupply )   -- | Generate hyperlinked source for given interfaces.@@ -58,12 +58,14 @@     Just hfp -> do         -- Parse the GHC-produced HIE file         u <- mkSplitUniqSupply 'a'+        let nc = (initNameCache u [])+            ncu = NCU $ \f -> pure $ snd $ f nc         HieFile { hie_hs_file = file                 , hie_asts = HieASTs asts                 , hie_types = types                 , hie_hs_src = rawSrc-                } <- (hie_file_result . fst)-                 <$> (readHieFile (initNameCache u []) hfp)+                } <- hie_file_result+                 <$> (readHieFile ncu hfp)          -- Get the AST and tokens corresponding to the source file we want         let fileFs = mkFastString file@@ -87,15 +89,10 @@     render' = render (Just srcCssFile) (Just highlightScript) srcs     path = srcdir </> hypSrcModuleFile (ifaceMod iface) -    emptyNodeInfo = NodeInfo-      { nodeAnnotations = mempty-      , nodeType = []-      , nodeIdentifiers = mempty-      }     emptyHieAst fileFs = Node-      { nodeInfo = emptyNodeInfo-      , nodeSpan = realSrcLocSpan (mkRealSrcLoc fileFs 1 0)+      { nodeSpan = realSrcLocSpan (mkRealSrcLoc fileFs 1 0)       , nodeChildren = []+      , sourcedNodeInfo = SourcedNodeInfo mempty       }  -- | Name of CSS file in output directory.
haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs view
@@ -3,21 +3,24 @@ {-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-} module Haddock.Backends.Hyperlinker.Parser (parse) where +import Control.Monad.Trans.Maybe+import Control.Monad.Trans.Class import Control.Applicative ( Alternative(..) ) import Data.List           ( isPrefixOf, isSuffixOf )  import qualified Data.ByteString as BS -import BasicTypes          ( IntegralLit(..) )-import DynFlags-import ErrUtils            ( pprLocErrMsg )-import FastString          ( mkFastString )-import Lexer               ( P(..), ParseResult(..), PState(..), Token(..)-                           , mkPStatePure, lexer, mkParserFlags', getErrorMessages, addFatalError )-import Bag                 ( bagToList )-import Outputable          ( showSDoc, panic, text, ($$) )-import SrcLoc-import StringBuffer        ( StringBuffer, atEnd )+import GHC.Types.Basic     ( IntegralLit(..) )+import GHC.Driver.Session+import GHC.Utils.Error     ( pprLocErrMsg )+import GHC.Data.FastString ( mkFastString )+import GHC.Parser.Lexer    as Lexer+                           ( P(..), ParseResult(..), PState(..), Token(..)+                           , mkPStatePure, lexer, mkParserFlags', getErrorMessages)+import GHC.Data.Bag         ( bagToList )+import GHC.Utils.Outputable ( showSDoc, panic, text, ($$) )+import GHC.Types.SrcLoc+import GHC.Data.StringBuffer ( StringBuffer, atEnd )  import Haddock.Backends.Hyperlinker.Types as T import Haddock.GhcUtils@@ -44,7 +47,7 @@     start = mkRealSrcLoc (mkFastString fpath) 1 1     pflags = mkParserFlags' (warningFlags dflags)                             (extensionFlags dflags)-                            (thisPackage dflags)+                            (homeUnitId dflags)                             (safeImportsOn dflags)                             False -- lex Haddocks as comment tokens                             True  -- produce comment tokens@@ -57,7 +60,10 @@       (b, _) <- getInput       if not (atEnd b)         then do-          (newToks, inPrag') <- parseCppLine <|> parsePlainTok inPrag <|> unknownLine+          mtok <- runMaybeT (parseCppLine <|> parsePlainTok inPrag)+          (newToks, inPrag') <- case mtok of+            Nothing -> unknownLine+            Just a -> pure a           go inPrag' (newToks ++ toks)         else           pure toks@@ -65,36 +71,36 @@     -- | Like 'Lexer.lexer', but slower, with a better API, and filtering out empty tokens     wrappedLexer :: P (RealLocated Lexer.Token)     wrappedLexer = Lexer.lexer False andThen-      where andThen (L (RealSrcSpan s) t)+      where andThen (L (RealSrcSpan s _) t)               | srcSpanStartLine s /= srcSpanEndLine s ||                 srcSpanStartCol s /= srcSpanEndCol s               = pure (L s t)-            andThen (L (RealSrcSpan s) ITeof) = pure (L s ITeof)+            andThen (L (RealSrcSpan s _) ITeof) = pure (L s ITeof)             andThen _ = wrappedLexer      -- | Try to parse a CPP line (can fail)-    parseCppLine :: P ([T.Token], Bool)-    parseCppLine = do+    parseCppLine :: MaybeT P ([T.Token], Bool)+    parseCppLine = MaybeT $ do       (b, l) <- getInput       case tryCppLine l b of         Just (cppBStr, l', b')              -> let cppTok = T.Token { tkType = TkCpp                                      , tkValue = cppBStr                                      , tkSpan = mkRealSrcSpan l l' }-                in setInput (b', l') *> pure ([cppTok], False)-        _    -> empty+                in setInput (b', l') *> pure (Just ([cppTok], False))+        _    -> return Nothing      -- | Try to parse a regular old token (can fail)-    parsePlainTok :: Bool -> P ([T.Token], Bool)  -- return list is only ever 0-2 elements+    parsePlainTok :: Bool -> MaybeT P ([T.Token], Bool)  -- return list is only ever 0-2 elements     parsePlainTok inPrag = do-      (bInit, lInit) <- getInput-      L sp tok <- Lexer.lexer False return-      (bEnd, _) <- getInput+      (bInit, lInit) <- lift getInput+      L sp tok <- tryP (Lexer.lexer False return)+      (bEnd, _) <- lift getInput       case sp of         UnhelpfulSpan _ -> pure ([], False) -- pretend the token never existed-        RealSrcSpan rsp -> do+        RealSrcSpan rsp _ -> do           let typ = if inPrag then TkPragma else classify tok-              RealSrcLoc lStart = srcSpanStart sp -- safe since @sp@ is real+              RealSrcLoc lStart _ = srcSpanStart sp -- safe since @sp@ is real               (spaceBStr, bStart) = spanPosition lInit lStart bInit               inPragDef = inPragma inPrag tok @@ -102,24 +108,24 @@              -- Update internal line + file position if this is a LINE pragma             ITline_prag _ -> tryOrElse (bEnd, inPragDef) $ do-              L _ (ITinteger (IL { il_value = line })) <- wrappedLexer-              L _ (ITstring _ file)                    <- wrappedLexer-              L spF ITclose_prag                       <- wrappedLexer+              L _ (ITinteger (IL { il_value = line })) <- tryP wrappedLexer+              L _ (ITstring _ file)                    <- tryP wrappedLexer+              L spF ITclose_prag                       <- tryP wrappedLexer                let newLoc = mkRealSrcLoc file (fromIntegral line - 1) (srcSpanEndCol spF)-              (bEnd'', _) <- getInput-              setInput (bEnd'', newLoc)+              (bEnd'', _) <- lift getInput+              lift $ setInput (bEnd'', newLoc)                pure (bEnd'', False)              -- Update internal column position if this is a COLUMN pragma             ITcolumn_prag _ -> tryOrElse (bEnd, inPragDef) $ do-              L _ (ITinteger (IL { il_value = col }))  <- wrappedLexer-              L spF ITclose_prag                       <- wrappedLexer+              L _ (ITinteger (IL { il_value = col }))  <- tryP wrappedLexer+              L spF ITclose_prag                       <- tryP wrappedLexer                let newLoc = mkRealSrcLoc (srcSpanFile spF) (srcSpanEndLine spF) (fromIntegral col)-              (bEnd'', _) <- getInput-              setInput (bEnd'', newLoc)+              (bEnd'', _) <- lift getInput+              lift $ setInput (bEnd'', newLoc)                pure (bEnd'', False) @@ -149,21 +155,20 @@  -- | Get the input getInput :: P (StringBuffer, RealSrcLoc)-getInput = P $ \p@PState { buffer = buf, loc = srcLoc } -> POk p (buf, srcLoc)+getInput = P $ \p@PState { buffer = buf, loc = srcLoc } -> POk p (buf, psRealLoc srcLoc)  -- | Set the input setInput :: (StringBuffer, RealSrcLoc) -> P ()-setInput (buf, srcLoc) = P $ \p -> POk (p { buffer = buf, loc = srcLoc }) ()-+setInput (buf, srcLoc) =+  P $ \p@PState{ loc = PsLoc _ buf_loc } ->+    POk (p { buffer = buf, loc = PsLoc srcLoc buf_loc }) () --- | Orphan instance that adds backtracking to 'P'-instance Alternative P where-  empty = addFatalError noSrcSpan (text "Alterative.empty")-  P x <|> P y = P $ \s -> case x s of { p@POk{} -> p-                                      ; _ -> y s }+tryP :: P a -> MaybeT P a+tryP (P f) = MaybeT $ P $ \s -> case f s of+  POk s' a -> POk s' (Just a)+  PFailed _ -> POk s Nothing --- | Try a parser. If it fails, backtrack and return the pure value.-tryOrElse :: a -> P a -> P a+tryOrElse :: Alternative f => a -> f a -> f a tryOrElse x p = p <|> pure x  -- | Classify given tokens as appropriate Haskell token type.@@ -236,7 +241,6 @@     ITcolumn_prag       {} -> TkPragma     ITscc_prag          {} -> TkPragma     ITgenerated_prag    {} -> TkPragma-    ITcore_prag         {} -> TkPragma     ITunpack_prag       {} -> TkPragma     ITnounpack_prag     {} -> TkPragma     ITann_prag          {} -> TkPragma@@ -261,14 +265,17 @@     ITvbar                 -> TkGlyph     ITlarrow            {} -> TkGlyph     ITrarrow            {} -> TkGlyph+    ITlolly             {} -> TkGlyph     ITat                   -> TkGlyph     ITtilde                -> TkGlyph     ITdarrow            {} -> TkGlyph     ITminus                -> TkGlyph+    ITprefixminus          -> TkGlyph     ITbang                 -> TkGlyph     ITdot                  -> TkOperator     ITstar              {} -> TkOperator     ITtypeApp              -> TkGlyph+    ITpercent              -> TkGlyph      ITbiglam               -> TkGlyph @@ -321,10 +328,8 @@     ITcloseQuote        {} -> TkSpecial     ITopenTExpQuote     {} -> TkSpecial     ITcloseTExpQuote       -> TkSpecial-    ITidEscape          {} -> TkUnknown-    ITparenEscape          -> TkSpecial-    ITidTyEscape        {} -> TkUnknown-    ITparenTyEscape        -> TkSpecial+    ITdollar               -> TkSpecial+    ITdollardollar         -> TkSpecial     ITtyQuote              -> TkSpecial     ITquasiQuote        {} -> TkUnknown     ITqQuasiQuote       {} -> TkUnknown@@ -377,7 +382,6 @@     ITcolumn_prag       {} -> True     ITscc_prag          {} -> True     ITgenerated_prag    {} -> True-    ITcore_prag         {} -> True     ITunpack_prag       {} -> True     ITnounpack_prag     {} -> True     ITann_prag          {} -> True
haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs view
@@ -12,12 +12,13 @@  import qualified Data.ByteString as BS -import HieTypes-import Module   ( ModuleName, moduleNameString )-import Name     ( getOccString, isInternalName, Name, nameModule, nameUnique )-import SrcLoc-import Unique   ( getKey )-import Encoding ( utf8DecodeByteString )+import GHC.Iface.Ext.Types+import GHC.Iface.Ext.Utils ( isEvidenceContext , emptyNodeInfo )+import GHC.Unit.Module ( ModuleName, moduleNameString )+import GHC.Types.Name   ( getOccString, isInternalName, Name, nameModule, nameUnique )+import GHC.Types.SrcLoc+import GHC.Types.Unique ( getKey )+import GHC.Utils.Encoding ( utf8DecodeByteString )  import System.FilePath.Posix ((</>)) @@ -105,6 +106,7 @@      _ -> go nodeChildren toks   where+    nodeInfo = maybe emptyNodeInfo id (Map.lookup SourceInfo $ getSourcedNodeInfo sourcedNodeInfo)     go _ [] = mempty     go [] xs = foldMap renderToken xs     go (cur:rest) xs =@@ -139,8 +141,9 @@      contexts = concatMap (Set.elems . identInfo) . Map.elems . nodeIdentifiers $ details -    -- pick an arbitary identifier to hyperlink with-    identDet = Map.lookupMin . nodeIdentifiers $ details+    -- pick an arbitary non-evidence identifier to hyperlink with+    identDet = Map.lookupMin $ Map.filter notEvidence $ nodeIdentifiers $ details+    notEvidence = not . any isEvidenceContext . identInfo      -- If we have name information, we can make links     linked = case identDet of@@ -163,7 +166,8 @@       | otherwise = mempty     annotation = typ ++ identTyps     typ = unlines (nodeType ni)-    typedIdents = [ (n,t) | (n, identType -> Just t) <- Map.toList $ nodeIdentifiers ni ]+    typedIdents = [ (n,t) | (n, c@(identType -> Just t)) <- Map.toList $ nodeIdentifiers ni+                          , not (any isEvidenceContext $ identInfo c) ]     identTyps       | length typedIdents > 1 || null (nodeType ni)           = concatMap (\(n,t) -> printName n ++ " :: " ++ t ++ "\n") typedIdents@@ -176,17 +180,19 @@   :: Bool         -- ^ are we lacking a type annotation?   -> ContextInfo  -- ^ in what context did this token show up?   -> [StyleClass]-richTokenStyle True  Use           = ["hs-type"]-richTokenStyle False Use           = ["hs-var"]-richTokenStyle  _    RecField{}    = ["hs-var"]-richTokenStyle  _    PatternBind{} = ["hs-var"]-richTokenStyle  _    MatchBind{}   = ["hs-var"]-richTokenStyle  _    TyVarBind{}   = ["hs-type"]-richTokenStyle  _    ValBind{}     = ["hs-var"]-richTokenStyle  _    TyDecl        = ["hs-type"]-richTokenStyle  _    ClassTyDecl{} = ["hs-type"]-richTokenStyle  _    Decl{}        = ["hs-var"]-richTokenStyle  _    IEThing{}     = []  -- could be either a value or type+richTokenStyle True  Use               = ["hs-type"]+richTokenStyle False Use               = ["hs-var"]+richTokenStyle  _    RecField{}        = ["hs-var"]+richTokenStyle  _    PatternBind{}     = ["hs-var"]+richTokenStyle  _    MatchBind{}       = ["hs-var"]+richTokenStyle  _    TyVarBind{}       = ["hs-type"]+richTokenStyle  _    ValBind{}         = ["hs-var"]+richTokenStyle  _    TyDecl            = ["hs-type"]+richTokenStyle  _    ClassTyDecl{}     = ["hs-type"]+richTokenStyle  _    Decl{}            = ["hs-var"]+richTokenStyle  _    IEThing{}         = []  -- could be either a value or type+richTokenStyle  _    EvidenceVarBind{} = []+richTokenStyle  _    EvidenceVarUse{}  = []  tokenStyle :: TokenType -> [StyleClass] tokenStyle TkIdentifier = ["hs-identifier"]
haddock-api/src/Haddock/Backends/Hyperlinker/Utils.hs view
@@ -18,11 +18,11 @@ import Haddock.Backends.Xhtml.Utils  import GHC-import HieTypes     ( HieAST(..), HieType(..), HieArgs(..), TypeIndex, HieTypeFlat )-import IfaceType-import Name         ( getOccFS, getOccString )-import Outputable   ( showSDoc )-import Var          ( VarBndr(..) )+import GHC.Iface.Ext.Types ( HieAST(..), HieType(..), HieArgs(..), TypeIndex, HieTypeFlat )+import GHC.Iface.Type+import GHC.Types.Name      ( getOccFS, getOccString )+import GHC.Utils.Outputable( showSDoc )+import GHC.Types.Var       ( VarBndr(..) )  import System.FilePath.Posix ((</>), (<.>)) @@ -82,9 +82,9 @@ lineFormat = "line-%{LINE}"  --- * HIE file procesddsing+-- * HIE file processing --- This belongs in GHC's HieUtils...+-- This belongs in GHC.Iface.Ext.Utils...  -- | Pretty-printed type, ready to be turned into HTML by @xhtml@ type PrintedType = String@@ -129,8 +129,8 @@     go (HLitTy l) = IfaceLitTy l     go (HForAllTy ((n,k),af) t) = let b = (getOccFS n, k)                                   in IfaceForAllTy (Bndr (IfaceTvBndr b) af) t-    go (HFunTy a b) = IfaceFunTy VisArg a b-    go (HQualTy con b) = IfaceFunTy InvisArg con b+    go (HFunTy w a b) = IfaceFunTy VisArg w a b+    go (HQualTy con b) = IfaceFunTy InvisArg many_ty con b     go (HCastTy a) = a     go HCoercionTy = IfaceTyVar "<coercion type>"     go (HTyConApp a xs) = IfaceTyConApp a (hieToIfaceArgs xs)
haddock-api/src/Haddock/Backends/LaTeX.hs view
@@ -21,16 +21,17 @@ import Haddock.Types import Haddock.Utils import Haddock.GhcUtils-import Pretty hiding (Doc, quote)-import qualified Pretty+import GHC.Utils.Ppr hiding (Doc, quote)+import qualified GHC.Utils.Ppr as Pretty -import BasicTypes           ( PromotionFlag(..) )+import GHC.Types.Basic        ( PromotionFlag(..) ) import GHC-import OccName-import Name                 ( nameOccName )-import RdrName              ( rdrNameOcc )-import FastString           ( unpackFS )-import Outputable           ( panic)+import GHC.Types.Name.Occurrence+import GHC.Types.Name        ( nameOccName )+import GHC.Types.Name.Reader ( rdrNameOcc )+import GHC.Core.Type         ( Specificity(..) )+import GHC.Data.FastString   ( unpackFS )+import GHC.Utils.Outputable  ( panic)  import qualified Data.Map as Map import System.Directory@@ -356,8 +357,6 @@              , equals              , ppType unicode (unLoc rhs)              ]-    ppFamDeclEqn (XHsImplicitBndrs nec) = noExtCon nec-    ppFamDeclEqn (HsIB { hsib_body = XFamEqn nec}) = noExtCon nec      instancesBit = ppDocInstances unicode instances @@ -366,7 +365,6 @@             -> Bool                 -- ^ unicode             -> Bool                 -- ^ is the family associated?             -> LaTeX-ppFamHeader (XFamilyDecl nec) _ _ = noExtCon nec ppFamHeader (FamilyDecl { fdLName = L _ name                         , fdTyVars = tvs                         , fdInfo = info@@ -389,7 +387,6 @@       NoSig _               -> empty       KindSig _ kind        -> dcolon unicode <+> ppLKind unicode kind       TyVarSig _ (L _ bndr) -> equals <+> ppHsTyVarBndr unicode bndr-      XFamilyResultSig nec  -> noExtCon nec      injAnn = case injectivity of       Nothing -> empty@@ -486,9 +483,9 @@     arg_doc n = rDoc . fmap _doc $ Map.lookup n argDocs      do_args :: Int -> LaTeX -> HsType DocNameI -> [(LaTeX, LaTeX)]-    do_args _n leader (HsForAllTy _ fvf tvs ltype)+    do_args _n leader (HsForAllTy _ tele ltype)       = [ ( decltt leader-          , decltt (ppForAllPart unicode tvs fvf)+          , decltt (ppHsForAllTelescope tele unicode)               <+> ppLType unicode ltype           ) ]     do_args n leader (HsQualTy _ lctxt ltype)@@ -496,13 +493,13 @@         , decltt (ppLContextNoArrow lctxt unicode) <+> nl         ) : do_largs n (darrow unicode) ltype -    do_args n leader (HsFunTy _ (L _ (HsRecTy _ fields)) r)+    do_args n leader (HsFunTy _ _w (L _ (HsRecTy _ fields)) r)       = [ (decltt ldr, latex <+> nl)         | (L _ field, ldr) <- zip fields (leader <+> gadtOpen : repeat gadtComma)         , let latex = ppSideBySideField subdocs unicode field         ]         ++ do_largs (n+1) (gadtEnd <+> arrow unicode) r-    do_args n leader (HsFunTy _ lt r)+    do_args n leader (HsFunTy _ _w lt r)       = (decltt leader, decltt (ppLFunLhType unicode lt) <-> arg_doc n <+> nl)         : do_largs (n+1) (arrow unicode) r     do_args n leader t@@ -525,13 +522,20 @@     <+> ppType unicode ty  --- | Pretty-print type variables.-ppTyVars :: Bool -> [LHsTyVarBndr DocNameI] -> [LaTeX]-ppTyVars unicode = map (ppHsTyVarBndr unicode . unLoc)+ppHsForAllTelescope :: HsForAllTelescope DocNameI -> Bool -> LaTeX+ppHsForAllTelescope tele unicode = case tele of+  HsForAllVis { hsf_vis_bndrs = bndrs } ->+    hsep (forallSymbol unicode : ppTyVars bndrs) <> text "\\" <> arrow unicode+  HsForAllInvis { hsf_invis_bndrs = bndrs } ->+    hsep (forallSymbol unicode : ppTyVars bndrs) <> dot  +ppTyVars :: [LHsTyVarBndr flag DocNameI] -> [LaTeX]+ppTyVars = map (ppSymName . getName . hsLTyVarNameI)++ tyvarNames :: LHsQTyVars DocNameI -> [Name]-tyvarNames = map (getName . hsTyVarBndrName . unLoc) . hsQTvExplicit+tyvarNames = map (getName . hsLTyVarNameI) . hsQTvExplicit   declWithDoc :: LaTeX -> Maybe LaTeX -> LaTeX@@ -743,7 +747,7 @@ -- ppConstrHdr is for (non-GADT) existentials constructors' syntax ppConstrHdr   :: Bool                    -- ^ print explicit foralls-  -> [LHsTyVarBndr DocNameI] -- ^ type variables+  -> [LHsTyVarBndr Specificity DocNameI] -- ^ type variables   -> HsContext DocNameI      -- ^ context   -> Bool                    -- ^ unicode   -> LaTeX@@ -751,7 +755,7 @@   where     ppForall       | null tvs || not forall_ = empty-      | otherwise = ppForAllPart unicode tvs ForallInvis+      | otherwise = ppHsForAllTelescope (mkHsForAllInvisTeleI tvs) unicode      ppCtxt       | null ctxt = empty@@ -795,7 +799,7 @@           | hasArgDocs -> header_ <+> ppOcc           | otherwise -> hsep [ header_                               , ppOcc-                              , hsep (map (ppLParendType unicode) args)+                              , hsep (map (ppLParendType unicode . hsScaledThing) args)                               ]          -- Record constructor, e.g. 'Identity { runIdentity :: a }'@@ -805,9 +809,9 @@         InfixCon arg1 arg2           | hasArgDocs -> header_ <+> ppOcc           | otherwise -> hsep [ header_-                              , ppLParendType unicode arg1+                              , ppLParendType unicode (hsScaledThing arg1)                               , ppOccInfix-                              , ppLParendType unicode arg2+                              , ppLParendType unicode (hsScaledThing arg2)                               ]        ConDeclGADT{}@@ -817,9 +821,8 @@                             -- ++AZ++ make this prepend "{..}" when it is a record style GADT                             , ppLType unicode (getGADTConType con)                             ]-      XConDecl nec -> noExtCon nec -    fieldPart = case (con, getConArgs con) of+    fieldPart = case (con, getConArgsI con) of         -- Record style GADTs         (ConDeclGADT{}, RecCon _)            -> doConstrArgsWithDocs [] @@ -827,10 +830,10 @@         (_, RecCon (L _ fields))             -> doRecordFields fields          -- Any GADT or a regular H98 prefix data constructor-        (_, PrefixCon args)     | hasArgDocs -> doConstrArgsWithDocs args+        (_, PrefixCon args)     | hasArgDocs -> doConstrArgsWithDocs (map hsScaledThing args)          -- An infix H98 data constructor-        (_, InfixCon arg1 arg2) | hasArgDocs -> doConstrArgsWithDocs [arg1,arg2]+        (_, InfixCon arg1 arg2) | hasArgDocs -> doConstrArgsWithDocs (map hsScaledThing [arg1,arg2])          _ -> empty @@ -851,7 +854,6 @@         [ l <+> text "\\enspace" <+> r         | (l,r) <- ppSubSigLike unicode (unLoc (getGADTConType con)) argDocs subdocs (dcolon unicode)         ]-      XConDecl nec -> noExtCon nec       -- don't use "con_doc con", in case it's reconstructed from a .hi file,@@ -871,7 +873,6 @@     -- don't use cd_fld_doc for same reason we don't use con_doc above     -- Where there is more than one name, they all have the same documentation     mbDoc = lookup (extFieldOcc $ unLoc $ head names) subdocs >>= fmap _doc . combineDocumentation . fst-ppSideBySideField _ _ (XConDeclField nec) = noExtCon nec   -- | Pretty-print a bundled pattern synonym@@ -924,7 +925,8 @@ -- * Type applications -------------------------------------------------------------------------------- -ppAppDocNameTyVarBndrs :: Bool -> DocName -> [LHsTyVarBndr DocNameI] -> LaTeX+ppAppDocNameTyVarBndrs :: RenderableBndrFlag flag =>+  Bool -> DocName -> [LHsTyVarBndr flag DocNameI] -> LaTeX ppAppDocNameTyVarBndrs unicode n vs =     ppTypeApp n vs ppDN (ppHsTyVarBndr unicode . unLoc)   where@@ -1034,51 +1036,56 @@                                        ppLParendType unicode ki ppLHsTypeArg _ (HsArgPar _) = text "" -ppHsTyVarBndr :: Bool -> HsTyVarBndr DocNameI -> LaTeX-ppHsTyVarBndr _ (UserTyVar _ (L _ name)) = ppDocName name-ppHsTyVarBndr unicode (KindedTyVar _ (L _ name) kind) =-  parens (ppDocName name <+> dcolon unicode <+> ppLKind unicode kind)-ppHsTyVarBndr _ (XTyVarBndr nec) = noExtCon nec+class RenderableBndrFlag flag where+  ppHsTyVarBndr :: Bool -> HsTyVarBndr flag DocNameI -> LaTeX +instance RenderableBndrFlag () where+  ppHsTyVarBndr _ (UserTyVar _ _ (L _ name)) = ppDocName name+  ppHsTyVarBndr unicode (KindedTyVar _ _ (L _ name) kind) =+    parens (ppDocName name) <+> dcolon unicode <+> ppLKind unicode kind++instance RenderableBndrFlag Specificity where+  ppHsTyVarBndr _ (UserTyVar _ SpecifiedSpec (L _ name)) = ppDocName name+  ppHsTyVarBndr _ (UserTyVar _ InferredSpec (L _ name)) = braces $ ppDocName name+  ppHsTyVarBndr unicode (KindedTyVar _ SpecifiedSpec (L _ name) kind) =+    parens (ppDocName name) <+> dcolon unicode <+> ppLKind unicode kind+  ppHsTyVarBndr unicode (KindedTyVar _ InferredSpec (L _ name) kind) =+    braces (ppDocName name) <+> dcolon unicode <+> ppLKind unicode kind+ ppLKind :: Bool -> LHsKind DocNameI -> LaTeX ppLKind unicode y = ppKind unicode (unLoc y)  ppKind :: Bool -> HsKind DocNameI -> LaTeX ppKind unicode ki = ppr_mono_ty (reparenTypePrec PREC_TOP ki) unicode - -- Drop top-level for-all type variables in user style -- since they are implicit in Haskell -ppForAllPart :: Bool -> [LHsTyVarBndr DocNameI] -> ForallVisFlag -> LaTeX-ppForAllPart unicode tvs fvf = hsep (forallSymbol unicode : tvs') <> fv-  where-    tvs' = ppTyVars unicode tvs-    fv = case fvf of-           ForallVis   -> text "\\ " <> arrow unicode-           ForallInvis -> dot- ppr_mono_lty :: LHsType DocNameI -> Bool -> LaTeX ppr_mono_lty ty unicode = ppr_mono_ty (unLoc ty) unicode   ppr_mono_ty :: HsType DocNameI -> Bool -> LaTeX-ppr_mono_ty (HsForAllTy _ fvf tvs ty) unicode-  = sep [ ppForAllPart unicode tvs fvf+ppr_mono_ty (HsForAllTy _ tele ty) unicode+  = sep [ ppHsForAllTelescope tele unicode         , ppr_mono_lty ty unicode ] ppr_mono_ty (HsQualTy _ ctxt ty) unicode   = sep [ ppLContext ctxt unicode         , ppr_mono_lty ty unicode ]-ppr_mono_ty (HsFunTy _ ty1 ty2)   u+ppr_mono_ty (HsFunTy _ mult ty1 ty2)   u   = sep [ ppr_mono_lty ty1 u-        , arrow u <+> ppr_mono_lty ty2 u ]+        , arr <+> ppr_mono_lty ty2 u ]+   where arr = case mult of+                 HsLinearArrow _ -> lollipop u+                 HsUnrestrictedArrow _ -> arrow u+                 HsExplicitMult _ m -> multAnnotation <> ppr_mono_lty m u <+> arrow u  ppr_mono_ty (HsBangTy _ b ty)     u = ppBang b <> ppLParendType u ty ppr_mono_ty (HsTyVar _ NotPromoted (L _ name)) _ = ppDocName name ppr_mono_ty (HsTyVar _ IsPromoted  (L _ name)) _ = char '\'' <> ppDocName name ppr_mono_ty (HsTupleTy _ con tys) u = tupleParens con (map (ppLType u) tys) ppr_mono_ty (HsSumTy _ tys) u       = sumParens (map (ppLType u) tys)-ppr_mono_ty (HsKindSig _ ty kind) u = ppr_mono_lty ty u <+> dcolon u <+> ppLKind u kind+ppr_mono_ty (HsKindSig _ ty kind) u = parens (ppr_mono_lty ty u <+> dcolon u <+> ppLKind u kind) ppr_mono_ty (HsListTy _ ty)       u = brackets (ppr_mono_lty ty u) ppr_mono_ty (HsIParamTy _ (L _ n) ty) u = ppIPName n <+> dcolon u <+> ppr_mono_lty ty u ppr_mono_ty (HsSpliceTy v _)    _ = absurd v@@ -1365,13 +1372,17 @@ quote doc = text "\\begin{quote}" $$ doc $$ text "\\end{quote}"  -dcolon, arrow, darrow, forallSymbol, starSymbol, atSign :: Bool -> LaTeX+dcolon, arrow, lollipop, darrow, forallSymbol, starSymbol, atSign :: Bool -> LaTeX dcolon unicode = text (if unicode then "∷" else "::") arrow  unicode = text (if unicode then "→" else "->")+lollipop unicode = text (if unicode then "⊸" else "%1 ->") darrow unicode = text (if unicode then "⇒" else "=>") forallSymbol unicode = text (if unicode then "∀" else "forall") starSymbol unicode = text (if unicode then "★" else "*") atSign unicode = text (if unicode then "@" else "@")++multAnnotation :: LaTeX+multAnnotation = text "%"  dot :: LaTeX dot = char '.'
haddock-api/src/Haddock/Backends/Xhtml.hs view
@@ -50,13 +50,14 @@ import Data.Ord              ( comparing )  import GHC hiding ( NoLink, moduleInfo,LexicalFixity(..) )-import Name+import GHC.Types.Name+import GHC.Unit.State  -------------------------------------------------------------------------------- -- * Generating HTML documentation -------------------------------------------------------------------------------- -ppHtml :: DynFlags+ppHtml :: UnitState        -> String                       -- ^ Title        -> Maybe String                 -- ^ Package        -> [Interface]@@ -76,7 +77,7 @@        -> Bool                         -- ^ Also write Quickjump index        -> IO () -ppHtml dflags doctitle maybe_package ifaces reexported_ifaces odir prologue+ppHtml state doctitle maybe_package ifaces reexported_ifaces odir prologue         themes maybe_mathjax_url maybe_source_url maybe_wiki_url         maybe_contents_url maybe_index_url unicode         pkg qual debug withQuickjump = do@@ -85,7 +86,7 @@     visible i = OptHide `notElem` ifaceOptions i    when (isNothing maybe_contents_url) $-    ppHtmlContents dflags odir doctitle maybe_package+    ppHtmlContents state odir doctitle maybe_package         themes maybe_mathjax_url maybe_index_url maybe_source_url maybe_wiki_url         (map toInstalledIface visible_ifaces ++ reexported_ifaces)         False -- we don't want to display the packages in a single-package contents@@ -254,7 +255,7 @@   ppHtmlContents-   :: DynFlags+   :: UnitState    -> FilePath    -> String    -> Maybe String@@ -268,14 +269,14 @@    -> Maybe Package  -- ^ Current package    -> Qualification  -- ^ How to qualify names    -> IO ()-ppHtmlContents dflags odir doctitle _maybe_package+ppHtmlContents state odir doctitle _maybe_package   themes mathjax_url maybe_index_url   maybe_source_url maybe_wiki_url ifaces showPkgs prologue debug pkg qual = do-  let tree = mkModuleTree dflags showPkgs+  let tree = mkModuleTree state showPkgs          [(instMod iface, toInstalledDescription iface)          | iface <- ifaces          , not (instIsSig iface)]-      sig_tree = mkModuleTree dflags showPkgs+      sig_tree = mkModuleTree state showPkgs          [(instMod iface, toInstalledDescription iface)          | iface <- ifaces          , instIsSig iface]
haddock-api/src/Haddock/Backends/Xhtml/Decl.hs view
@@ -35,12 +35,13 @@ import           Data.Void             ( absurd ) import           Text.XHtml hiding     ( name, title, p, quote ) -import BasicTypes (PromotionFlag(..), isPromoted)+import GHC.Core.Type ( Specificity(..) )+import GHC.Types.Basic (PromotionFlag(..), isPromoted) import GHC hiding (LexicalFixity(..)) import GHC.Exts-import Name-import BooleanFormula-import RdrName ( rdrNameOcc )+import GHC.Types.Name+import GHC.Data.BooleanFormula+import GHC.Types.Name.Reader ( rdrNameOcc )  -- | Pretty print a declaration ppDecl :: Bool                                     -- ^ print summary info only@@ -151,8 +152,10 @@     do_largs n leader (L _ t) = do_args n leader t      do_args :: Int -> Html -> HsType DocNameI -> [SubDecl]-    do_args n leader (HsForAllTy _ fvf tvs ltype)-      = do_largs n (leader <+> ppForAllPart unicode qual tvs fvf) ltype+    do_args n leader (HsForAllTy _ tele ltype)+      = do_largs n leader' ltype+      where+        leader' = leader <+> ppForAllPart unicode qual tele      do_args n leader (HsQualTy _ lctxt ltype)       | null (unLoc lctxt)@@ -161,14 +164,14 @@       = (leader <+> ppLContextNoArrow lctxt unicode qual emptyCtxts, Nothing, [])         : do_largs n (darrow unicode) ltype -    do_args n leader (HsFunTy _ (L _ (HsRecTy _ fields)) r)+    do_args n leader (HsFunTy _ _w (L _ (HsRecTy _ fields)) r)       = [ (ldr <+> html, mdoc, subs)         | (L _ field, ldr) <- zip fields (leader <+> gadtOpen : repeat gadtComma)         , let (html, mdoc, subs) = ppSideBySideField subdocs unicode qual field         ]         ++ do_largs (n+1) (gadtEnd <+> arrow unicode) r -    do_args n leader (HsFunTy _ lt r)+    do_args n leader (HsFunTy _ _w lt r)       = (leader <+> ppLFunLhType unicode qual emptyCtxts lt, argDoc n, [])         : do_largs (n+1) (arrow unicode) r @@ -209,7 +212,8 @@   -- | Pretty-print type variables.-ppTyVars :: Unicode -> Qualification -> [LHsTyVarBndr DocNameI] -> [Html]+ppTyVars :: RenderableBndrFlag flag =>+  Unicode -> Qualification -> [LHsTyVarBndr flag DocNameI] -> [Html] ppTyVars unicode qual tvs = map (ppHsTyVarBndr unicode qual . unLoc) tvs  @@ -305,8 +309,6 @@         , Nothing         , []         )-    ppFamDeclEqn (XHsImplicitBndrs nec) = noExtCon nec-    ppFamDeclEqn (HsIB { hsib_body = XFamEqn nec}) = noExtCon nec   -- | Print a pseudo family declaration@@ -331,7 +333,6 @@             -> Bool                 -- ^ is an associated type             -> FamilyDecl DocNameI  -- ^ family declaration             -> Unicode -> Qualification -> Html-ppFamHeader _ _ (XFamilyDecl nec) _ _ = noExtCon nec ppFamHeader summary associated (FamilyDecl { fdInfo = info                                            , fdResultSig = L _ result                                            , fdInjectivityAnn = injectivity@@ -371,7 +372,6 @@     NoSig _               -> noHtml     KindSig _ kind        -> dcolon unicode  <+> ppLKind unicode qual kind     TyVarSig _ (L _ bndr) -> equals <+> ppHsTyVarBndr unicode qual bndr-    XFamilyResultSig nec  -> noExtCon nec   --------------------------------------------------------------------------------@@ -390,7 +390,8 @@ -- * Type applications -------------------------------------------------------------------------------- -ppAppDocNameTyVarBndrs :: Bool -> Unicode -> Qualification -> DocName -> [LHsTyVarBndr DocNameI] -> Html+ppAppDocNameTyVarBndrs :: RenderableBndrFlag flag =>+  Bool -> Unicode -> Qualification -> DocName -> [LHsTyVarBndr flag DocNameI] -> Html ppAppDocNameTyVarBndrs summ unicode qual n vs =     ppTypeApp n vs ppDN (ppHsTyVarBndr unicode qual . unLoc)   where@@ -492,7 +493,7 @@       +++ shortSubDecls False           (             [ ppAssocType summary links doc at [] splice unicode pkg qual | at <- ats-              , let doc = lookupAnySubdoc (unLoc $ fdLName $ unLoc at) subdocs ]  +++              , let doc = lookupAnySubdoc (unL $ fdLName $ unL at) subdocs ]  ++                  -- ToDo: add associated type defaults @@ -517,9 +518,8 @@             -> [(DocName, DocForDecl DocName)] -> TyClDecl DocNameI             -> Splice -> Unicode -> Maybe Package -> Qualification -> Html ppClassDecl summary links instances fixities loc d subdocs-        decl@(ClassDecl { tcdCtxt = lctxt, tcdLName = lname-                        , tcdTyVars = ltyvars, tcdFDs = lfds, tcdSigs = lsigs-                        , tcdATs = ats, tcdATDefs = atsDefs })+        decl@(ClassDecl { tcdCtxt = lctxt, tcdLName = lname, tcdTyVars = ltyvars+                        , tcdFDs = lfds, tcdSigs = lsigs, tcdATs = ats, tcdATDefs = atsDefs })             splice unicode pkg qual   | summary = ppShortClassDecl summary links decl loc subdocs splice unicode pkg qual   | otherwise = classheader +++ docSection curname pkg qual d@@ -603,7 +603,7 @@        -- Minimal complete definition = the only shown method       Var (L _ n) : _ | [getName n] ==-                        [getName n' | ClassOpSig _ _ ns _ <- sigs, L _ n' <- ns]+                        [getName n' | L _ (ClassOpSig _ _ ns _) <- lsigs, L _ n' <- ns]         -> noHtml        -- Minimal complete definition = nothing@@ -634,10 +634,12 @@   -- force Splice = True to use line URLs   where     instName = getOccString origin-    instDecl :: Int -> DocInstance DocNameI -> (SubDecl, Maybe Module, Located DocName)+    instDecl :: Int -> DocInstance DocNameI -> (String, SubDecl, Maybe Module, Located DocName)     instDecl no (inst, mdoc, loc, mdl) =-        ((ppInstHead links splice unicode qual mdoc origin False no inst mdl), mdl, loc)-+        (instanceAnchor, mModule, mdl, loc)+      where+        instanceAnchor = getOccString (ihdClsName inst) <> "_" <> show no <> ":"+        mModule = ppInstHead links splice unicode qual mdoc origin False no inst mdl  ppOrphanInstances :: LinksInfo                   -> [DocInstance DocNameI]@@ -649,9 +651,12 @@     instOrigin :: InstHead name -> InstOrigin (IdP name)     instOrigin inst = OriginClass (ihdClsName inst) -    instDecl :: Int -> DocInstance DocNameI -> (SubDecl, Maybe Module, Located DocName)+    instDecl :: Int -> DocInstance DocNameI -> (String, SubDecl, Maybe Module, Located DocName)     instDecl no (inst, mdoc, loc, mdl) =-        ((ppInstHead links splice unicode qual mdoc (instOrigin inst) True no inst Nothing), mdl, loc)+        (instanceAnchor, mModule, mdl, loc)+      where+        instanceAnchor = getOccString (ihdClsName inst) <> "_" <> show no <> ":"+        mModule = ppInstHead links splice unicode qual mdoc (instOrigin inst) True no inst Nothing   ppInstHead :: LinksInfo -> Splice -> Unicode -> Qualification@@ -768,7 +773,6 @@     isH98     = case unLoc (head cons) of                   ConDeclH98 {} -> True                   ConDeclGADT{} -> False-                  XConDecl{}    -> False      pats1 = [ hsep [ keyword "pattern"                    , hsep $ punctuate comma $ map (ppBinder summary . getOccName) lnames@@ -802,7 +806,6 @@     isH98     = case unLoc (head cons) of                   ConDeclH98 {} -> True                   ConDeclGADT{} -> False-                  XConDecl{}    -> False      header_ = topDeclElem links loc splice [docname] $              ppDataHeader summary dataDecl unicode qual <+> whereBit <+> fix@@ -854,14 +857,14 @@          -- Prefix constructor, e.g. 'Just a'         PrefixCon args ->-          ( header_ <+> hsep (ppOcc : map (ppLParendType unicode qual HideEmptyContexts) args)+          ( header_ <+> hsep (ppOcc : map (ppLParendType unicode qual HideEmptyContexts . hsScaledThing) args)           , noHtml           , noHtml           )          -- Record constructor, e.g. 'Identity { runIdentity :: a }'         RecCon (L _ fields) ->-          ( header_ <+> ppOcc <+> char '{'+          ( header_ +++ ppOcc <+> char '{'           , shortSubDecls dataInst [ ppShortField summary unicode qual field                                    | L _ field <- fields                                    ]@@ -870,9 +873,9 @@          -- Infix constructor, e.g. 'a :| [a]'         InfixCon arg1 arg2 ->-          ( header_ <+> hsep [ ppLParendType unicode qual HideEmptyContexts arg1+          ( header_ <+> hsep [ ppLParendType unicode qual HideEmptyContexts (hsScaledThing arg1)                              , ppOccInfix-                             , ppLParendType unicode qual HideEmptyContexts arg2+                             , ppLParendType unicode qual HideEmptyContexts (hsScaledThing arg2)                              ]           , noHtml           , noHtml@@ -884,7 +887,6 @@           , noHtml           , noHtml           )-      XConDecl nec -> noExtCon nec    where     occ        = map (nameOccName . getName . unLoc) $ getConNamesI con@@ -928,7 +930,7 @@         PrefixCon args           | hasArgDocs -> header_ <+> ppOcc <+> fixity           | otherwise -> hsep [ header_ <+> ppOcc-                              , hsep (map (ppLParendType unicode qual HideEmptyContexts) args)+                              , hsep (map (ppLParendType unicode qual HideEmptyContexts . hsScaledThing) args)                               , fixity                               ] @@ -938,9 +940,9 @@         -- Infix constructor, e.g. 'a :| [a]'         InfixCon arg1 arg2           | hasArgDocs -> header_ <+> ppOcc <+> fixity-          | otherwise -> hsep [ header_ <+> ppLParendType unicode qual HideEmptyContexts arg1+          | otherwise -> hsep [ header_ <+> ppLParendType unicode qual HideEmptyContexts (hsScaledThing arg1)                               , ppOccInfix-                              , ppLParendType unicode qual HideEmptyContexts arg2+                              , ppLParendType unicode qual HideEmptyContexts (hsScaledThing arg2)                               , fixity                               ] @@ -953,9 +955,8 @@                               , ppLType unicode qual HideEmptyContexts (getGADTConType con)                               , fixity                               ]-      XConDecl nec -> noExtCon nec -    fieldPart = case (con, getConArgs con) of+    fieldPart = case (con, getConArgsI con) of         -- Record style GADTs         (ConDeclGADT{}, RecCon _)            -> [ doConstrArgsWithDocs [] ] @@ -976,13 +977,12 @@     doConstrArgsWithDocs args = subFields pkg qual $ case con of       ConDeclH98{} ->         [ (ppLParendType unicode qual HideEmptyContexts arg, mdoc, [])-        | (i, arg) <- zip [0..] args+        | (i, arg) <- zip [0..] (map hsScaledThing args)         , let mdoc = Map.lookup i argDocs         ]       ConDeclGADT{} ->         ppSubSigLike unicode qual (unLoc (getGADTConType con))                      argDocs subdocs (dcolon unicode) HideEmptyContexts-      XConDecl nec -> noExtCon nec      -- don't use "con_doc con", in case it's reconstructed from a .hi file,     -- or also because we want Haddock to do the doc-parsing, not GHC.@@ -993,7 +993,7 @@ -- ppConstrHdr is for (non-GADT) existentials constructors' syntax ppConstrHdr   :: Bool                    -- ^ print explicit foralls-  -> [LHsTyVarBndr DocNameI] -- ^ type variables+  -> [LHsTyVarBndr Specificity DocNameI] -- ^ type variables   -> HsContext DocNameI      -- ^ context   -> Unicode -> Qualification   -> Html@@ -1001,7 +1001,7 @@   where     ppForall       | null tvs || not forall_ = noHtml-      | otherwise = ppForAllPart unicode qual tvs ForallInvis+      | otherwise = ppForAllPart unicode qual (HsForAllInvis noExtField tvs)      ppCtxt       | null ctxt = noHtml@@ -1026,14 +1026,12 @@     -- don't use cd_fld_doc for same reason we don't use con_doc above     -- Where there is more than one name, they all have the same documentation     mbDoc = lookup (extFieldOcc $ unLoc $ head names) subdocs >>= combineDocumentation . fst-ppSideBySideField _ _ _ (XConDeclField nec) = noExtCon nec   ppShortField :: Bool -> Unicode -> Qualification -> ConDeclField DocNameI -> Html ppShortField summary unicode qual (ConDeclField _ names ltype _)   = hsep (punctuate comma (map ((ppBinder summary) . rdrNameOcc . unLoc . rdrNameFieldOcc . unLoc) names))     <+> dcolon unicode <+> ppLType unicode qual HideEmptyContexts ltype-ppShortField _ _ _ (XConDeclField nec) = noExtCon nec   -- | Pretty print an expanded pattern (for bundled patterns)@@ -1134,14 +1132,29 @@ ppLHsTypeArg unicode qual emptyCtxts (HsTypeArg _ ki) = atSign unicode <>                                                        ppLParendType unicode qual emptyCtxts ki ppLHsTypeArg _ _ _ (HsArgPar _) = toHtml ""-ppHsTyVarBndr :: Unicode -> Qualification -> HsTyVarBndr DocNameI -> Html-ppHsTyVarBndr _       qual (UserTyVar _ (L _ name)) =-    ppDocName qual Raw False name-ppHsTyVarBndr unicode qual (KindedTyVar _ name kind) =-    parens (ppDocName qual Raw False (unLoc name) <+> dcolon unicode <+>-            ppLKind unicode qual kind)-ppHsTyVarBndr _ _ (XTyVarBndr nec) = noExtCon nec +class RenderableBndrFlag flag where+  ppHsTyVarBndr :: Unicode -> Qualification -> HsTyVarBndr flag DocNameI -> Html++instance RenderableBndrFlag () where+  ppHsTyVarBndr _       qual (UserTyVar _ _ (L _ name)) =+      ppDocName qual Raw False name+  ppHsTyVarBndr unicode qual (KindedTyVar _ _ name kind) =+      parens (ppDocName qual Raw False (unLoc name) <+> dcolon unicode <+>+              ppLKind unicode qual kind)++instance RenderableBndrFlag Specificity where+  ppHsTyVarBndr _       qual (UserTyVar _ SpecifiedSpec (L _ name)) =+      ppDocName qual Raw False name+  ppHsTyVarBndr _       qual (UserTyVar _ InferredSpec (L _ name)) =+      braces $ ppDocName qual Raw False name+  ppHsTyVarBndr unicode qual (KindedTyVar _ SpecifiedSpec name kind) =+      parens (ppDocName qual Raw False (unLoc name) <+> dcolon unicode <+>+              ppLKind unicode qual kind)+  ppHsTyVarBndr unicode qual (KindedTyVar _ InferredSpec name kind) =+      braces (ppDocName qual Raw False (unLoc name) <+> dcolon unicode <+>+              ppLKind unicode qual kind)+ ppLKind :: Unicode -> Qualification -> LHsKind DocNameI -> Html ppLKind unicode qual y = ppKind unicode qual (unLoc y) @@ -1155,16 +1168,16 @@     hasNonEmptyContext :: LHsType name -> Bool     hasNonEmptyContext t =       case unLoc t of-        HsForAllTy _ _ _ s -> hasNonEmptyContext s-        HsQualTy _ cxt s   -> if null (unLoc cxt) then hasNonEmptyContext s else True-        HsFunTy _ _ s      -> hasNonEmptyContext s+        HsForAllTy _ _ s -> hasNonEmptyContext s+        HsQualTy _ cxt s -> if null (unLoc cxt) then hasNonEmptyContext s else True+        HsFunTy _ _ _ s    -> hasNonEmptyContext s         _ -> False     isFirstContextEmpty :: LHsType name -> Bool     isFirstContextEmpty t =       case unLoc t of-        HsForAllTy _ _ _ s -> isFirstContextEmpty s-        HsQualTy _ cxt _   -> null (unLoc cxt)-        HsFunTy _ _ s      -> isFirstContextEmpty s+        HsForAllTy _ _ s -> isFirstContextEmpty s+        HsQualTy _ cxt _ -> null (unLoc cxt)+        HsFunTy _ _ _ s    -> isFirstContextEmpty s         _ -> False  @@ -1175,21 +1188,21 @@   let emptyCtxts = patSigContext typ in ppLType unicode qual emptyCtxts typ  -ppForAllPart :: Unicode -> Qualification -> [LHsTyVarBndr DocNameI] -> ForallVisFlag -> Html-ppForAllPart unicode qual tvs fvf = hsep (forallSymbol unicode : tvs') +++ fv-  where-    tvs' = ppTyVars unicode qual tvs-    fv = case fvf of-           ForallVis   -> spaceHtml +++ arrow unicode-           ForallInvis -> dot+ppForAllPart :: Unicode -> Qualification -> HsForAllTelescope DocNameI -> Html+ppForAllPart unicode qual tele = case tele of+  HsForAllVis { hsf_vis_bndrs = bndrs } ->+    hsep (forallSymbol unicode : ppTyVars unicode qual bndrs) ++++    spaceHtml +++  arrow unicode+  HsForAllInvis { hsf_invis_bndrs = bndrs } ->+    hsep (forallSymbol unicode : ppTyVars unicode qual bndrs) +++ dot  ppr_mono_lty :: LHsType DocNameI -> Unicode -> Qualification -> HideEmptyContexts -> Html ppr_mono_lty ty = ppr_mono_ty (unLoc ty)   ppr_mono_ty :: HsType DocNameI -> Unicode -> Qualification -> HideEmptyContexts -> Html-ppr_mono_ty (HsForAllTy _ fvf tvs ty) unicode qual emptyCtxts-  = ppForAllPart unicode qual tvs fvf <+> ppr_mono_lty ty unicode qual emptyCtxts+ppr_mono_ty (HsForAllTy _ tele ty) unicode qual emptyCtxts+  = ppForAllPart unicode qual tele <+> ppr_mono_lty ty unicode qual emptyCtxts  ppr_mono_ty (HsQualTy _ ctxt ty) unicode qual emptyCtxts   = ppLContext ctxt unicode qual emptyCtxts <+> ppr_mono_lty ty unicode qual emptyCtxts@@ -1205,10 +1218,15 @@   | otherwise = ppDocName q Prefix True name ppr_mono_ty (HsStarTy _ isUni) u _ _ =   toHtml (if u || isUni then "★" else "*")-ppr_mono_ty (HsFunTy _ ty1 ty2) u q e =+ppr_mono_ty (HsFunTy _ mult ty1 ty2) u q e =   hsep [ ppr_mono_lty ty1 u q HideEmptyContexts-       , arrow u <+> ppr_mono_lty ty2 u q e+       , arr <+> ppr_mono_lty ty2 u q e        ]+   where arr = case mult of+                 HsLinearArrow _ -> lollipop u+                 HsUnrestrictedArrow _ -> arrow u+                 HsExplicitMult _ m -> multAnnotation <> ppr_mono_lty m u q e <+> arrow u+ ppr_mono_ty (HsTupleTy _ con tys) u q _ =   tupleParens con (map (ppLType u q HideEmptyContexts) tys) ppr_mono_ty (HsSumTy _ tys) u q _ =
haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs view
@@ -32,7 +32,7 @@ import Data.Maybe (fromMaybe)  import GHC-import Name+import GHC.Types.Name   parHtmlMarkup :: Qualification -> Bool
haddock-api/src/Haddock/Backends/Xhtml/Layout.hs view
@@ -50,9 +50,9 @@ import Text.XHtml hiding ( name, title, quote ) import Data.Maybe (fromMaybe) -import FastString            ( unpackFS )+import GHC.Data.FastString ( unpackFS ) import GHC-import Name (nameOccName)+import GHC.Types.Name (nameOccName)  -------------------------------------------------------------------------------- -- * Sections of the document@@ -153,21 +153,21 @@  -- | Sub table with source information (optional). subTableSrc :: Maybe Package -> Qualification -> LinksInfo -> Bool-            -> [(SubDecl, Maybe Module, Located DocName)] -> Maybe Html+            -> [(String, SubDecl, Maybe Module, Located DocName)] -> Maybe Html subTableSrc _ _ _ _ [] = Nothing subTableSrc pkg qual lnks splice decls = Just $ table << aboves (concatMap subRow decls)   where-    subRow ((decl, mdoc, subs), mdl, L loc dn) =+    subRow (instanchor, (decl, mdoc, subs), mdl, L loc dn) =       (td ! [theclass "src clearfix"] <<         (thespan ! [theclass "inst-left"] << decl)         <+> linkHtml loc mdl dn       <->-      docElement td << fmap (docToHtml Nothing pkg qual) mdoc+      docElement td << fmap (docToHtml (Just instanchor) pkg qual) mdoc       )       : map (cell . (td <<)) subs      linkHtml :: SrcSpan -> Maybe Module -> DocName -> Html-    linkHtml loc@(RealSrcSpan _) mdl dn = links lnks loc splice mdl dn+    linkHtml loc@(RealSrcSpan _ _) mdl dn = links lnks loc splice mdl dn     linkHtml _ _ _ = noHtml  subBlock :: [Html] -> Maybe Html@@ -201,7 +201,7 @@ subInstances :: Maybe Package -> Qualification              -> String -- ^ Class name, used for anchor generation              -> LinksInfo -> Bool-             -> [(SubDecl, Maybe Module, Located DocName)] -> Html+             -> [(String, SubDecl, Maybe Module, Located DocName)] -> Html subInstances pkg qual nm lnks splice = maybe noHtml wrap . instTable   where     wrap contents = subSection (hdr +++ collapseDetails id_ DetailsOpen (summary +++ contents))@@ -214,7 +214,7 @@  subOrphanInstances :: Maybe Package -> Qualification                    -> LinksInfo -> Bool-                   -> [(SubDecl, Maybe Module, Located DocName)] -> Html+                   -> [(String, SubDecl, Maybe Module, Located DocName)] -> Html subOrphanInstances pkg qual lnks splice  = maybe noHtml wrap . instTable   where     wrap = ((h1 << "Orphan instances") +++)@@ -310,9 +310,9 @@         -- 'mdl'' is a way of "overriding" the module. Without it, instances         -- will point to the module defining the class/family, which is wrong.         origMod = fromMaybe (nameModule n) mdl'-        origPkg = moduleUnitId origMod+        origPkg = moduleUnit origMod          fname = case loc of-          RealSrcSpan l -> unpackFS (srcSpanFile l)+          RealSrcSpan l _ -> unpackFS (srcSpanFile l)           UnhelpfulSpan _ -> error "links: UnhelpfulSpan" links _ _ _ _ _ = noHtml
haddock-api/src/Haddock/Backends/Xhtml/Names.hs view
@@ -28,9 +28,9 @@ import Data.List ( stripPrefix )  import GHC hiding (LexicalFixity(..))-import Name-import RdrName-import FastString (unpackFS)+import GHC.Types.Name+import GHC.Types.Name.Reader+import GHC.Data.FastString (unpackFS)   -- | Indicator of how to render a 'DocName' into 'Html'
haddock-api/src/Haddock/Backends/Xhtml/Types.hs view
@@ -23,7 +23,7 @@   -- the base, module and entity URLs for the source code and wiki links.-type SourceURLs = (Maybe FilePath, Maybe FilePath, Map UnitId FilePath, Map UnitId FilePath)+type SourceURLs = (Maybe FilePath, Maybe FilePath, Map Unit FilePath, Map Unit FilePath) type WikiURLs = (Maybe FilePath, Maybe FilePath, Maybe FilePath)
haddock-api/src/Haddock/Backends/Xhtml/Utils.hs view
@@ -21,7 +21,8 @@   keyword, punctuate,    braces, brackets, pabrackets, parens, parenList, ubxParenList, ubxSumList,-  arrow, comma, dcolon, dot, darrow, equals, forallSymbol, quote, promoQuote,+  arrow, lollipop, comma, dcolon, dot, darrow, equals, forallSymbol, quote, promoQuote,+  multAnnotation,   atSign,    hsep, vcat,@@ -38,9 +39,9 @@ import Text.XHtml hiding ( name, title, p, quote ) import qualified Text.XHtml as XHtml -import GHC      ( SrcSpan(..), srcSpanStartLine, Name )-import Module   ( Module, ModuleName, moduleName, moduleNameString )-import Name     ( getOccString, nameOccName, isValOcc )+import GHC              ( SrcSpan(..), srcSpanStartLine, Name )+import GHC.Unit.Module ( Module, ModuleName, moduleName, moduleNameString )+import GHC.Types.Name   ( getOccString, nameOccName, isValOcc )   -- | Replace placeholder string elements with provided values.@@ -75,7 +76,7 @@     Nothing -> ""     Just span_ ->       case span_ of-      RealSrcSpan span__ ->+      RealSrcSpan span__ _ ->         show $ srcSpanStartLine span__       UnhelpfulSpan _ -> "" @@ -187,12 +188,16 @@ ubxparens h = toHtml "(#" <+> h <+> toHtml "#)"  -dcolon, arrow, darrow, forallSymbol, atSign :: Bool -> Html+dcolon, arrow, lollipop, darrow, forallSymbol, atSign :: Bool -> Html dcolon unicode = toHtml (if unicode then "∷" else "::") arrow  unicode = toHtml (if unicode then "→" else "->")+lollipop unicode = toHtml (if unicode then "⊸" else "%1 ->") darrow unicode = toHtml (if unicode then "⇒" else "=>") forallSymbol unicode = if unicode then toHtml "∀" else keyword "forall" atSign unicode = toHtml (if unicode then "@" else "@")++multAnnotation :: Html+multAnnotation = toHtml "%"  dot :: Html dot = toHtml "."
haddock-api/src/Haddock/Convert.hs view
@@ -19,44 +19,49 @@   PrintRuntimeReps(..), ) where -import Bag ( emptyBag )-import BasicTypes ( TupleSort(..), SourceText(..), LexicalFixity(..)+#include "HsVersions.h"++import GHC.Data.Bag ( emptyBag )+import GHC.Types.Basic ( TupleSort(..), SourceText(..), LexicalFixity(..)                   , PromotionFlag(..), DefMethSpec(..) )-import Class-import CoAxiom-import ConLike+import GHC.Core.Class+import GHC.Core.Coercion.Axiom+import GHC.Core.ConLike import Data.Either (lefts, rights)-import DataCon-import FamInstEnv+import GHC.Core.DataCon+import GHC.Core.FamInstEnv import GHC.Hs-import Name-import NameSet ( emptyNameSet )-import RdrName ( mkVarUnqual )-import PatSyn-import SrcLoc ( Located, noLoc, unLoc, GenLocated(..), srcLocSpan )-import TcType-import TyCon-import Type-import TyCoRep-import TysPrim ( alphaTyVars )-import TysWiredIn ( eqTyConName, listTyConName, liftedTypeKindTyConName+import GHC.Types.Name+import GHC.Types.Name.Set    ( emptyNameSet )+import GHC.Types.Name.Reader ( mkVarUnqual )+import GHC.Core.PatSyn+import GHC.Tc.Utils.TcType+import GHC.Core.TyCon+import GHC.Core.Type+import GHC.Core.TyCo.Rep+import GHC.Builtin.Types.Prim ( alphaTyVars )+import GHC.Builtin.Types ( eqTyConName, listTyConName, liftedTypeKindTyConName                   , unitTy, promotedNilDataCon, promotedConsDataCon )-import PrelNames ( hasKey, eqTyConKey, ipClassKey, tYPETyConKey+import GHC.Builtin.Names ( hasKey, eqTyConKey, ipClassKey, tYPETyConKey                  , liftedRepDataConKey )-import Unique ( getUnique )-import Util ( chkAppend, dropList, filterByList, filterOut )-import Var-import VarSet+import GHC.Types.Unique ( getUnique )+import GHC.Utils.Misc ( chkAppend, debugIsOn, dropList, equalLength+                      , filterByList, filterOut )+import GHC.Utils.Outputable ( assertPanic )+import GHC.Types.Var+import GHC.Types.Var.Set+import GHC.Types.SrcLoc+import GHC.Parser.Annotation (IsUnicodeSyntax(..))  import Haddock.Types import Haddock.Interface.Specialize import Haddock.GhcUtils                      ( orderedFVs, defaultRuntimeRepVars ) -import Data.Maybe                            ( catMaybes, maybeToList )+import Data.Maybe                            ( catMaybes, mapMaybe, maybeToList )   -- | Whether or not to default 'RuntimeRep' variables to 'LiftedRep'. Check--- out Note [Defaulting RuntimeRep variables] in IfaceType.hs for the+-- out Note [Defaulting RuntimeRep variables] in GHC.Iface.Type for the -- motivation. data PrintRuntimeReps = ShowRuntimeRep | HideRuntimeRep deriving Show @@ -85,6 +90,15 @@            extractFamilyDecl _           =              Left "tyThingToLHsDecl: impossible associated tycon" +           cvt (UserTyVar _ _ n) = HsTyVar noExtField NotPromoted n+           cvt (KindedTyVar _ _ (L name_loc n) kind) = HsKindSig noExtField+              (L name_loc (HsTyVar noExtField NotPromoted (L name_loc n))) kind+           cvt (XTyVarBndr nec) = noExtCon nec++           -- | Convert a LHsTyVarBndr to an equivalent LHsType.+           hsLTyVarBndrToType :: LHsTyVarBndr flag (GhcPass p) -> LHsType (GhcPass p)+           hsLTyVarBndrToType = mapLoc cvt+            extractFamDefDecl :: FamilyDecl GhcRn -> Type -> TyFamDefltDecl GhcRn            extractFamDefDecl fd rhs =              TyFamInstDecl $ HsIB { hsib_ext = hsq_ext (fdTyVars fd)@@ -127,7 +141,7 @@          , tcdATs = atFamDecls          , tcdATDefs = catMaybes atDefFamDecls          , tcdDocs = [] --we don't have any docs at this point-         , tcdCExt = placeHolderNamesTc }+         , tcdCExt = emptyNameSet }     | otherwise     -> synifyTyCon prr Nothing tc >>= allOK . TyClD noExtField @@ -137,7 +151,7 @@    -- a data-constructor alone just gets rendered as a function:   AConLike (RealDataCon dc) -> allOK $ SigD noExtField (TypeSig noExtField [synifyName dc]-    (synifySigWcType ImplicitizeForAll [] (dataConUserType dc)))+    (synifySigWcType ImplicitizeForAll [] (dataConWrapperType dc)))    AConLike (PatSynCon ps) ->     allOK . SigD noExtField $ PatSynSig noExtField [synifyName ps] (synifyPatSynSigType ps)@@ -190,7 +204,7 @@     DataDecl { tcdLName = synifyName tc              , tcdTyVars = HsQTvs  { hsq_ext = []   -- No kind polymorphism                                    , hsq_explicit = zipWith mk_hs_tv-                                                            tyVarKinds+                                                            (map scaledThing tyVarKinds)                                                             alphaTyVars --a, b, c... which are unfortunately all kind *                                    } @@ -205,12 +219,12 @@                                                -- we have their kind accurately:                                       , dd_cons = []  -- No constructors                                       , dd_derivs = noLoc [] }-           , tcdDExt = DataDeclRn False placeHolderNamesTc }+           , tcdDExt = DataDeclRn False emptyNameSet }   where     -- tyConTyVars doesn't work on fun/prim, but we can make them up:     mk_hs_tv realKind fakeTyVar-      | isLiftedTypeKind realKind = noLoc $ UserTyVar noExtField (noLoc (getName fakeTyVar))-      | otherwise = noLoc $ KindedTyVar noExtField (noLoc (getName fakeTyVar)) (synifyKindSig realKind)+      | isLiftedTypeKind realKind = noLoc $ UserTyVar noExtField () (noLoc (getName fakeTyVar))+      | otherwise = noLoc $ KindedTyVar noExtField () (noLoc (getName fakeTyVar)) (synifyKindSig realKind)      conKind = defaultType prr (tyConKind tc)     tyVarKinds = fst . splitFunTys . snd . splitPiTysInvisible $ conKind@@ -298,7 +312,7 @@         DataDecl { tcdLName = name, tcdTyVars = tyvars                  , tcdFixity = synifyFixity name                  , tcdDataDefn = defn-                 , tcdDExt = DataDeclRn False placeHolderNamesTc }+                 , tcdDExt = DataDeclRn False emptyNameSet }   dataConErrs -> Left $ unlines dataConErrs  -- | In this module, every TyCon being considered has come from an interface@@ -334,7 +348,7 @@    | isLiftedTypeKind kind = noLoc $ NoSig noExtField    | otherwise = noLoc $ KindSig  noExtField (synifyKindSig kind) synifyFamilyResultSig (Just name) kind =-   noLoc $ TyVarSig noExtField (noLoc $ KindedTyVar noExtField (noLoc name) (synifyKindSig kind))+   noLoc $ TyVarSig noExtField (noLoc $ KindedTyVar noExtField () (noLoc name) (synifyKindSig kind))  -- User beware: it is your responsibility to pass True (use_gadt_syntax) -- for any constructor that would be misrepresented by omitting its@@ -351,7 +365,7 @@   name = synifyName dc   -- con_qvars means a different thing depending on gadt-syntax   (_univ_tvs, ex_tvs, _eq_spec, theta, arg_tys, res_ty) = dataConFullSig dc-  user_tvs = dataConUserTyVars dc -- Used for GADT data constructors+  user_tvbndrs = dataConUserTyVarBinders dc -- Used for GADT data constructors    -- skip any EqTheta, use 'orig'inal syntax   ctx | null theta = Nothing@@ -359,7 +373,7 @@    linear_tys =     zipWith (\ty bang ->-               let tySyn = synifyType WithinType [] ty+               let tySyn = synifyType WithinType [] (scaledThing ty)                in case bang of                     (HsSrcBang _ NoSrcUnpack NoSrcStrict) -> tySyn                     bang' -> noLoc $ HsBangTy noExtField bang' tySyn)@@ -372,19 +386,19 @@   hs_arg_tys = case (use_named_field_syntax, use_infix_syntax) of           (True,True) -> Left "synifyDataCon: contradiction!"           (True,False) -> return $ RecCon (noLoc field_tys)-          (False,False) -> return $ PrefixCon linear_tys+          (False,False) -> return $ PrefixCon (map hsUnrestricted linear_tys)           (False,True) -> case linear_tys of-                           [a,b] -> return $ InfixCon a b+                           [a,b] -> return $ InfixCon (hsUnrestricted a) (hsUnrestricted b)                            _ -> Left "synifyDataCon: infix with non-2 args?"  -- finally we get synifyDataCon's result!  in hs_arg_tys >>=       \hat ->         if use_gadt_syntax            then return $ noLoc $-              ConDeclGADT { con_g_ext  = noExtField+              ConDeclGADT { con_g_ext  = []                           , con_names  = [name]-                          , con_forall = noLoc $ not $ null user_tvs-                          , con_qvars  = synifyTyVars user_tvs+                          , con_forall = noLoc $ not $ null user_tvbndrs+                          , con_qvars  = map synifyTyVarBndr user_tvbndrs                           , con_mb_cxt = ctx                           , con_args   = hat                           , con_res_ty = synifyType WithinType [] res_ty@@ -393,7 +407,7 @@               ConDeclH98 { con_ext    = noExtField                          , con_name   = name                          , con_forall = noLoc False-                         , con_ex_tvs = map synifyTyVar ex_tvs+                         , con_ex_tvs = map (synifyTyVarBndr . (mkTyCoVarBinder InferredSpec)) ex_tvs                          , con_mb_cxt = ctx                          , con_args   = hat                          , con_doc    = Nothing }@@ -438,21 +452,26 @@ synifyTyVars ktvs = HsQTvs { hsq_ext = []                            , hsq_explicit = map synifyTyVar ktvs } -synifyTyVar :: TyVar -> LHsTyVarBndr GhcRn-synifyTyVar = synifyTyVar' emptyVarSet+synifyTyVar :: TyVar -> LHsTyVarBndr () GhcRn+synifyTyVar = synify_ty_var emptyVarSet () --- | Like 'synifyTyVar', but accepts a set of variables for which to omit kind+synifyTyVarBndr :: VarBndr TyVar flag -> LHsTyVarBndr flag GhcRn+synifyTyVarBndr = synifyTyVarBndr' emptyVarSet++synifyTyVarBndr' :: VarSet -> VarBndr TyVar flag -> LHsTyVarBndr flag GhcRn+synifyTyVarBndr' no_kinds (Bndr tv spec) = synify_ty_var no_kinds spec tv++-- | Like 'synifyTyVarBndr', but accepts a set of variables for which to omit kind -- signatures (even if they don't have the lifted type kind).-synifyTyVar' :: VarSet -> TyVar -> LHsTyVarBndr GhcRn-synifyTyVar' no_kinds tv+synify_ty_var :: VarSet -> flag -> TyVar -> LHsTyVarBndr flag GhcRn+synify_ty_var no_kinds flag tv   | isLiftedTypeKind kind || tv `elemVarSet` no_kinds-  = noLoc (UserTyVar noExtField (noLoc name))-  | otherwise = noLoc (KindedTyVar noExtField (noLoc name) (synifyKindSig kind))+  = noLoc (UserTyVar noExtField flag (noLoc name))+  | otherwise = noLoc (KindedTyVar noExtField flag (noLoc name) (synifyKindSig kind))   where     kind = tyVarKind tv     name = getName tv - -- | Annotate (with HsKingSig) a type if the first parameter is True -- and if the type contains a free variable. -- This is used to synify type patterns for poly-kinded tyvars in@@ -620,38 +639,57 @@              filterByList (map isVisibleArgFlag $ appTyArgFlags ty_head ty_args)                           ty_args   in foldl (\t1 t2 -> noLoc $ HsAppTy noExtField t1 t2) ty_head' ty_args'-synifyType s vs funty@(FunTy InvisArg _ _) = synifyForAllType s Inferred vs funty-synifyType _ vs       (FunTy VisArg t1 t2) = let+synifyType s vs funty@(FunTy InvisArg _ _ _) = synifySigmaType s vs funty+synifyType _ vs       (FunTy VisArg w t1 t2) = let   s1 = synifyType WithinType vs t1   s2 = synifyType WithinType vs t2-  in noLoc $ HsFunTy noExtField s1 s2+  w' = synifyMult vs w+  in noLoc $ HsFunTy noExtField w' s1 s2 synifyType s vs forallty@(ForAllTy (Bndr _ argf) _ty) =-  synifyForAllType s argf vs forallty+  case argf of+    Required    -> synifyVisForAllType vs forallty+    Invisible _ -> synifySigmaType s vs forallty  synifyType _ _ (LitTy t) = noLoc $ HsTyLit noExtField $ synifyTyLit t synifyType s vs (CastTy t _) = synifyType s vs t synifyType _ _ (CoercionTy {}) = error "synifyType:Coercion" --- | Process a 'Type' which starts with a forall or a constraint into--- an 'HsType'-synifyForAllType+-- | Process a 'Type' which starts with a visible @forall@ into an 'HsType'+synifyVisForAllType+  :: [TyVar]          -- ^ free variables in the type to convert+  -> Type             -- ^ the forall type to convert+  -> LHsType GhcRn+synifyVisForAllType vs ty =+  let (tvs, rho) = tcSplitForAllTysReqPreserveSynonyms ty++      sTvs = map synifyTyVarBndr tvs++      -- Figure out what the type variable order would be inferred in the+      -- absence of an explicit forall+      tvs' = orderedFVs (mkVarSet vs) [rho]++  in noLoc $ HsForAllTy { hst_tele = mkHsForAllVisTele sTvs+                        , hst_xforall = noExtField+                        , hst_body  = synifyType WithinType (tvs' ++ vs) rho }++-- | Process a 'Type' which starts with an invisible @forall@ or a constraint+-- into an 'HsType'+synifySigmaType   :: SynifyTypeState  -- ^ what to do with the 'forall'-  -> ArgFlag          -- ^ the visibility of the @forall@   -> [TyVar]          -- ^ free variables in the type to convert   -> Type             -- ^ the forall type to convert   -> LHsType GhcRn-synifyForAllType s argf vs ty =-  let (tvs, ctx, tau) = tcSplitSigmaTySameVisPreserveSynonyms argf ty+synifySigmaType s vs ty =+  let (tvs, ctx, tau) = tcSplitSigmaTyPreserveSynonyms ty       sPhi = HsQualTy { hst_ctxt = synifyCtx ctx                       , hst_xqual = noExtField                       , hst_body = synifyType WithinType (tvs' ++ vs) tau } -      sTy = HsForAllTy { hst_fvf = argToForallVisFlag argf-                       , hst_bndrs = sTvs+      sTy = HsForAllTy { hst_tele = mkHsForAllInvisTele sTvs                        , hst_xforall = noExtField                        , hst_body  = noLoc sPhi } -      sTvs = map synifyTyVar tvs+      sTvs = map synifyTyVarBndr tvs        -- Figure out what the type variable order would be inferred in the       -- absence of an explicit forall@@ -667,21 +705,20 @@      ImplicitizeForAll -> implicitForAll [] vs tvs ctx (synifyType WithinType) tau - -- | Put a forall in if there are any type variables which require -- explicit kind annotations or if the inferred type variable order -- would be different. implicitForAll   :: [TyCon]          -- ^ type constructors that determine their args kinds   -> [TyVar]          -- ^ free variables in the type to convert-  -> [TyVar]          -- ^ type variable binders in the forall+  -> [InvisTVBinder]  -- ^ type variable binders in the forall   -> ThetaType        -- ^ constraints right after the forall   -> ([TyVar] -> Type -> LHsType GhcRn) -- ^ how to convert the inner type   -> Type             -- ^ inner type   -> LHsType GhcRn implicitForAll tycons vs tvs ctx synInner tau   | any (isHsKindedTyVar . unLoc) sTvs = noLoc sTy-  | tvs' /= tvs                        = noLoc sTy+  | tvs' /= (binderVars tvs)           = noLoc sTy   | otherwise                          = noLoc sPhi   where   sRho = synInner (tvs' ++ vs) tau@@ -690,13 +727,12 @@        = HsQualTy { hst_ctxt = synifyCtx ctx                   , hst_xqual = noExtField                   , hst_body = synInner (tvs' ++ vs) tau }-  sTy = HsForAllTy { hst_fvf = ForallInvis-                   , hst_bndrs = sTvs+  sTy = HsForAllTy { hst_tele = mkHsForAllInvisTele sTvs                    , hst_xforall = noExtField                    , hst_body = noLoc sPhi }    no_kinds_needed = noKindTyVars tycons tau-  sTvs = map (synifyTyVar' no_kinds_needed) tvs+  sTvs = map (synifyTyVarBndr' no_kinds_needed) tvs    -- Figure out what the type variable order would be inferred in the   -- absence of an explicit forall@@ -725,7 +761,7 @@   = let args = map (noKindTyVars ts) xs         func = case f of                  TyVarTy var | (xsKinds, outKind) <- splitFunTys (tyVarKind var)-                             , xsKinds `eqTypes` map typeKind xs+                             , map scaledThing xsKinds `eqTypes` map typeKind xs                              , isLiftedTypeKind outKind                              -> unitVarSet var                  TyConApp t ks | t `elem` ts@@ -734,13 +770,23 @@                  _ -> noKindTyVars ts f     in unionVarSets (func : args) noKindTyVars ts (ForAllTy _ t) = noKindTyVars ts t-noKindTyVars ts (FunTy _ t1 t2) = noKindTyVars ts t1 `unionVarSet` noKindTyVars ts t2+noKindTyVars ts (FunTy _ w t1 t2) = noKindTyVars ts w `unionVarSet`+                                    noKindTyVars ts t1 `unionVarSet`+                                    noKindTyVars ts t2 noKindTyVars ts (CastTy t _) = noKindTyVars ts t noKindTyVars _ _ = emptyVarSet +synifyMult :: [TyVar] -> Mult -> HsArrow GhcRn+synifyMult vs t = case t of+                    One  -> HsLinearArrow NormalSyntax+                    Many -> HsUnrestrictedArrow NormalSyntax+                    ty -> HsExplicitMult NormalSyntax (synifyType WithinType vs ty)+++ synifyPatSynType :: PatSyn -> LHsType GhcRn synifyPatSynType ps =-  let (univ_tvs, req_theta, ex_tvs, prov_theta, arg_tys, res_ty) = patSynSig ps+  let (univ_tvs, req_theta, ex_tvs, prov_theta, arg_tys, res_ty) = patSynSigBndr ps       ts = maybeToList (tyConAppTyCon_maybe res_ty)        -- HACK: a HsQualTy with theta = [unitTy] will be printed as "() =>",@@ -811,7 +857,7 @@     eta_expanded_lhs       -- eta-expand lhs types, because sometimes data/newtype       -- instances are eta-reduced; See Trac #9692-      -- See Note [Eta reduction for data family axioms] in TcInstDcls in GHC+      -- See Note [Eta reduction for data family axioms] in GHC.Tc.TyCl.Instance in GHC       | DataFamilyInst rep_tc <- fam_flavor       = let (_, rep_tc_args) = splitTyConApp fam_rhs             etad_tyvars      = dropList rep_tc_args $ tyConTyVars rep_tc@@ -839,24 +885,56 @@ invariant didn't hold. -} --- | A version of 'TcType.tcSplitSigmaTySameVis' that preserves type synonyms.+-- | A version of 'TcType.tcSplitSigmaTy' that: --+-- 1. Preserves type synonyms.+-- 2. Returns 'InvisTVBinder's instead of 'TyVar's.+-- -- See Note [Invariant: Never expand type synonyms]-tcSplitSigmaTySameVisPreserveSynonyms :: ArgFlag -> Type -> ([TyVar], ThetaType, Type)-tcSplitSigmaTySameVisPreserveSynonyms argf ty =-    case tcSplitForAllTysSameVisPreserveSynonyms argf ty of+tcSplitSigmaTyPreserveSynonyms :: Type -> ([InvisTVBinder], ThetaType, Type)+tcSplitSigmaTyPreserveSynonyms ty =+    case tcSplitForAllTysInvisPreserveSynonyms ty of       (tvs, rho) -> case tcSplitPhiTyPreserveSynonyms rho of         (theta, tau) -> (tvs, theta, tau)  -- | See Note [Invariant: Never expand type synonyms]-tcSplitForAllTysSameVisPreserveSynonyms :: ArgFlag -> Type -> ([TyVar], Type)-tcSplitForAllTysSameVisPreserveSynonyms supplied_argf ty = split ty ty []+tcSplitSomeForAllTysPreserveSynonyms ::+  (ArgFlag -> Bool) -> Type -> ([TyCoVarBinder], Type)+tcSplitSomeForAllTysPreserveSynonyms argf_pred ty = split ty ty []   where-    split _       (ForAllTy (Bndr tv argf) ty') tvs-      | argf `sameVis` supplied_argf                = split ty' ty' (tv:tvs)-    split orig_ty _                             tvs = (reverse tvs, orig_ty)+    split _ (ForAllTy tvb@(Bndr _ argf) ty') tvs+      | argf_pred argf  = split ty' ty' (tvb:tvs)+    split orig_ty _ tvs = (reverse tvs, orig_ty)  -- | See Note [Invariant: Never expand type synonyms]+tcSplitForAllTysReqPreserveSynonyms :: Type -> ([ReqTVBinder], Type)+tcSplitForAllTysReqPreserveSynonyms ty =+  let (all_bndrs, body) = tcSplitSomeForAllTysPreserveSynonyms isVisibleArgFlag ty+      req_bndrs         = mapMaybe mk_req_bndr_maybe all_bndrs in+  ASSERT( req_bndrs `equalLength` all_bndrs )+  (req_bndrs, body)+  where+    mk_req_bndr_maybe :: TyCoVarBinder -> Maybe ReqTVBinder+    mk_req_bndr_maybe (Bndr tv argf) = case argf of+      Required    -> Just $ Bndr tv ()+      Invisible _ -> Nothing++-- | See Note [Invariant: Never expand type synonyms]+tcSplitForAllTysInvisPreserveSynonyms :: Type -> ([InvisTVBinder], Type)+tcSplitForAllTysInvisPreserveSynonyms ty =+  let (all_bndrs, body) = tcSplitSomeForAllTysPreserveSynonyms isInvisibleArgFlag ty+      inv_bndrs         = mapMaybe mk_inv_bndr_maybe all_bndrs in+  ASSERT( inv_bndrs `equalLength` all_bndrs )+  (inv_bndrs, body)+  where+    mk_inv_bndr_maybe :: TyCoVarBinder -> Maybe InvisTVBinder+    mk_inv_bndr_maybe (Bndr tv argf) = case argf of+      Invisible s -> Just $ Bndr tv s+      Required    -> Nothing++-- | See Note [Invariant: Never expand type synonyms]++-- | See Note [Invariant: Never expand type synonyms] tcSplitPhiTyPreserveSynonyms :: Type -> (ThetaType, Type) tcSplitPhiTyPreserveSynonyms ty0 = split ty0 []   where@@ -867,5 +945,5 @@  -- | See Note [Invariant: Never expand type synonyms] tcSplitPredFunTyPreserveSynonyms_maybe :: Type -> Maybe (PredType, Type)-tcSplitPredFunTyPreserveSynonyms_maybe (FunTy InvisArg arg res) = Just (arg, res)+tcSplitPredFunTyPreserveSynonyms_maybe (FunTy InvisArg _ arg res) = Just (arg, res) tcSplitPredFunTyPreserveSynonyms_maybe _ = Nothing
haddock-api/src/Haddock/GhcUtils.hs view
@@ -25,28 +25,25 @@  import Haddock.Types( DocName, DocNameI ) -import BasicTypes ( PromotionFlag(..) )-import Exception-import FV-import Outputable ( Outputable, panic, showPpr )-import Name-import NameSet-import Module-import HscTypes+import GHC.Utils.FV as FV+import GHC.Utils.Outputable ( Outputable, panic, showPpr )+import GHC.Types.Basic (PromotionFlag(..))+import GHC.Types.Name+import GHC.Unit.Module import GHC-import Class-import DynFlags-import SrcLoc    ( advanceSrcLoc )-import Var       ( VarBndr(..), TyVarBinder, tyVarKind, updateTyVarKind,-                   isInvisibleArgFlag )-import VarSet    ( VarSet, emptyVarSet )-import VarEnv    ( TyVarEnv, extendVarEnv, elemVarEnv, emptyVarEnv )-import TyCoRep   ( Type(..) )-import Type      ( isRuntimeRepVar )-import TysWiredIn( liftedRepDataConTyCon )+import GHC.Driver.Session+import GHC.Types.SrcLoc  ( advanceSrcLoc )+import GHC.Types.Var     ( Specificity, VarBndr(..), TyVarBinder+                         , tyVarKind, updateTyVarKind, isInvisibleArgFlag )+import GHC.Types.Var.Set ( VarSet, emptyVarSet )+import GHC.Types.Var.Env ( TyVarEnv, extendVarEnv, elemVarEnv, emptyVarEnv )+import GHC.Core.TyCo.Rep ( Type(..) )+import GHC.Core.Type     ( isRuntimeRepVar )+import GHC.Builtin.Types( liftedRepDataConTyCon )+import GHC.Parser.Annotation (IsUnicodeSyntax(..)) -import           StringBuffer ( StringBuffer )-import qualified StringBuffer             as S+import           GHC.Data.StringBuffer ( StringBuffer )+import qualified GHC.Data.StringBuffer             as S  import           Data.ByteString ( ByteString ) import qualified Data.ByteString          as BS@@ -58,38 +55,6 @@ isNameSym :: Name -> Bool isNameSym = isSymOcc . nameOccName -getMainDeclBinder :: HsDecl (GhcPass p) -> [IdP (GhcPass p)]-getMainDeclBinder (TyClD _ d) = [tcdName d]-getMainDeclBinder (ValD _ d) =-  case collectHsBindBinders d of-    []       -> []-    (name:_) -> [name]-getMainDeclBinder (SigD _ d) = sigNameNoLoc d-getMainDeclBinder (ForD _ (ForeignImport _ name _ _)) = [unLoc name]-getMainDeclBinder (ForD _ (ForeignExport _ _ _ _)) = []-getMainDeclBinder _ = []---- Extract the source location where an instance is defined. This is used--- to correlate InstDecls with their Instance/CoAxiom Names, via the--- instanceMap.-getInstLoc :: InstDecl (GhcPass p) -> SrcSpan-getInstLoc (ClsInstD _ (ClsInstDecl { cid_poly_ty = ty })) = getLoc (hsSigType ty)-getInstLoc (DataFamInstD _ (DataFamInstDecl-  { dfid_eqn = HsIB { hsib_body = FamEqn { feqn_tycon = L l _ }}})) = l-getInstLoc (TyFamInstD _ (TyFamInstDecl-  -- Since CoAxioms' Names refer to the whole line for type family instances-  -- in particular, we need to dig a bit deeper to pull out the entire-  -- equation. This does not happen for data family instances, for some reason.-  { tfid_eqn = HsIB { hsib_body = FamEqn { feqn_rhs = L l _ }}})) = l-getInstLoc (ClsInstD _ (XClsInstDecl nec)) = noExtCon nec-getInstLoc (DataFamInstD _ (DataFamInstDecl (HsIB _ (XFamEqn nec)))) = noExtCon nec-getInstLoc (TyFamInstD _ (TyFamInstDecl (HsIB _ (XFamEqn nec)))) = noExtCon nec-getInstLoc (XInstDecl nec) = noExtCon nec-getInstLoc (DataFamInstD _ (DataFamInstDecl (XHsImplicitBndrs nec))) = noExtCon nec-getInstLoc (TyFamInstD _ (TyFamInstDecl (XHsImplicitBndrs nec))) = noExtCon nec--- -- Useful when there is a signature with multiple names, e.g. --   foo, bar :: Types.. -- but only one of the names is exported and we have to change the@@ -147,48 +112,45 @@ isClassD (TyClD _ d) = isClassDecl d isClassD _ = False -isValD :: HsDecl a -> Bool-isValD (ValD _ _) = True-isValD _ = False- pretty :: Outputable a => DynFlags -> a -> String pretty = showPpr -nubByName :: (a -> Name) -> [a] -> [a]-nubByName f ns = go emptyNameSet ns-  where-    go !_ [] = []-    go !s (x:xs)-      | y `elemNameSet` s = go s xs-      | otherwise         = let !s' = extendNameSet s y-                            in x : go s' xs-      where-        y = f x-- -- ---------------------------------------------------------------------  -- These functions are duplicated from the GHC API, as they must be -- instantiated at DocNameI instead of (GhcPass _).  -- | Like 'hsTyVarName' from GHC API, but not instantiated at (GhcPass _)-hsTyVarBndrName :: (XXTyVarBndr n ~ NoExtCon) => HsTyVarBndr n -> IdP n-hsTyVarBndrName (UserTyVar _ name) = unLoc name-hsTyVarBndrName (KindedTyVar _ (L _ name) _) = name+hsTyVarBndrName :: (XXTyVarBndr n ~ NoExtCon) => HsTyVarBndr flag n -> IdP n+hsTyVarBndrName (UserTyVar _ _ name) = unLoc name+hsTyVarBndrName (KindedTyVar _ _ (L _ name) _) = name hsTyVarBndrName (XTyVarBndr nec) = noExtCon nec +hsTyVarNameI :: HsTyVarBndr flag DocNameI -> DocName+hsTyVarNameI (UserTyVar _ _ (L _ n))     = n+hsTyVarNameI (KindedTyVar _ _ (L _ n) _) = n++hsLTyVarNameI :: LHsTyVarBndr flag DocNameI -> DocName+hsLTyVarNameI = hsTyVarNameI . unLoc+ getConNamesI :: ConDecl DocNameI -> [Located DocName] getConNamesI ConDeclH98  {con_name  = name}  = [name] getConNamesI ConDeclGADT {con_names = names} = names-getConNamesI (XConDecl nec) = noExtCon nec  hsImplicitBodyI :: HsImplicitBndrs DocNameI thing -> thing hsImplicitBodyI (HsIB { hsib_body = body }) = body-hsImplicitBodyI (XHsImplicitBndrs nec) = noExtCon nec  hsSigTypeI :: LHsSigType DocNameI -> LHsType DocNameI hsSigTypeI = hsImplicitBodyI +mkHsForAllInvisTeleI ::+  [LHsTyVarBndr Specificity DocNameI] -> HsForAllTelescope DocNameI+mkHsForAllInvisTeleI invis_bndrs =+  HsForAllInvis { hsf_xinvis = noExtField, hsf_invis_bndrs = invis_bndrs }++getConArgsI :: ConDecl DocNameI -> HsConDeclDetails DocNameI+getConArgsI d = con_args d+ getGADTConType :: ConDecl DocNameI -> LHsType DocNameI -- The full type of a GADT data constructor We really only get this in -- order to pretty-print it, and currently only in Haddock's code.  So@@ -198,9 +160,8 @@                             , con_qvars = qtvs                             , con_mb_cxt = mcxt, con_args = args                             , con_res_ty = res_ty })- | has_forall = noLoc (HsForAllTy { hst_fvf = ForallInvis-                                  , hst_xforall = noExtField-                                  , hst_bndrs = hsQTvExplicit qtvs+ | has_forall = noLoc (HsForAllTy { hst_xforall = noExtField+                                  , hst_tele = mkHsForAllInvisTeleI qtvs                                   , hst_body  = theta_ty })  | otherwise  = theta_ty  where@@ -209,16 +170,16 @@             | otherwise             = tau_ty +--  tau_ty :: LHsType DocNameI    tau_ty = case args of-              RecCon flds -> noLoc (HsFunTy noExtField (noLoc (HsRecTy noExtField (unLoc flds))) res_ty)-              PrefixCon pos_args -> foldr mkFunTy res_ty pos_args-              InfixCon arg1 arg2 -> arg1 `mkFunTy` (arg2 `mkFunTy` res_ty)+              RecCon flds ->  mkFunTy (noLoc (HsRecTy noExtField (unLoc flds))) res_ty+              PrefixCon pos_args -> foldr mkFunTy res_ty (map hsScaledThing pos_args)+              InfixCon arg1 arg2 -> (hsScaledThing arg1) `mkFunTy` ((hsScaledThing arg2) `mkFunTy` res_ty) -   mkFunTy a b = noLoc (HsFunTy noExtField a b)+   mkFunTy a b = noLoc (HsFunTy noExtField (HsUnrestrictedArrow NormalSyntax) a b)  getGADTConType (ConDeclH98 {}) = panic "getGADTConType"   -- Should only be called on ConDeclGADT-getGADTConType (XConDecl nec) = noExtCon nec  getMainDeclBinderI :: HsDecl DocNameI -> [IdP DocNameI] getMainDeclBinderI (TyClD _ d) = [tcdNameI d]@@ -233,21 +194,19 @@  familyDeclLNameI :: FamilyDecl DocNameI -> Located DocName familyDeclLNameI (FamilyDecl { fdLName = n }) = n-familyDeclLNameI (XFamilyDecl nec) = noExtCon nec  tyClDeclLNameI :: TyClDecl DocNameI -> Located DocName tyClDeclLNameI (FamDecl { tcdFam = fd })     = familyDeclLNameI fd tyClDeclLNameI (SynDecl { tcdLName = ln })   = ln tyClDeclLNameI (DataDecl { tcdLName = ln })  = ln tyClDeclLNameI (ClassDecl { tcdLName = ln }) = ln-tyClDeclLNameI (XTyClDecl nec) = noExtCon nec  tcdNameI :: TyClDecl DocNameI -> DocName tcdNameI = unLoc . tyClDeclLNameI  -- ------------------------------------- -getGADTConTypeG :: ConDecl (GhcPass p) -> LHsType (GhcPass p)+getGADTConTypeG :: ConDecl GhcRn -> LHsType GhcRn -- The full type of a GADT data constructor We really only get this in -- order to pretty-print it, and currently only in Haddock's code.  So -- we are cavalier about locations and extensions, hence the@@ -256,9 +215,8 @@                             , con_qvars = qtvs                             , con_mb_cxt = mcxt, con_args = args                             , con_res_ty = res_ty })- | has_forall = noLoc (HsForAllTy { hst_fvf = ForallInvis-                                  , hst_xforall = noExtField-                                  , hst_bndrs = hsQTvExplicit qtvs+ | has_forall = noLoc (HsForAllTy { hst_xforall = noExtField+                                  , hst_tele = mkHsForAllInvisTele qtvs                                   , hst_body  = theta_ty })  | otherwise  = theta_ty  where@@ -267,16 +225,17 @@             | otherwise             = tau_ty +--   tau_ty :: LHsType DocNameI    tau_ty = case args of-              RecCon flds -> noLoc (HsFunTy noExtField (noLoc (HsRecTy noExtField (unLoc flds))) res_ty)-              PrefixCon pos_args -> foldr mkFunTy res_ty pos_args-              InfixCon arg1 arg2 -> arg1 `mkFunTy` (arg2 `mkFunTy` res_ty)+              RecCon flds ->  mkFunTy (noLoc (HsRecTy noExtField (unLoc flds))) res_ty+              PrefixCon pos_args -> foldr mkFunTy res_ty (map hsScaledThing pos_args)+              InfixCon arg1 arg2 -> (hsScaledThing arg1) `mkFunTy` ((hsScaledThing arg2) `mkFunTy` res_ty) -   mkFunTy a b = noLoc (HsFunTy noExtField a b)+   -- mkFunTy :: LHsType DocNameI -> LHsType DocNameI -> LHsType DocNameI+   mkFunTy a b = noLoc (HsFunTy noExtField (HsUnrestrictedArrow NormalSyntax) a b)  getGADTConTypeG (ConDeclH98 {}) = panic "getGADTConTypeG"   -- Should only be called on ConDeclGADT-getGADTConTypeG (XConDecl nec) = noExtCon nec   mkEmptySigWcType :: LHsType GhcRn -> LHsSigWcType GhcRn@@ -291,9 +250,9 @@   = L pos (TypeSig noExtField lname (mkEmptySigWcType (go (hsSigType ltype))))           -- The mkEmptySigWcType is suspicious   where-    go (L loc (HsForAllTy { hst_fvf = fvf, hst_bndrs = tvs, hst_body = ty }))-       = L loc (HsForAllTy { hst_fvf = fvf, hst_xforall = noExtField-                           , hst_bndrs = tvs, hst_body = go ty })+    go (L loc (HsForAllTy { hst_tele = tele, hst_body = ty }))+       = L loc (HsForAllTy { hst_tele = tele, hst_xforall = noExtField+                           , hst_body = go ty })     go (L loc (HsQualTy { hst_ctxt = ctxt, hst_body = ty }))        = L loc (HsQualTy { hst_xqual = noExtField                          , hst_ctxt = add_ctxt ctxt, hst_body = ty })@@ -301,7 +260,10 @@        = L loc (HsQualTy { hst_xqual = noExtField                          , hst_ctxt = add_ctxt (L loc []), hst_body = L loc ty }) -    extra_pred = nlHsTyConApp cls (lHsQTyVarsToTypes tvs0)+    extra_pred :: LHsType GhcRn+    extra_pred = nlHsTyConApp Prefix cls (map HsValArg (lHsQTyVarsToTypes tvs0))++    add_ctxt :: LHsContext GhcRn -> LHsContext GhcRn     add_ctxt (L loc preds) = L loc (extra_pred : preds)  addClassContext _ _ sig = sig   -- E.g. a MinimalSig is fine@@ -335,7 +297,6 @@       []    -> defn { dd_ND = DataType, dd_cons = [] }       [con] -> defn { dd_cons = [con] }       _ -> error "Should not happen"-restrictDataDefn _ (XHsDataDefn nec) = noExtCon nec  restrictCons :: [Name] -> [LConDecl GhcRn] -> [LConDecl GhcRn] restrictCons names decls = [ L p d | L p (Just d) <- map (fmap keep) decls ]@@ -345,7 +306,7 @@         PrefixCon _ -> Just d         RecCon fields           | all field_avail (unLoc fields) -> Just d-          | otherwise -> Just (d { con_args = PrefixCon (field_types (map unLoc (unLoc fields))) })+          | otherwise -> Just (d { con_args = PrefixCon (field_types $ unLoc fields) })           -- if we have *all* the field names available, then           -- keep the record declaration.  Otherwise degrade to           -- a constructor declaration.  This isn't quite right, but@@ -355,9 +316,9 @@         field_avail :: LConDeclField GhcRn -> Bool         field_avail (L _ (ConDeclField _ fs _ _))             = all (\f -> extFieldOcc (unLoc f) `elem` names) fs-        field_avail (L _ (XConDeclField nec)) = noExtCon nec-        field_types flds = [ t | ConDeclField _ _ t _ <- flds ] +        field_types flds = [ hsUnrestricted t | L _ (ConDeclField _ _ t _) <- flds ]+     keep _ = Nothing  restrictDecls :: [Name] -> [LSig GhcRn] -> [LSig GhcRn]@@ -413,14 +374,14 @@     = paren p PREC_SIG $ HsKindSig x (goL PREC_SIG ty) (goL PREC_SIG kind)   go p (HsIParamTy x n ty)     = paren p PREC_SIG $ HsIParamTy x n (reparenLType ty)-  go p (HsForAllTy x fvf tvs ty)-    = paren p PREC_CTX $ HsForAllTy x fvf (map (fmap reparenTyVar) tvs) (reparenLType ty)+  go p (HsForAllTy x tele ty)+    = paren p PREC_CTX $ HsForAllTy x (reparenHsForAllTelescope tele) (reparenLType ty)   go p (HsQualTy x ctxt ty)     = let p' [_] = PREC_CTX           p' _   = PREC_TOP -- parens will get added anyways later...       in paren p PREC_CTX $ HsQualTy x (fmap (\xs -> map (goL (p' xs)) xs) ctxt) (goL PREC_TOP ty)-  go p (HsFunTy x ty1 ty2)-    = paren p PREC_FUN $ HsFunTy x (goL PREC_FUN ty1) (goL PREC_TOP ty2)+  go p (HsFunTy x w ty1 ty2)+    = paren p PREC_FUN $ HsFunTy x w (goL PREC_FUN ty1) (goL PREC_TOP ty2)   go p (HsAppTy x fun_ty arg_ty)     = paren p PREC_CON $ HsAppTy x (goL PREC_FUN fun_ty) (goL PREC_CON arg_ty)   go p (HsAppKindTy x fun_ty arg_ki)@@ -456,10 +417,19 @@ reparenLType :: (XParTy a ~ NoExtField) => LHsType a -> LHsType a reparenLType = fmap reparenType +-- | Add parentheses around the types in an 'HsForAllTelescope' (see 'reparenTypePrec')+reparenHsForAllTelescope :: (XParTy a ~ NoExtField)+                         => HsForAllTelescope a -> HsForAllTelescope a+reparenHsForAllTelescope (HsForAllVis x bndrs) =+  HsForAllVis x (map (fmap reparenTyVar) bndrs)+reparenHsForAllTelescope (HsForAllInvis x bndrs) =+  HsForAllInvis x (map (fmap reparenTyVar) bndrs)+reparenHsForAllTelescope v@XHsForAllTelescope{} = v+ -- | Add parenthesis around the types in a 'HsTyVarBndr' (see 'reparenTypePrec')-reparenTyVar :: (XParTy a ~ NoExtField) => HsTyVarBndr a -> HsTyVarBndr a-reparenTyVar (UserTyVar x n) = UserTyVar x n-reparenTyVar (KindedTyVar x n kind) = KindedTyVar x n (reparenLType kind)+reparenTyVar :: (XParTy a ~ NoExtField) => HsTyVarBndr flag a -> HsTyVarBndr flag a+reparenTyVar (UserTyVar x flag n) = UserTyVar x flag n+reparenTyVar (KindedTyVar x flag n kind) = KindedTyVar x flag n (reparenLType kind) reparenTyVar v@XTyVarBndr{} = v  -- | Add parenthesis around the types in a 'ConDeclField' (see 'reparenTypePrec')@@ -469,6 +439,18 @@   -------------------------------------------------------------------------------+-- * Located+-------------------------------------------------------------------------------+++unL :: Located a -> a+unL (L _ x) = x+++reL :: a -> Located a+reL = L undefined++------------------------------------------------------------------------------- -- * NamedThing instances ------------------------------------------------------------------------------- @@ -542,19 +524,6 @@   return ()  --- | A variant of 'gbracket' where the return value from the first computation--- is not required.-gbracket_ :: ExceptionMonad m => m a -> m b -> m c -> m c-gbracket_ before_ after thing = gbracket before_ (const after) (const thing)---- Extract the minimal complete definition of a Name, if one exists-minimalDef :: GhcMonad m => Name -> m (Maybe ClassMinimalDef)-minimalDef n = do-  mty <- lookupGlobalName n-  case mty of-    Just (ATyCon (tyConClass_maybe -> Just c)) -> return . Just $ classMinimalDef c-    _ -> return Nothing- ------------------------------------------------------------------------------- -- * DynFlags -------------------------------------------------------------------------------@@ -706,10 +675,10 @@ -- For example, 'tyCoVarsOfTypeList' reports an incorrect order for the type -- of 'const :: a -> b -> a': ----- >>> import Name+-- >>> import GHC.Types.Name -- >>> import TyCoRep--- >>> import TysPrim--- >>> import Var+-- >>> import GHC.Builtin.Types.Prim+-- >>> import GHC.Types.Var -- >>> a = TyVarTy alphaTyVar -- >>> b = TyVarTy betaTyVar -- >>> constTy = mkFunTys [a, b] a@@ -728,7 +697,9 @@ tyCoFVsOfType' (TyConApp _ tys)   a b c = tyCoFVsOfTypes' tys a b c tyCoFVsOfType' (LitTy {})         a b c = emptyFV a b c tyCoFVsOfType' (AppTy fun arg)    a b c = (tyCoFVsOfType' arg `unionFV` tyCoFVsOfType' fun) a b c-tyCoFVsOfType' (FunTy _ arg res)  a b c = (tyCoFVsOfType' res `unionFV` tyCoFVsOfType' arg) a b c+tyCoFVsOfType' (FunTy _ w arg res)  a b c = (tyCoFVsOfType' w `unionFV`+                                           tyCoFVsOfType' res `unionFV`+                                           tyCoFVsOfType' arg) a b c tyCoFVsOfType' (ForAllTy bndr ty) a b c = tyCoFVsBndr' bndr (tyCoFVsOfType' ty)  a b c tyCoFVsOfType' (CastTy ty _)      a b c = (tyCoFVsOfType' ty) a b c tyCoFVsOfType' (CoercionTy _ )    a b c = emptyFV a b c@@ -750,7 +721,7 @@ -------------------------------------------------------------------------------  -- | Traverses the type, defaulting type variables of kind 'RuntimeRep' to--- 'LiftedType'. See 'defaultRuntimeRepVars' in IfaceType.hs the original such+-- 'LiftedType'. See 'defaultRuntimeRepVars' in GHC.Iface.Type the original such -- function working over `IfaceType`'s. defaultRuntimeRepVars :: Type -> Type defaultRuntimeRepVars = go emptyVarEnv@@ -774,8 +745,8 @@     go subs (TyConApp tc tc_args)       = TyConApp tc (map (go subs) tc_args) -    go subs (FunTy af arg res)-      = FunTy af (go subs arg) (go subs res)+    go subs (FunTy af w arg res)+      = FunTy af (go subs w) (go subs arg) (go subs res)      go subs (AppTy t u)       = AppTy (go subs t) (go subs u)
haddock-api/src/Haddock/Interface.hs view
@@ -1,4 +1,4 @@-{-# LANGUAGE CPP, OverloadedStrings, BangPatterns #-}+{-# LANGUAGE CPP, OverloadedStrings, BangPatterns, NamedFieldPuns #-} ----------------------------------------------------------------------------- -- | -- Module      :  Haddock.Interface@@ -29,44 +29,53 @@ -- using this environment. ----------------------------------------------------------------------------- module Haddock.Interface (-  processModules+    plugin+  , processModules ) where  -import Haddock.GhcUtils-import Haddock.InterfaceFile-import Haddock.Interface.Create-import Haddock.Interface.AttachInstances-import Haddock.Interface.Rename+import Haddock.GhcUtils (moduleString, pretty)+import Haddock.Interface.AttachInstances (attachInstances)+import Haddock.Interface.Create (createInterface1, runIfM)+import Haddock.Interface.Rename (renameInterface)+import Haddock.InterfaceFile (InterfaceFile, ifInstalledIfaces, ifLinkEnv) import Haddock.Options hiding (verbosity)-import Haddock.Types-import Haddock.Utils+import Haddock.Types (DocOption (..), Documentation (..), ExportItem (..), IfaceMap, InstIfaceMap, Interface, LinkEnv,+                      expItemDecl, expItemMbDoc, ifaceDoc, ifaceExportItems, ifaceExports, ifaceHaddockCoverage,+                      ifaceInstances, ifaceMod, ifaceOptions, ifaceVisibleExports, instMod, runWriter, throwE)+import Haddock.Utils (Verbosity, normal, out, verbose) -import Control.Monad-import Control.Monad.IO.Class ( liftIO )-import Control.Exception (evaluate)+import Control.Monad (unless, when)+import Control.Monad.IO.Class (MonadIO, liftIO)+import Data.IORef (atomicModifyIORef', newIORef, readIORef) import Data.List (foldl', isPrefixOf, nub) import qualified Data.Map as Map import qualified Data.Set as Set-import Text.Printf+import Text.Printf (printf) -import Module (mkModuleSet, emptyModuleSet, unionModuleSet, ModuleSet)-import Digraph-import DynFlags hiding (verbosity) import GHC hiding (verbosity)-import HscTypes-import FastString (unpackFS)-import TcRnTypes (tcg_rdr_env)-import Name (nameIsFromExternalPackage, nameOccName)-import OccName (isTcOcc)-import RdrName (unQualOK, gre_name, globalRdrEnvElts)-import ErrUtils (withTimingD)-import DynamicLoading (initializePlugins)+import GHC.Data.FastString (unpackFS)+import GHC.Data.Graph.Directed+import GHC.Driver.Monad (modifySession)+import GHC.Driver.Session hiding (verbosity)+import GHC.Driver.Types (isBootSummary)+import GHC.HsToCore.Docs (getMainDeclBinder)+import GHC.Plugins (HscEnv (..), Outputable, Plugin (..), PluginWithArgs (..), StaticPlugin (..), defaultPlugin,+                    keepRenamedSource)+import GHC.Tc.Types (TcGblEnv (..), TcM)+import GHC.Tc.Utils.Env (tcLookupGlobal)+import GHC.Tc.Utils.Monad (setGblEnv)+import GHC.Types.Name (nameIsFromExternalPackage, nameOccName)+import GHC.Types.Name.Occurrence (isTcOcc)+import GHC.Types.Name.Reader (globalRdrEnvElts, gre_name, unQualOK)+import GHC.Unit.Module.Env (ModuleSet, emptyModuleSet, mkModuleSet, unionModuleSet)+import GHC.Unit.Types (IsBootInterface (..))+import GHC.Utils.Error (withTimingD)  #if defined(mingw32_HOST_OS)-import System.IO import GHC.IO.Encoding.CodePage (mkLocaleEncoding)-import GHC.IO.Encoding.Failure (CodingFailureMode(TransliterateCodingFailure))+import GHC.IO.Encoding.Failure (CodingFailureMode (TransliterateCodingFailure))+import System.IO #endif  -- | Create 'Interface's and a link environment by typechecking the list of@@ -87,8 +96,14 @@ #endif    out verbosity verbose "Creating interfaces..."-  let instIfaceMap =  Map.fromList [ (instMod iface, iface) | ext <- extIfaces-                                   , iface <- ifInstalledIfaces ext ]+  let+    instIfaceMap :: InstIfaceMap+    instIfaceMap = Map.fromList+      [ (instMod iface, iface)+      | ext <- extIfaces+      , iface <- ifInstalledIfaces ext+      ]+   (interfaces, ms) <- createIfaces verbosity modules flags instIfaceMap    let exportedNames =@@ -124,99 +139,200 @@  createIfaces :: Verbosity -> [String] -> [Flag] -> InstIfaceMap -> Ghc ([Interface], ModuleSet) createIfaces verbosity modules flags instIfaceMap = do-  -- Ask GHC to tell us what the module graph is+  (haddockPlugin, getIfaces, getModules) <- liftIO $ plugin+    verbosity flags instIfaceMap++  let+    installHaddockPlugin :: HscEnv -> HscEnv+    installHaddockPlugin hsc_env = hsc_env+      {+        hsc_dflags = (gopt_set (hsc_dflags hsc_env) Opt_PluginTrustworthy)+          {+            staticPlugins = haddockPlugin : staticPlugins (hsc_dflags hsc_env)+          }+      }++  -- Note that we would rather use withTempSession but as long as we+  -- have the separate attachInstances step we need to keep the session+  -- alive to be able to find all the instances.+  modifySession installHaddockPlugin+   targets <- mapM (\filePath -> guessTarget filePath Nothing) modules   setTargets targets-  modGraph <- depanal [] False -  -- Visit modules in that order-  let sortedMods = flattenSCCs $ topSortModuleGraph False modGraph Nothing-  out verbosity normal "Haddock coverage:"-  (ifaces, _, !ms) <- foldM f ([], Map.empty, emptyModuleSet) sortedMods-  return (reverse ifaces, ms)-  where-    f (ifaces, ifaceMap, !ms) modSummary = do-      x <- {-# SCC processModule #-}-           withTimingD "processModule" (const ()) $ do-             processModule verbosity modSummary flags ifaceMap instIfaceMap-      return $ case x of-        Just (iface, ms') -> ( iface:ifaces-                             , Map.insert (ifaceMod iface) iface ifaceMap-                             , unionModuleSet ms ms' )-        Nothing           -> ( ifaces-                             , ifaceMap-                             , ms ) -- Boot modules don't generate ifaces.+  loadOk <- withTimingD "load" (const ()) $+    {-# SCC load #-} GHC.load LoadAllTargets +  case loadOk of+    Failed ->+      throwE "Cannot typecheck modules"+    Succeeded -> do+      modGraph <- GHC.getModuleGraph+      ifaceMap  <- liftIO getIfaces+      moduleSet <- liftIO getModules -processModule :: Verbosity -> ModSummary -> [Flag] -> IfaceMap -> InstIfaceMap -> Ghc (Maybe (Interface, ModuleSet))-processModule verbosity modsum flags modMap instIfaceMap = do-  out verbosity verbose $ "Checking module " ++ moduleString (ms_mod modsum) ++ "..."+      let+        ifaces :: [Interface]+        ifaces =+          [ Map.findWithDefault+              (error "haddock:iface")+              (ms_mod ms)+              ifaceMap+          | ms <- flattenSCCs $ topSortModuleGraph True modGraph Nothing+          ] -  -- Since GHC 8.6, plugins are initialized on a per module basis-  hsc_env' <- getSession-  dynflags' <- liftIO (initializePlugins hsc_env' (GHC.ms_hspp_opts modsum))-  let modsum' = modsum { ms_hspp_opts = dynflags' }+      return (ifaces, moduleSet) -  tm <- {-# SCC "parse/typecheck/load" #-} loadModule =<< typecheckModule =<< parseModule modsum' -  if not $ isBootSummary modsum then do-    out verbosity verbose "Creating interface..."-    (interface, msgs) <- {-# SCC createIterface #-}-                        withTimingD "createInterface" (const ()) $ do-                          runWriterGhc $ createInterface tm flags modMap instIfaceMap+-- | A `Plugin` that hooks into GHC's compilation pipeline to generate Haddock+-- interfaces. Due to the plugin nature we benefit from GHC's capabilities to+-- parallelize the compilation process.+plugin+  :: MonadIO m+  => Verbosity+  -> [Flag]+  -> InstIfaceMap+  -> m+     (+       StaticPlugin -- the plugin to install with GHC+     , m IfaceMap  -- get the processed interfaces+     , m ModuleSet -- get the loaded modules+     )+plugin verbosity flags instIfaceMap = liftIO $ do+  ifaceMapRef  <- newIORef Map.empty+  moduleSetRef <- newIORef emptyModuleSet -    -- We need to keep track of which modules were somehow in scope so that when-    -- Haddock later looks for instances, it also looks in these modules too.-    ---    -- See https://github.com/haskell/haddock/issues/469.-    hsc_env <- getSession-    let new_rdr_env = tcg_rdr_env . fst . GHC.tm_internals_ $ tm-        this_pkg = thisPackage (hsc_dflags hsc_env)-        !mods = mkModuleSet [ nameModule name-                            | gre <- globalRdrEnvElts new_rdr_env-                            , let name = gre_name gre-                            , nameIsFromExternalPackage this_pkg name-                            , isTcOcc (nameOccName name)   -- Types and classes only-                            , unQualOK gre ]               -- In scope unqualified+  let+    processTypeCheckedResult :: ModSummary -> TcGblEnv -> TcM ()+    processTypeCheckedResult mod_summary tc_gbl_env+      -- Don't do anything for hs-boot modules+      | IsBoot <- isBootSummary mod_summary =+          pure ()+      | otherwise = do+          ifaces <- liftIO $ readIORef ifaceMapRef+          (iface, modules) <- withTimingD "processModule" (const ()) $+            processModule1 verbosity flags ifaces instIfaceMap mod_summary tc_gbl_env -    liftIO $ mapM_ putStrLn (nub msgs)-    dflags <- getDynFlags-    let (haddockable, haddocked) = ifaceHaddockCoverage interface-        percentage = div (haddocked * 100) haddockable-        modString = moduleString (ifaceMod interface)-        coverageMsg = printf " %3d%% (%3d /%3d) in '%s'" percentage haddocked haddockable modString-        header = case ifaceDoc interface of-          Documentation Nothing _ -> False-          _ -> True-        undocumentedExports = [ formatName s n | ExportDecl { expItemDecl = L s n-                                                            , expItemMbDoc = (Documentation Nothing _, _)-                                                            } <- ifaceExportItems interface ]-          where-            formatName :: SrcSpan -> HsDecl GhcRn -> String-            formatName loc n = p (getMainDeclBinder n) ++ case loc of-              RealSrcSpan rss -> " (" ++ unpackFS (srcSpanFile rss) ++ ":" ++ show (srcSpanStartLine rss) ++ ")"-              _ -> ""+          liftIO $ do+            atomicModifyIORef' ifaceMapRef $ \xs ->+              (Map.insert (ms_mod mod_summary) iface xs, ()) -            p [] = ""-            p (x:_) = let n = pretty dflags x-                          ms = modString ++ "."-                      in if ms `isPrefixOf` n-                         then drop (length ms) n-                         else n+            atomicModifyIORef' moduleSetRef $ \xs ->+              (modules `unionModuleSet` xs, ()) -    when (OptHide `notElem` ifaceOptions interface) $ do-      out verbosity normal coverageMsg-      when (Flag_NoPrintMissingDocs `notElem` flags-            && not (null undocumentedExports && header)) $ do-        out verbosity normal "  Missing documentation for:"-        unless header $ out verbosity normal "    Module header"-        mapM_ (out verbosity normal . ("    " ++)) undocumentedExports-    interface' <- liftIO $ evaluate interface-    return (Just (interface', mods))-  else-    return Nothing+    staticPlugin :: StaticPlugin+    staticPlugin = StaticPlugin+      {+        spPlugin = PluginWithArgs+        {+          paPlugin = defaultPlugin+          {+            renamedResultAction = keepRenamedSource+          , typeCheckResultAction = \_ mod_summary tc_gbl_env -> setGblEnv tc_gbl_env $ do+              processTypeCheckedResult mod_summary tc_gbl_env+              pure tc_gbl_env +          }+        , paArguments = []+        }+      } +  pure+    ( staticPlugin+    , liftIO (readIORef ifaceMapRef)+    , liftIO (readIORef moduleSetRef)+    )+++processModule1+  :: Verbosity+  -> [Flag]+  -> IfaceMap+  -> InstIfaceMap+  -> ModSummary+  -> TcGblEnv+  -> TcM (Interface, ModuleSet)+processModule1 verbosity flags ifaces inst_ifaces mod_summary tc_gbl_env = do+  out verbosity verbose "Creating interface..."++  let+    TcGblEnv { tcg_rdr_env } = tc_gbl_env++  (!interface, messages) <- {-# SCC createInterface #-}+    withTimingD "createInterface" (const ()) $ runIfM (fmap Just . tcLookupGlobal) $+      createInterface1 flags mod_summary tc_gbl_env ifaces inst_ifaces++  -- We need to keep track of which modules were somehow in scope so that when+  -- Haddock later looks for instances, it also looks in these modules too.+  --+  -- See https://github.com/haskell/haddock/issues/469.+  dflags <- getDynFlags+  let+    mods :: ModuleSet+    !mods = mkModuleSet+      [ nameModule name+      | gre <- globalRdrEnvElts tcg_rdr_env+      , let name = gre_name gre+      , nameIsFromExternalPackage (homeUnit dflags) name+      , isTcOcc (nameOccName name)   -- Types and classes only+      , unQualOK gre -- In scope unqualified+      ]++  liftIO $ mapM_ putStrLn (nub messages)++  let+    (haddockable, haddocked) =+      ifaceHaddockCoverage interface++    percentage :: Int+    percentage =+      round (fromIntegral haddocked * 100 / fromIntegral haddockable :: Double)++    modString :: String+    modString = moduleString (ifaceMod interface)++    coverageMsg :: String+    coverageMsg =+      printf " %3d%% (%3d /%3d) in '%s'" percentage haddocked haddockable modString++    header :: Bool+    header = case ifaceDoc interface of+      Documentation Nothing _ -> False+      _ -> True++    undocumentedExports :: [String]+    undocumentedExports =+      [ formatName s n+      | ExportDecl { expItemDecl = L s n+                   , expItemMbDoc = (Documentation Nothing _, _)+                   } <- ifaceExportItems interface+      ]+        where+          formatName :: SrcSpan -> HsDecl GhcRn -> String+          formatName loc n = p (getMainDeclBinder n) ++ case loc of+            RealSrcSpan rss _ -> " (" ++ unpackFS (srcSpanFile rss) ++ ":" +++              show (srcSpanStartLine rss) ++ ")"+            _ -> ""++          p :: Outputable a => [a] -> String+          p [] = ""+          p (x:_) = let n = pretty dflags x+                        ms = modString ++ "."+                    in if ms `isPrefixOf` n+                       then drop (length ms) n+                       else n++  when (OptHide `notElem` ifaceOptions interface) $ do+    out verbosity normal coverageMsg+    when (Flag_NoPrintMissingDocs `notElem` flags+          && not (null undocumentedExports && header)) $ do+      out verbosity normal "  Missing documentation for:"+      unless header $ out verbosity normal "    Module header"+      mapM_ (out verbosity normal . ("    " ++)) undocumentedExports++  pure (interface, mods)++ -------------------------------------------------------------------------------- -- * Building of cross-linking environment --------------------------------------------------------------------------------@@ -243,4 +359,3 @@         mdl            = ifaceMod iface         keep_old env n = Map.insertWith (\_ old -> old) n mdl env         keep_new env n = Map.insert n mdl env-
haddock-api/src/Haddock/Interface/AttachInstances.hs view
@@ -19,7 +19,6 @@  import Haddock.Types import Haddock.Convert-import Haddock.GhcUtils  import Control.Applicative ((<|>)) import Control.Arrow hiding ((<+>))@@ -29,23 +28,25 @@ import qualified Data.Map as Map import qualified Data.Set as Set -import Class-import DynFlags-import CoreSyn (isOrphan)-import ErrUtils-import FamInstEnv+import GHC.Data.FastString (unpackFS)+import GHC.Core.Class+import GHC.Driver.Session+import GHC.Core (isOrphan)+import GHC.Utils.Error+import GHC.Core.FamInstEnv import GHC-import InstEnv-import Module ( ModuleSet, moduleSetElts )-import MonadUtils (liftIO)-import Name-import NameEnv-import Outputable (text, sep, (<+>))-import SrcLoc-import TyCon-import TyCoRep-import TysPrim( funTyConName )-import Var hiding (varName)+import GHC.Core.InstEnv+import GHC.Unit.Module.Env ( ModuleSet, moduleSetElts )+import GHC.Utils.Monad (liftIO)+import GHC.Types.Name+import GHC.Types.Name.Env+import GHC.Utils.Outputable (text, sep, (<+>))+import GHC.Types.SrcLoc+import GHC.Core.TyCon+import GHC.Core.TyCo.Rep+import GHC.Builtin.Types.Prim( funTyConName )+import GHC.Types.Var hiding (varName)+import GHC.HsToCore.Docs  type ExportedNames = Set.Set Name type Modules = Set.Set Module@@ -179,37 +180,48 @@ -- Collecting and sorting instances -------------------------------------------------------------------------------- +-- | Stable name for stable comparisons. GHC's `Name` uses unstable+-- ordering based on their `Unique`'s.+newtype SName = SName Name +instance Eq SName where+  SName n1 == SName n2 = n1 `stableNameCmp` n2 == EQ++instance Ord SName where+  SName n1 `compare` SName n2 = n1 `stableNameCmp` n2+ -- | Simplified type for sorting types, ignoring qualification (not visible -- in Haddock output) and unifying special tycons with normal ones. -- For the benefit of the user (looks nice and predictable) and the -- tests (which prefer output to be deterministic).-data SimpleType = SimpleType Name [SimpleType]-                | SimpleTyLit TyLit+data SimpleType = SimpleType SName [SimpleType]+                | SimpleIntTyLit Integer+                | SimpleStringTyLit String                   deriving (Eq,Ord)  -instHead :: ([TyVar], [PredType], Class, [Type]) -> ([Int], Name, [SimpleType])+instHead :: ([TyVar], [PredType], Class, [Type]) -> ([Int], SName, [SimpleType]) instHead (_, _, cls, args)-  = (map argCount args, className cls, map simplify args)+  = (map argCount args, SName (className cls), map simplify args)  argCount :: Type -> Int argCount (AppTy t _)     = argCount t + 1 argCount (TyConApp _ ts) = length ts-argCount (FunTy _ _ _)   = 2+argCount (FunTy _ _ _ _) = 2 argCount (ForAllTy _ t)  = argCount t argCount (CastTy t _)    = argCount t argCount _ = 0  simplify :: Type -> SimpleType-simplify (FunTy _ t1 t2) = SimpleType funTyConName [simplify t1, simplify t2]+simplify (FunTy _ _ t1 t2)  = SimpleType (SName funTyConName) [simplify t1, simplify t2] simplify (ForAllTy _ t) = simplify t simplify (AppTy t1 t2) = SimpleType s (ts ++ maybeToList (simplify_maybe t2))   where (SimpleType s ts) = simplify t1-simplify (TyVarTy v) = SimpleType (tyVarName v) []-simplify (TyConApp tc ts) = SimpleType (tyConName tc)+simplify (TyVarTy v) = SimpleType (SName (tyVarName v)) []+simplify (TyConApp tc ts) = SimpleType (SName (tyConName tc))                                        (mapMaybe simplify_maybe ts)-simplify (LitTy l) = SimpleTyLit l+simplify (LitTy (NumTyLit n)) = SimpleIntTyLit n+simplify (LitTy (StrTyLit s)) = SimpleStringTyLit (unpackFS s) simplify (CastTy ty _) = simplify ty simplify (CoercionTy _) = error "simplify:Coercion" @@ -218,9 +230,9 @@ simplify_maybe ty              = Just (simplify ty)  -- Used for sorting-instFam :: FamInst -> ([Int], Name, [SimpleType], Int, SimpleType)+instFam :: FamInst -> ([Int], SName, [SimpleType], Int, SimpleType) instFam FamInst { fi_fam = n, fi_tys = ts, fi_rhs = t }-  = (map argCount ts, n, map simplify ts, argCount t, simplify t)+  = (map argCount ts, SName n, map simplify ts, argCount t, simplify t)   --------------------------------------------------------------------------------@@ -257,7 +269,7 @@       case t of         TyVarTy {} -> False         AppTy t1 t2 -> typeHidden t1 || typeHidden t2-        FunTy _ t1 t2 -> typeHidden t1 || typeHidden t2+        FunTy _ _ t1 t2 -> typeHidden t1 || typeHidden t2         TyConApp tcon args -> nameHidden (getName tcon) || any typeHidden args         ForAllTy bndr ty -> typeHidden (tyVarKind (binderVar bndr)) || typeHidden ty         LitTy _ -> False
haddock-api/src/Haddock/Interface/Create.hs view
@@ -1,9 +1,17 @@-{-# LANGUAGE CPP, TupleSections, BangPatterns, LambdaCase #-}+{-# LANGUAGE BangPatterns #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE MultiParamTypeClasses #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE ScopedTypeVariables #-}+{-# LANGUAGE StandaloneDeriving #-}+{-# LANGUAGE TupleSections #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE ViewPatterns #-}--- Note the -Wno-incomplete-record-updates. When converting Type to HsSyn we--- are using incomplete record constructions infortunately.-{-# OPTIONS_GHC -Wwarn -Wno-incomplete-record-updates #-}+{-# OPTIONS_GHC -Wwarn #-} ----------------------------------------------------------------------------- -- | -- Module      :  Haddock.Interface.Create@@ -20,234 +28,332 @@ -- which creates a Haddock 'Interface' from the typechecking -- results 'TypecheckedModule' from GHC. ------------------------------------------------------------------------------module Haddock.Interface.Create (createInterface) where+module Haddock.Interface.Create (IfM, runIfM, createInterface1) where  import Documentation.Haddock.Doc (metaDocAppend)-import Haddock.Types-import Haddock.Options-import Haddock.GhcUtils-import Haddock.Utils-import Haddock.Convert+import Haddock.Convert (PrintRuntimeReps (..), tyThingToLHsDecl)+import Haddock.GhcUtils (addClassContext, filterSigNames, lHsQTyVarsToTypes, mkEmptySigWcType, moduleString, parents,+                         pretty, restrictTo, sigName) import Haddock.Interface.LexParseRn+import Haddock.Options (Flag (..), modulePackageInfo)+import Haddock.Types hiding (liftErrMsg)+import Haddock.Utils (replace) -import Data.Bifunctor-import Data.Bitraversable-import qualified Data.Map as M-import qualified Data.Set as S+import Control.Monad.Catch (MonadCatch, MonadThrow)+import Control.Monad.Reader (MonadReader (..), ReaderT (..), asks)+import Control.Monad.Writer.Strict hiding (tell)+import Data.Bitraversable (bitraverse)+import Data.List (find, foldl') import Data.Map (Map)-import Data.List (find, foldl', sortBy)-import Data.Maybe-import Data.Ord-import Control.Applicative-import Control.Monad-import Data.Traversable+import qualified Data.Map as M+import Data.Maybe (catMaybes, fromJust, isJust, mapMaybe, maybeToList)+import Data.Traversable (for) import GHC.Stack (HasCallStack) -import Avail hiding (avail)-import qualified Avail-import qualified Module-import qualified SrcLoc-import ConLike (ConLike(..))-import GHC-import HscTypes-import Name-import NameSet-import NameEnv-import Packages   ( lookupModuleInAllPackages, PackageName(..) )-import Bag-import RdrName-import TcRnTypes-import FastString ( unpackFS, bytesFS )-import BasicTypes ( StringLiteral(..), SourceText(..), PromotionFlag(..) )-import qualified Outputable as O+import GHC hiding (lookupName)+import GHC.Core.Class (ClassMinimalDef, classMinimalDef)+import GHC.Core.ConLike (ConLike (..))+import GHC.Data.FastString (bytesFS, unpackFS)+import GHC.Driver.Types (HscSource (..), WarningTxt (..), Warnings (..), msHsFilePath)+import GHC.HsToCore.Docs hiding (mkMaps)+import GHC.Parser.Annotation (IsUnicodeSyntax (..))+import GHC.Tc.Types hiding (IfM)+import GHC.Tc.Utils.Monad (finalSafeMode)+import GHC.Types.Avail hiding (avail)+import qualified GHC.Types.Avail as Avail+import GHC.Types.Basic (PromotionFlag (..), SourceText (..), StringLiteral (..))+import GHC.Types.Name (getOccString, getSrcSpan, isDataConName, isValName, nameIsLocalOrFrom, nameOccName)+import GHC.Types.Name.Env (lookupNameEnv)+import GHC.Types.Name.Reader (GlobalRdrEnv, globalRdrEnvElts, gre_name, gresToAvailInfo, isLocalGRE, lookupGlobalRdrEnv)+import GHC.Types.Name.Set (elemNameSet, mkNameSet)+import qualified GHC.Types.SrcLoc as SrcLoc+import qualified GHC.Unit.Module as Module+import GHC.Unit.State+import qualified GHC.Utils.Outputable as O -mkExceptionContext :: TypecheckedModule -> String++mkExceptionContext :: ModSummary -> String mkExceptionContext =-  ("creating Haddock interface for " ++) . moduleNameString . ms_mod_name . pm_mod_summary . tm_parsed_module+  ("creating Haddock interface for " ++) . moduleNameString . ms_mod_name --- | Use a 'TypecheckedModule' to produce an 'Interface'.--- To do this, we need access to already processed modules in the topological--- sort. That's what's in the 'IfaceMap'.-createInterface :: HasCallStack-                => TypecheckedModule-                -> [Flag]       -- Boolean flags-                -> IfaceMap     -- Locally processed modules-                -> InstIfaceMap -- External, already installed interfaces-                -> ErrMsgGhc Interface-createInterface tm flags modMap instIfaceMap =- withExceptionContext (mkExceptionContext tm) $ do -  let ms             = pm_mod_summary . tm_parsed_module $ tm-      mi             = moduleInfo tm-      L _ hsm        = parsedSource tm-      !safety        = modInfoSafe mi-      mdl            = ms_mod ms-      sem_mdl        = tcg_semantic_mod (fst (tm_internals_ tm))-      is_sig         = ms_hsc_src ms == HsigFile-      dflags         = ms_hspp_opts ms-      !instances     = modInfoInstances mi-      !fam_instances = md_fam_insts md-      !exportedNames = modInfoExportsWithSelectors mi-      (pkgNameFS, _) = modulePackageInfo dflags flags (Just mdl)-      pkgName        = fmap (unpackFS . (\(PackageName n) -> n)) pkgNameFS+newtype IfEnv m = IfEnv+  {+    -- | Lookup names in the enviroment.+    ife_lookup_name :: Name -> m (Maybe TyThing)+  } -      (TcGblEnv { tcg_rdr_env = gre-                , tcg_warns   = warnings-                , tcg_exports = all_exports0-                }, md) = tm_internals_ tm-      all_local_avails = gresToAvailInfo . filter isLocalGRE . globalRdrEnvElts $ gre -  -- The 'pkgName' is necessary to decide what package to mention in "@since"-  -- annotations. Not having it is not fatal though.-  ---  -- Cabal can be trusted to pass the right flags, so this warning should be-  -- mostly encountered when running Haddock outside of Cabal.-  when (isNothing pkgName) $-    liftErrMsg $ tell [ "Warning: Package name is not available." ]+-- | A monad in which we create Haddock interfaces. Not to be confused with+-- `GHC.Tc.Types.IfM` which is used to write GHC interfaces.+--+-- In the past `createInterface` was running in the `Ghc` monad but proved hard+-- to sustain as soon as we moved over for Haddock to be a plugin. Also abstracting+-- over the Ghc specific clarifies where side effects happen.+newtype IfM m a = IfM { unIfM :: ReaderT (IfEnv m) (WriterT [ErrMsg] m) a } -  -- The renamed source should always be available to us, but it's best-  -- to be on the safe side.-  (group_, imports, mayExports, mayDocHeader) <--    case renamedSource tm of-      Nothing -> do-        liftErrMsg $ tell [ "Warning: Renamed source is not available." ]-        return (emptyRnGroup, [], Nothing, Nothing)-      Just x -> return x+deriving newtype instance Functor m => Functor (IfM m)+deriving newtype instance Applicative m => Applicative (IfM m)+deriving newtype instance Monad m => Monad (IfM m)+deriving newtype instance MonadIO m => MonadIO (IfM m)+deriving newtype instance Monad m => MonadReader (IfEnv m) (IfM m)+deriving newtype instance Monad m => MonadWriter [ErrMsg] (IfM m)+deriving newtype instance (MonadThrow m) => MonadThrow (IfM m)+deriving newtype instance (MonadCatch m) => MonadCatch (IfM m) -  opts <- liftErrMsg $ mkDocOpts (haddockOptions dflags) flags mdl -  -- Process the top-level module header documentation.-  (!info, mbDoc) <- liftErrMsg $ processModuleHeader dflags pkgName gre safety mayDocHeader+-- | Run an `IfM` action.+runIfM+  -- | Lookup a global name in the current session. Used in cases+  -- where declarations don't+  :: (Name -> m (Maybe TyThing))+  -- | The action to run.+  -> IfM m a+  -- | Result and accumulated error/warning messages.+  -> m (a, [ErrMsg])+runIfM lookup_name action = do+  let+    if_env = IfEnv+      {+        ife_lookup_name = lookup_name+      }+  runWriterT (runReaderT (unIfM action) if_env) -  let declsWithDocs = topDecls group_ -      exports0 = fmap (map (first unLoc)) mayExports-      (all_exports, exports)-        | OptIgnoreExports `elem` opts = (all_local_avails, Nothing)-        | otherwise = (all_exports0, exports0)+liftErrMsg :: Monad m => ErrMsgM a -> IfM m a+liftErrMsg action = do+  writer (runWriter action) -      unrestrictedImportedMods-        -- module re-exports are only possible with-        -- explicit export list-        | Just{} <- exports-        = unrestrictedModuleImports (map unLoc imports)-        | otherwise = M.empty -      fixMap = mkFixMap group_-      (decls, _) = unzip declsWithDocs-      localInsts = filter (nameIsLocalOrFrom sem_mdl)-                        $  map getName fam_instances-                        ++ map getName instances-      -- Locations of all TH splices-      splices = [ l | L l (SpliceD _ _) <- hsmodDecls hsm ]+lookupName :: Monad m => Name -> IfM m (Maybe TyThing)+lookupName name = IfM $ do+  lookup_name <- asks ife_lookup_name+  lift $ lift (lookup_name name) -  warningMap <- liftErrMsg (mkWarningMap dflags warnings gre exportedNames) -  maps@(!docMap, !argMap, !declMap, _) <--    liftErrMsg (mkMaps dflags pkgName gre localInsts declsWithDocs)+createInterface1+  :: (MonadIO m, MonadCatch m)+  => [Flag]+  -> ModSummary+  -> TcGblEnv+  -> IfaceMap+  -> InstIfaceMap+  -> IfM m Interface+createInterface1 flags mod_sum tc_gbl_env ifaces inst_ifaces =+  withExceptionContext (mkExceptionContext mod_sum) $ do -  let allWarnings = M.unions (warningMap : map ifaceWarningMap (M.elems modMap))+  let+    ModSummary+      {+        -- Cached flags from OPTIONS, INCLUDE and LANGUAGE+        -- pragmas in the modules source code. Used to infer+        -- safety of module.+        ms_hspp_opts+      , ms_location = ModLocation+        {+          ml_hie_file+        }+      } = mod_sum -  -- The MAIN functionality: compute the export items which will-  -- each be the actual documentation of this module.-  exportItems <- mkExportItems is_sig modMap pkgName mdl sem_mdl allWarnings gre-                   exportedNames decls maps fixMap unrestrictedImportedMods-                   splices exports all_exports instIfaceMap dflags+    TcGblEnv+      {+        tcg_mod+      , tcg_src+      , tcg_semantic_mod+      , tcg_rdr_env+      , tcg_exports+      , tcg_insts+      , tcg_fam_insts+      , tcg_warns -  let !visibleNames = mkVisibleNames maps exportItems opts+      -- Renamed source+      , tcg_rn_imports+      , tcg_rn_exports+      , tcg_rn_decls -  -- Measure haddock documentation coverage.-  let prunedExportItems0 = pruneExportItems exportItems-      !haddockable = 1 + length exportItems -- module + exports-      !haddocked = (if isJust mbDoc then 1 else 0) + length prunedExportItems0-      !coverage = (haddockable, haddocked)+      , tcg_doc_hdr+      } = tc_gbl_env -  -- Prune the export list to just those declarations that have-  -- documentation, if the 'prune' option is on.-  let prunedExportItems'-        | OptPrune `elem` opts = prunedExportItems0-        | otherwise = exportItems-      !prunedExportItems = seqList prunedExportItems' `seq` prunedExportItems'+    dflags = ms_hspp_opts -  let !aliases =-        mkAliasMap dflags $ tm_renamed_source tm+    is_sig = tcg_src == HsigFile -  modWarn <- liftErrMsg (moduleWarning dflags gre warnings)+    (pkg_name_fs, _) =+      modulePackageInfo dflags flags (Just tcg_mod) -  -- Prune the docstring 'Map's to keep only docstrings that are not private.-  ---  -- Besides all the names that GHC has told us this module exports, we also-  -- keep the docs for locally defined class instances. This is more names than-  -- we need, but figuring out which instances are fully private is tricky.-  ---  -- We do this pruning to avoid having to rename, emit warnings, and save-  -- docstrings which will anyways never be rendered.-  let !localVisibleNames = S.fromList (localInsts ++ exportedNames)-      !prunedDocMap = M.restrictKeys docMap localVisibleNames-      !prunedArgMap = M.restrictKeys argMap localVisibleNames+    pkg_name :: Maybe Package+    pkg_name =+      let+        unpack (PackageName name) = unpackFS name+      in+        fmap unpack pkg_name_fs -  return $! Interface {-    ifaceMod               = mdl-  , ifaceIsSig             = is_sig-  , ifaceOrigFilename      = msHsFilePath ms-  , ifaceInfo              = info-  , ifaceDoc               = Documentation mbDoc modWarn-  , ifaceRnDoc             = Documentation Nothing Nothing-  , ifaceOptions           = opts-  , ifaceDocMap            = prunedDocMap-  , ifaceArgMap            = prunedArgMap-  , ifaceRnDocMap          = M.empty -- Filled in `renameInterface`-  , ifaceRnArgMap          = M.empty -- Filled in `renameInterface`-  , ifaceExportItems       = prunedExportItems-  , ifaceRnExportItems     = [] -- Filled in `renameInterface`-  , ifaceExports           = exportedNames-  , ifaceVisibleExports    = visibleNames-  , ifaceDeclMap           = declMap-  , ifaceFixMap            = fixMap-  , ifaceModuleAliases     = aliases-  , ifaceInstances         = instances-  , ifaceFamInstances      = fam_instances-  , ifaceOrphanInstances   = [] -- Filled in `attachInstances`-  , ifaceRnOrphanInstances = [] -- Filled in `renameInterface`-  , ifaceHaddockCoverage   = coverage-  , ifaceWarningMap        = warningMap-  , ifaceHieFile           = Just $ ml_hie_file $ ms_location ms-  , ifaceDynFlags          = dflags-  }+    fixities :: FixMap+    fixities = case tcg_rn_decls of+      Nothing -> mempty+      Just dx -> mkFixMap dx +    -- Locations of all the TH splices+    loc_splices :: [SrcSpan]+    loc_splices = case tcg_rn_decls of+      Nothing -> []+      Just HsGroup { hs_splcds } -> [ loc | L loc _ <- hs_splcds ]++  decls <- case tcg_rn_decls of+    Nothing -> do+      tell [ "Warning: Renamed source is not available" ]+      pure []+    Just dx ->+      pure (topDecls dx)++  -- Derive final options to use for haddocking this module+  doc_opts <- liftErrMsg $ mkDocOpts (haddockOptions ms_hspp_opts) flags tcg_mod++  let+    -- All elements of an explicit export list, if present+    export_list :: Maybe [(IE GhcRn, Avails)]+    export_list+      | OptIgnoreExports `elem` doc_opts  =+          Nothing+      | Just rn_exports <- tcg_rn_exports =+          Just [ (ie, avail) | (L _ ie, avail) <- rn_exports ]+      | otherwise =+          Nothing++    -- All the exported Names of this module.+    actual_exports :: [AvailInfo]+    actual_exports+      | OptIgnoreExports `elem` doc_opts  =+          gresToAvailInfo $ filter isLocalGRE $ globalRdrEnvElts tcg_rdr_env+      | otherwise =+          tcg_exports++    exported_names :: [Name]+    exported_names =+      concatMap availNamesWithSelectors actual_exports++    -- Module imports of the form `import X`. Note that there is+    -- a) no qualification and+    -- b) no import list+    imported_modules :: Map ModuleName [ModuleName]+    imported_modules+      | Just{} <- export_list =+          unrestrictedModuleImports (map unLoc tcg_rn_imports)+      | otherwise =+          M.empty++    -- TyThings that have instances defined in this module+    local_instances :: [Name]+    local_instances =+      [ name+      | name <- map getName tcg_insts ++ map getName tcg_fam_insts+      , nameIsLocalOrFrom tcg_semantic_mod name+      ]++  -- Infer module safety+  safety   <- liftIO (finalSafeMode ms_hspp_opts tc_gbl_env)++  -- Process the top-level module header documentation.+  (!info, header_doc) <- liftErrMsg $ processModuleHeader dflags pkg_name+    tcg_rdr_env safety tcg_doc_hdr++  -- Warnings on declarations in this module+  decl_warnings <- liftErrMsg (mkWarningMap dflags tcg_warns tcg_rdr_env exported_names)++  -- Warning on the module header+  mod_warning <- liftErrMsg (moduleWarning dflags tcg_rdr_env tcg_warns)++  let+    -- Warnings in this module and transitive warnings from dependend modules+    warnings :: Map Name (Doc Name)+    warnings = M.unions (decl_warnings : map ifaceWarningMap (M.elems ifaces))++  maps@(!docs, !arg_docs, !decl_map, _) <-+    liftErrMsg (mkMaps dflags pkg_name tcg_rdr_env local_instances decls)++  export_items <- mkExportItems is_sig ifaces pkg_name tcg_mod tcg_semantic_mod+    warnings tcg_rdr_env exported_names (map fst decls) maps fixities+    imported_modules loc_splices export_list actual_exports inst_ifaces dflags++  let+    visible_names :: [Name]+    visible_names = mkVisibleNames maps export_items doc_opts++    -- Measure haddock documentation coverage.+    pruned_export_items :: [ExportItem GhcRn]+    pruned_export_items = pruneExportItems export_items++    !haddockable = 1 + length export_items -- module + exports+    !haddocked = (if isJust tcg_doc_hdr then 1 else 0) + length pruned_export_items++    coverage :: (Int, Int)+    !coverage = (haddockable, haddocked)++    aliases :: Map Module ModuleName+    aliases = mkAliasMap (unitState dflags) tcg_rn_imports++  return $! Interface+    {+      ifaceMod               = tcg_mod+    , ifaceIsSig             = is_sig+    , ifaceOrigFilename      = msHsFilePath mod_sum+    , ifaceHieFile           = Just ml_hie_file+    , ifaceInfo              = info+    , ifaceDoc               = Documentation header_doc mod_warning+    , ifaceRnDoc             = Documentation Nothing Nothing+    , ifaceOptions           = doc_opts+    , ifaceDocMap            = docs+    , ifaceArgMap            = arg_docs+    , ifaceRnDocMap          = M.empty+    , ifaceRnArgMap          = M.empty+    , ifaceExportItems       = if OptPrune `elem` doc_opts then+                                 pruned_export_items else export_items+    , ifaceRnExportItems     = []+    , ifaceExports           = exported_names+    , ifaceVisibleExports    = visible_names+    , ifaceDeclMap           = decl_map+    , ifaceFixMap            = fixities+    , ifaceModuleAliases     = aliases+    , ifaceInstances         = tcg_insts+    , ifaceFamInstances      = tcg_fam_insts+    , ifaceOrphanInstances   = [] -- Filled in attachInstances+    , ifaceRnOrphanInstances = [] -- Filled in attachInstances+    , ifaceHaddockCoverage   = coverage+    , ifaceWarningMap        = warnings+    , ifaceDynFlags          = dflags+    }++ -- | Given all of the @import M as N@ declarations in a package, -- create a mapping from the module identity of M, to an alias N -- (if there are multiple aliases, we pick the last one.)  This -- will go in 'ifaceModuleAliases'.-mkAliasMap :: DynFlags -> Maybe RenamedSource -> M.Map Module ModuleName-mkAliasMap dflags mRenamedSource =-  case mRenamedSource of-    Nothing -> M.empty-    Just (_,impDecls,_,_) ->-      M.fromList $-      mapMaybe (\(SrcLoc.L _ impDecl) -> do-        SrcLoc.L _ alias <- ideclAs impDecl-        return $-          (lookupModuleDyn dflags-             -- TODO: This is supremely dodgy, because in general the-             -- UnitId isn't going to look anything like the package-             -- qualifier (even with old versions of GHC, the-             -- IPID would be p-0.1, but a package qualifier never-             -- has a version number it.  (Is it possible that in-             -- Haddock-land, the UnitIds never have version numbers?-             -- I, ezyang, have not quite understand Haddock's package-             -- identifier model.)-             ---             -- Additionally, this is simulating some logic GHC already-             -- has for deciding how to qualify names when it outputs-             -- them to the user.  We should reuse that information;-             -- or at least reuse the renamed imports, which know what-             -- they import!-             (fmap Module.fsToUnitId $-              fmap sl_fs $ ideclPkgQual impDecl)-             (case ideclName impDecl of SrcLoc.L _ name -> name),-           alias))-        impDecls+mkAliasMap :: UnitState -> [LImportDecl GhcRn] -> M.Map Module ModuleName+mkAliasMap state impDecls =+  M.fromList $+  mapMaybe (\(SrcLoc.L _ impDecl) -> do+    SrcLoc.L _ alias <- ideclAs impDecl+    return $+      (lookupModuleDyn state+         -- TODO: This is supremely dodgy, because in general the+         -- UnitId isn't going to look anything like the package+         -- qualifier (even with old versions of GHC, the+         -- IPID would be p-0.1, but a package qualifier never+         -- has a version number it.  (Is it possible that in+         -- Haddock-land, the UnitIds never have version numbers?+         -- I, ezyang, have not quite understand Haddock's package+         -- identifier model.)+         --+         -- Additionally, this is simulating some logic GHC already+         -- has for deciding how to qualify names when it outputs+         -- them to the user.  We should reuse that information;+         -- or at least reuse the renamed imports, which know what+         -- they import!+         (fmap Module.fsToUnit $+          fmap sl_fs $ ideclPkgQual impDecl)+         (case ideclName impDecl of SrcLoc.L _ name -> name),+       alias))+    impDecls  -- We want to know which modules are imported without any qualification. This -- way we can display module reexports more compactly. This mapping also looks@@ -287,13 +393,13 @@ -- Similar to GHC.lookupModule -- ezyang: Not really... lookupModuleDyn ::-  DynFlags -> Maybe UnitId -> ModuleName -> Module+  UnitState -> Maybe Unit -> ModuleName -> Module lookupModuleDyn _ (Just pkgId) mdlName =   Module.mkModule pkgId mdlName-lookupModuleDyn dflags Nothing mdlName =-  case lookupModuleInAllPackages dflags mdlName of+lookupModuleDyn state Nothing mdlName =+  case lookupModuleInAllUnits state mdlName of     (m,_):_ -> m-    [] -> Module.mkModule Module.mainUnitId mdlName+    [] -> Module.mkModule Module.mainUnit mdlName   -------------------------------------------------------------------------------@@ -398,9 +504,8 @@                         , [(Name, Map Int (MDoc Name))]                         , [(Name,  [LHsDecl GhcRn])]                         )-    mappings (ldecl, docStrs) = do-      let L l decl = ldecl-          declDoc :: [HsDocString] -> Map Int HsDocString+    mappings (ldecl@(L (RealSrcSpan l _) decl), docStrs) = do+      let declDoc :: [HsDocString] -> Map Int HsDocString                   -> ErrMsgM (Maybe (MDoc Name), Map Int (MDoc Name))           declDoc strs m = do             doc' <- processDocStrings dflags pkgName gre strs@@ -428,12 +533,13 @@         seqList subDocs `seq`         seqList subArgs `seq`         pure (dm, am, cm)+    mappings (L (UnhelpfulSpan _) _, _) = pure ([], [], []) -    instanceMap :: Map SrcSpan Name-    instanceMap = M.fromList [ (getSrcSpan n, n) | n <- instances ]+    instanceMap :: Map RealSrcSpan Name+    instanceMap = M.fromList [(l, n) | n <- instances, RealSrcSpan l _ <- [getSrcSpan n] ] -    names :: SrcSpan -> HsDecl GhcRn -> [Name]-    names _ (InstD _ d) = maybeToList (M.lookup loc instanceMap) -- See note [2].+    names :: RealSrcSpan -> HsDecl GhcRn -> [Name]+    names _ (InstD _ d) = maybeToList (SrcLoc.lookupSrcSpan loc instanceMap) -- See note [2].       where loc = case d of               -- The CoAx's loc is the whole line, but only for TFs. The               -- workaround is to dig into the family instance declaration and@@ -456,200 +562,13 @@ --------------------------------------------------------------------------------  --- | Get all subordinate declarations inside a declaration, and their docs.--- A subordinate declaration is something like the associate type or data--- family of a type class.-subordinates :: InstMap-             -> HsDecl GhcRn-             -> [(Name, [HsDocString], Map Int HsDocString)]-subordinates instMap decl = case decl of-  InstD _ (ClsInstD _ d) -> do-    DataFamInstDecl { dfid_eqn = HsIB { hsib_body =-      FamEqn { feqn_tycon = L l _-             , feqn_rhs   = defn }}} <- unLoc <$> cid_datafam_insts d-    [ (n, [], M.empty) | Just n <- [M.lookup l instMap] ] ++ dataSubs defn -  InstD _ (DataFamInstD _ (DataFamInstDecl (HsIB { hsib_body = d })))-    -> dataSubs (feqn_rhs d)-  TyClD _ d | isClassDecl d -> classSubs d-            | isDataDecl  d -> dataSubs (tcdDataDefn d)-  _ -> []-  where-    classSubs dd = [ (name, doc, declTypeDocs d) | (L _ d, doc) <- classDecls dd-                   , name <- getMainDeclBinder d, not (isValD d)-                   ]-    dataSubs :: HsDataDefn GhcRn -> [(Name, [HsDocString], Map Int HsDocString)]-    dataSubs dd = constrs ++ fields ++ derivs-      where-        cons = map unLoc $ (dd_cons dd)-        constrs = [ (unLoc cname, maybeToList $ fmap unLoc $ con_doc c, conArgDocs c)-                  | c <- cons, cname <- getConNames c ]-        fields  = [ (extFieldOcc n, maybeToList $ fmap unLoc doc, M.empty)-                  | RecCon flds <- map getConArgs cons-                  , L _ (ConDeclField _ ns _ doc) <- (unLoc flds)-                  , L _ n <- ns ]-        derivs  = [ (instName, [unLoc doc], M.empty)-                  | (l, doc) <- mapMaybe (extract_deriv_ty . hsib_body) $-                                concatMap (unLoc . deriv_clause_tys . unLoc) $-                                unLoc $ dd_derivs dd-                  , Just instName <- [M.lookup l instMap] ]--        extract_deriv_ty :: LHsType GhcRn -> Maybe (SrcSpan, LHsDocString)-        extract_deriv_ty ty =-          case dL ty of-            -- deriving (forall a. C a {- ^ Doc comment -})-            L l (HsForAllTy{ hst_fvf = ForallInvis-                           , hst_body = dL->L _ (HsDocTy _ _ doc) })-                                  -> Just (l, doc)-            -- deriving (C a {- ^ Doc comment -})-            L l (HsDocTy _ _ doc) -> Just (l, doc)-            _                     -> Nothing---- | Extract constructor argument docs from inside constructor decls.-conArgDocs :: ConDecl GhcRn -> Map Int HsDocString-conArgDocs con = case getConArgs con of-                   PrefixCon args -> go 0 (map unLoc args ++ ret)-                   InfixCon arg1 arg2 -> go 0 ([unLoc arg1, unLoc arg2] ++ ret)-                   RecCon _ -> go 1 ret-  where-    go n (HsDocTy _ _ (L _ ds) : tys) = M.insert n ds $ go (n+1) tys-    go n (HsBangTy _ _ (L _ (HsDocTy _ _ (L _ ds))) : tys) = M.insert n ds $ go (n+1) tys-    go n (_ : tys) = go (n+1) tys-    go _ [] = M.empty--    ret = case con of-            ConDeclGADT { con_res_ty = res_ty } -> [ unLoc res_ty ]-            _ -> []---- | Extract function argument docs from inside top-level decls.-declTypeDocs :: HsDecl GhcRn -> Map Int HsDocString-declTypeDocs (SigD  _ (TypeSig _ _ ty))          = typeDocs (unLoc (hsSigWcType ty))-declTypeDocs (SigD  _ (ClassOpSig _ _ _ ty))     = typeDocs (unLoc (hsSigType ty))-declTypeDocs (SigD  _ (PatSynSig _ _ ty))        = typeDocs (unLoc (hsSigType ty))-declTypeDocs (ForD  _ (ForeignImport _ _ ty _))  = typeDocs (unLoc (hsSigType ty))-declTypeDocs (TyClD _ (SynDecl { tcdRhs = ty })) = typeDocs (unLoc ty)-declTypeDocs _ = M.empty---- | Extract function argument docs from inside types.-typeDocs :: HsType GhcRn -> Map Int HsDocString-typeDocs = go 0-  where-    go n (HsForAllTy { hst_body = ty }) = go n (unLoc ty)-    go n (HsQualTy   { hst_body = ty }) = go n (unLoc ty)-    go n (HsFunTy _ (L _ (HsDocTy _ _ (L _ x))) (L _ ty)) = M.insert n x $ go (n+1) ty-    go n (HsFunTy _ _ ty) = go (n+1) (unLoc ty)-    go n (HsDocTy _ _ (L _ doc)) = M.singleton n doc-    go _ _ = M.empty---- | All the sub declarations of a class (that we handle), ordered by--- source location, with documentation attached if it exists.-classDecls :: TyClDecl GhcRn -> [(LHsDecl GhcRn, [HsDocString])]-classDecls class_ = filterDecls . collectDocs . sortByLoc $ decls-  where-    decls = docs ++ defs ++ sigs ++ ats-    docs  = mkDecls tcdDocs (DocD noExtField) class_-    defs  = mkDecls (bagToList . tcdMeths) (ValD noExtField) class_-    sigs  = mkDecls tcdSigs (SigD noExtField) class_-    ats   = mkDecls tcdATs (TyClD noExtField . FamDecl noExtField) class_----- | The top-level declarations of a module that we care about,--- ordered by source location, with documentation attached if it exists.-topDecls :: HsGroup GhcRn -> [(LHsDecl GhcRn, [HsDocString])]-topDecls =-  filterClasses . filterDecls . collectDocs . sortByLoc . ungroup- -- | Extract a map of fixity declarations only mkFixMap :: HsGroup GhcRn -> FixMap-mkFixMap group_ = M.fromList [ (n,f)-                             | L _ (FixitySig _ ns f) <- hs_fixds group_,-                               L _ n <- ns ]----- | Take all declarations except pragmas, infix decls, rules from an 'HsGroup'.-ungroup :: HsGroup GhcRn -> [LHsDecl GhcRn]-ungroup group_ =-  mkDecls (tyClGroupTyClDecls . hs_tyclds) (TyClD noExtField)  group_ ++-  mkDecls hs_derivds             (DerivD noExtField) group_ ++-  mkDecls hs_defds               (DefD noExtField)   group_ ++-  mkDecls hs_fords               (ForD noExtField)   group_ ++-  mkDecls hs_docs                (DocD noExtField)   group_ ++-  mkDecls (tyClGroupInstDecls . hs_tyclds) (InstD noExtField)  group_ ++-  mkDecls (typesigs . hs_valds)  (SigD noExtField)   group_ ++-  mkDecls (valbinds . hs_valds)  (ValD noExtField)   group_-  where-    typesigs (XValBindsLR (NValBinds _ sigs)) = filter isUserLSig sigs-    typesigs _ = error "expected ValBindsOut"--    valbinds (XValBindsLR (NValBinds binds _)) = concatMap bagToList . snd . unzip $ binds-    valbinds _ = error "expected ValBindsOut"----- | Take a field of declarations from a data structure and create HsDecls--- using the given constructor-mkDecls :: (a -> [Located b]) -> (b -> c) -> a -> [Located c]-mkDecls field con struct = [ L loc (con decl) | L loc decl <- field struct ]----- | Sort by source location-sortByLoc :: [Located a] -> [Located a]-sortByLoc = sortBy (comparing getLoc)-------------------------------------------------------------------------------------- Filtering of declarations------ We filter out declarations that we don't intend to handle later.-------------------------------------------------------------------------------------- | Filter out declarations that we don't handle in Haddock-filterDecls :: [(LHsDecl a, doc)] -> [(LHsDecl a, doc)]-filterDecls = filter (isHandled . unLoc . fst)-  where-    isHandled (ForD _ (ForeignImport {})) = True-    isHandled (TyClD {})  = True-    isHandled (InstD {})  = True-    isHandled (DerivD {}) = True-    isHandled (SigD _ d)  = isUserLSig (noLoc d)-    isHandled (ValD {})   = True-    -- we keep doc declarations to be able to get at named docs-    isHandled (DocD {})   = True-    isHandled _ = False---- | Go through all class declarations and filter their sub-declarations-filterClasses :: [(LHsDecl a, doc)] -> [(LHsDecl a, doc)]-filterClasses decls = [ if isClassD d then (L loc (filterClass d), doc) else x-                      | x@(L loc d, doc) <- decls ]-  where-    filterClass (TyClD x c) =-      TyClD x $ c { tcdSigs = filter (liftA2 (||) isUserLSig isMinimalLSig) $ tcdSigs c }-    filterClass _ = error "expected TyClD"-------------------------------------------------------------------------------------- Collect docs------ To be able to attach the right Haddock comment to the right declaration,--- we sort the declarations by their SrcLoc and "collect" the docs for each--- declaration.-------------------------------------------------------------------------------------- | Collect docs and attach them to the right declarations.-collectDocs :: [LHsDecl a] -> [(LHsDecl a, [HsDocString])]-collectDocs = go Nothing []-  where-    go Nothing _ [] = []-    go (Just prev) docs [] = finished prev docs []-    go prev docs (L _ (DocD _ (DocCommentNext str)) : ds)-      | Nothing <- prev = go Nothing (str:docs) ds-      | Just decl <- prev = finished decl docs (go Nothing [str] ds)-    go prev docs (L _ (DocD _ (DocCommentPrev str)) : ds) = go prev (str:docs) ds-    go Nothing docs (d:ds) = go (Just d) docs ds-    go (Just prev) docs (d:ds) = finished prev docs (go (Just d) [] ds)--    finished decl docs rest = (decl, reverse docs) : rest+mkFixMap group_ =+  M.fromList [ (n,f)+             | L _ (FixitySig _ ns f) <- hsGroupTopLevelFixitySigs group_,+               L _ n <- ns ]   -- | Build the list of items that will become the documentation, from the@@ -659,7 +578,7 @@ -- We create the export items even if the module is hidden, since they -- might be useful when creating the export items for other modules. mkExportItems-  :: HasCallStack+  :: (Monad m)   => Bool               -- is it a signature   -> IfaceMap   -> Maybe Package      -- this package@@ -677,7 +596,7 @@   -> Avails             -- exported stuff from this module   -> InstIfaceMap   -> DynFlags-  -> ErrMsgGhc [ExportItem GhcRn]+  -> IfM m [ExportItem GhcRn] mkExportItems   is_sig modMap pkgName thisMod semMod warnings gre exportedNames decls   maps fixMap unrestricted_imp_mods splices exportList allExports@@ -719,25 +638,39 @@       availExportItem is_sig modMap thisMod semMod warnings exportedNames         maps fixMap splices instIfaceMap dflags avail -availExportItem :: HasCallStack-                => Bool               -- is it a signature-                -> IfaceMap-                -> Module             -- this module-                -> Module             -- semantic module-                -> WarningMap-                -> [Name]             -- exported names (orig)-                -> Maps-                -> FixMap-                -> [SrcSpan]          -- splice locations-                -> InstIfaceMap-                -> DynFlags-                -> AvailInfo-                -> ErrMsgGhc [ExportItem GhcRn]++-- Extract the minimal complete definition of a Name, if one exists+minimalDef :: Monad m => Name -> IfM m (Maybe ClassMinimalDef)+minimalDef n = do+  mty <- lookupName n+  case mty of+    Just (ATyCon (tyConClass_maybe -> Just c)) ->+      return . Just $ classMinimalDef c+    _ ->+      return Nothing+++availExportItem+  :: forall m+  .  Monad m+  => Bool               -- is it a signature+  -> IfaceMap+  -> Module             -- this module+  -> Module             -- semantic module+  -> WarningMap+  -> [Name]             -- exported names (orig)+  -> Maps+  -> FixMap+  -> [SrcSpan]          -- splice locations+  -> InstIfaceMap+  -> DynFlags+  -> AvailInfo+  -> IfM m [ExportItem GhcRn] availExportItem is_sig modMap thisMod semMod warnings exportedNames   (docMap, argMap, declMap, _) fixMap splices instIfaceMap   dflags availInfo = declWith availInfo   where-    declWith :: AvailInfo -> ErrMsgGhc [ ExportItem GhcRn ]+    declWith :: AvailInfo -> IfM m [ ExportItem GhcRn ]     declWith avail = do       let t = availName avail       r    <- findDecl avail@@ -774,7 +707,7 @@                     in availExportDecl avail newDecl docs_                    L loc (TyClD _ cl@ClassDecl{}) -> do-                    mdef <- liftGhcToErrMsgGhc $ minimalDef t+                    mdef <- minimalDef t                     let sig = maybeToList $ fmap (noLoc . MinimalSig noExtField NoSourceText . noLoc . fmap noLoc) mdef                     availExportDecl avail                       (L loc $ TyClD noExtField cl { tcdSigs = sig ++ tcdSigs cl }) docs_@@ -803,7 +736,7 @@         _ -> return []      -- Tries 'extractDecl' first then falls back to 'hiDecl' if that fails-    availDecl :: Name -> LHsDecl GhcRn -> ErrMsgGhc (LHsDecl GhcRn)+    availDecl :: Name -> LHsDecl GhcRn -> IfM m (LHsDecl GhcRn)     availDecl declName parentDecl =       case extractDecl declMap declName parentDecl of         Right d -> pure d@@ -815,7 +748,7 @@      availExportDecl :: AvailInfo -> LHsDecl GhcRn                     -> (DocForDecl Name, [(Name, DocForDecl Name)])-                    -> ErrMsgGhc [ ExportItem GhcRn ]+                    -> IfM m [ ExportItem GhcRn ]     availExportDecl avail decl (doc, subs)       | availExportsDecl avail = do           extractedDecl <- availDecl (availName avail) decl@@ -861,7 +794,7 @@     exportedNameSet = mkNameSet exportedNames     isExported n = elemNameSet n exportedNameSet -    findDecl :: AvailInfo -> ErrMsgGhc ([LHsDecl GhcRn], (DocForDecl Name, [(Name, DocForDecl Name)]))+    findDecl :: AvailInfo -> IfM m ([LHsDecl GhcRn], (DocForDecl Name, [(Name, DocForDecl Name)]))     findDecl avail       | m == semMod =           case M.lookup n declMap of@@ -876,11 +809,11 @@                     Nothing -> return ([], (noDocForDecl, availNoDocs avail))                     -- TODO: If we try harder, we might be able to find                     -- a Haddock!  Look in the Haddocks for each thing in-                    -- requirementContext (pkgState)+                    -- requirementContext (unitState)                     Just decl -> return ([decl], (noDocForDecl, availNoDocs avail))               | otherwise ->                 return ([], (noDocForDecl, availNoDocs avail))-      | Just iface <- M.lookup (semToIdMod (moduleUnitId thisMod) m) modMap+      | Just iface <- M.lookup (semToIdMod (moduleUnit thisMod) m) modMap       , Just ds <- M.lookup n (ifaceDeclMap iface) =           return (ds, lookupDocs avail warnings                             (ifaceDocMap iface)@@ -890,10 +823,10 @@         n = availName avail         m = nameModule n -    findBundledPatterns :: AvailInfo -> ErrMsgGhc [(HsDecl GhcRn, DocForDecl Name)]+    findBundledPatterns :: AvailInfo -> IfM m [(HsDecl GhcRn, DocForDecl Name)]     findBundledPatterns avail = do       patsyns <- for constructor_names $ \name -> do-        mtyThing <- liftGhcToErrMsgGhc (lookupName name)+        mtyThing <- lookupName name         case mtyThing of           Just (AConLike PatSynCon{}) -> do             export_items <- declWith (Avail.avail name)@@ -926,15 +859,15 @@  -- | Given a 'Module' from a 'Name', convert it into a 'Module' that -- we can actually find in the 'IfaceMap'.-semToIdMod :: UnitId -> Module -> Module+semToIdMod :: Unit -> Module -> Module semToIdMod this_uid m     | Module.isHoleModule m = mkModule this_uid (moduleName m)-    | otherwise      = m+    | otherwise             = m  -- | Reify a declaration from the GHC internal 'TyThing' representation.-hiDecl :: DynFlags -> Name -> ErrMsgGhc (Maybe (LHsDecl GhcRn))+hiDecl :: Monad m => DynFlags -> Name -> IfM m (Maybe (LHsDecl GhcRn)) hiDecl dflags t = do-  mayTyThing <- liftGhcToErrMsgGhc $ lookupName t+  mayTyThing <- lookupName t   case mayTyThing of     Nothing -> do       liftErrMsg $ tell ["Warning: Not found in environment: " ++ pretty dflags t]@@ -953,8 +886,9 @@ -- It gets the type signature from GHC and that means it's not going to -- have a meaningful 'SrcSpan'. So we pass down 'SrcSpan' for the -- declaration and use it instead - 'nLoc' here.-hiValExportItem :: DynFlags -> Name -> SrcSpan -> DocForDecl Name -> Bool-                -> Maybe Fixity -> ErrMsgGhc (ExportItem GhcRn)+hiValExportItem+  :: Monad m => DynFlags -> Name -> SrcSpan -> DocForDecl Name -> Bool+  -> Maybe Fixity -> IfM m (ExportItem GhcRn) hiValExportItem dflags name nLoc doc splice fixity = do   mayDecl <- hiDecl dflags name   case mayDecl of@@ -984,12 +918,14 @@  -- | Export the given module as `ExportModule`. We are not concerned with the -- single export items of the given module.-moduleExport :: Module           -- ^ Module A (identity, NOT semantic)-             -> DynFlags         -- ^ The flags used when typechecking A-             -> IfaceMap         -- ^ Already created interfaces-             -> InstIfaceMap     -- ^ Interfaces in other packages-             -> ModuleName       -- ^ The exported module-             -> ErrMsgGhc [ExportItem GhcRn] -- ^ Resulting export items+moduleExport+  :: Monad m+  => Module           -- ^ Module A (identity, NOT semantic)+  -> DynFlags         -- ^ The flags used when typechecking A+  -> IfaceMap         -- ^ Already created interfaces+  -> InstIfaceMap     -- ^ Interfaces in other packages+  -> ModuleName       -- ^ The exported module+  -> IfM m [ExportItem GhcRn] -- ^ Resulting export items moduleExport thisMod dflags ifaceMap instIfaceMap expMod =     -- NB: we constructed the identity module when looking up in     -- the IfaceMap.@@ -1003,13 +939,11 @@         case M.lookup expMod (M.mapKeys moduleName instIfaceMap) of           Just iface -> return [ ExportModule (instMod iface) ]           Nothing -> do-            liftErrMsg $-              tell ["Warning: " ++ pretty dflags thisMod ++ ": Could not find " ++-                    "documentation for exported module: " ++ pretty dflags expMod]+            liftErrMsg $ tell ["Warning: " ++ pretty dflags thisMod ++ ": Could not find " +++                               "documentation for exported module: " ++ pretty dflags expMod]             return []   where-    m = mkModule unitId expMod -- Identity module!-    unitId = moduleUnitId thisMod+    m = mkModule (moduleUnit thisMod) expMod -- Identity module!  -- Note [1]: ------------@@ -1032,22 +966,24 @@ -- every locally defined declaration is exported; thus, we just -- zip through the renamed declarations. -fullModuleContents :: Bool               -- is it a signature-                   -> IfaceMap-                   -> Maybe Package      -- this package-                   -> Module             -- this module-                   -> Module             -- semantic module-                   -> WarningMap-                   -> GlobalRdrEnv      -- ^ The renaming environment-                   -> [Name]             -- exported names (orig)-                   -> [LHsDecl GhcRn]    -- renamed source declarations-                   -> Maps-                   -> FixMap-                   -> [SrcSpan]          -- splice locations-                   -> InstIfaceMap-                   -> DynFlags-                   -> Avails-                   -> ErrMsgGhc [ExportItem GhcRn]+fullModuleContents+  :: Monad m+  => Bool               -- is it a signature+  -> IfaceMap+  -> Maybe Package      -- this package+  -> Module             -- this module+  -> Module             -- semantic module+  -> WarningMap+  -> GlobalRdrEnv      -- ^ The renaming environment+  -> [Name]             -- exported names (orig)+  -> [LHsDecl GhcRn]    -- renamed source declarations+  -> Maps+  -> FixMap+  -> [SrcSpan]          -- splice locations+  -> InstIfaceMap+  -> DynFlags+  -> Avails+  -> IfM m [ExportItem GhcRn] fullModuleContents is_sig modMap pkgName thisMod semMod warnings gre exportedNames   decls maps@(_, _, declMap, _) fixMap splices instIfaceMap dflags avails = do   let availEnv = availsToNameEnv (nubAvails avails)@@ -1182,9 +1118,9 @@   extract con =     let args =           case getConArgs con of-            PrefixCon args' -> args'+            PrefixCon args' -> (map hsScaledThing args')             RecCon (L _ fields) -> cd_fld_type . unLoc <$> fields-            InfixCon arg1 arg2 -> [arg1, arg2]+            InfixCon arg1 arg2 -> map hsScaledThing [arg1, arg2]         typ = longArrow args (data_ty con)         typ' =           case con of@@ -1194,7 +1130,7 @@     in PatSynSig noExtField [noLoc nm] (mkEmptyImplicitBndrs typ'')    longArrow :: [LHsType GhcRn] -> LHsType GhcRn -> LHsType GhcRn-  longArrow inputs output = foldr (\x y -> noLoc (HsFunTy noExtField x y)) output inputs+  longArrow inputs output = foldr (\x y -> noLoc (HsFunTy noExtField (HsUnrestrictedArrow NormalSyntax) x y)) output inputs    data_ty con     | ConDeclGADT{} <- con = con_res_ty con@@ -1211,7 +1147,7 @@ extractRecSel nm t tvs (L _ con : rest) =   case getConArgs con of     RecCon (L _ fields) | ((l,L _ (ConDeclField _ _nn ty _)) : _) <- matching_fields fields ->-      pure (L l (TypeSig noExtField [noLoc nm] (mkEmptySigWcType (noLoc (HsFunTy noExtField data_ty (getBangType ty))))))+      pure (L l (TypeSig noExtField [noLoc nm] (mkEmptySigWcType (noLoc (HsFunTy noExtField (HsUnrestrictedArrow NormalSyntax) data_ty (getBangType ty))))))     _ -> extractRecSel nm t tvs rest  where   matching_fields :: [LConDeclField GhcRn] -> [(SrcSpan, LConDeclField GhcRn)]@@ -1244,7 +1180,7 @@       where subs    = map fst (expItemSubDocs e)             patsyns = concatMap (getMainDeclBinder . fst) (expItemPats e)             name = case unLoc $ expItemDecl e of-              InstD _ d -> maybeToList $ M.lookup (getInstLoc d) instMap+              InstD _ d -> maybeToList $ SrcLoc.lookupSrcSpan (getInstLoc d) instMap               decl      -> getMainDeclBinder decl     exportName ExportNoDecl {} = [] -- we don't count these as visible, since                                     -- we don't want links to go to them.
haddock-api/src/Haddock/Interface/Json.hs view
@@ -5,11 +5,11 @@   , renderJson   ) where -import BasicTypes-import Json-import Module-import Name-import Outputable+import GHC.Types.Basic+import GHC.Utils.Json+import GHC.Unit.Module+import GHC.Types.Name+import GHC.Utils.Outputable  import Control.Arrow import Data.Map (Map)
haddock-api/src/Haddock/Interface/LexParseRn.hs view
@@ -1,5 +1,6 @@ {-# OPTIONS_GHC -Wwarn #-} {-# LANGUAGE BangPatterns #-}+{-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE ViewPatterns #-}   ----------------------------------------------------------------------------- -- |@@ -25,17 +26,17 @@ import Data.List (maximumBy, (\\)) import Data.Ord import Documentation.Haddock.Doc (metaDocConcat)-import DynFlags (languageExtensions)+import GHC.Driver.Session (languageExtensions) import qualified GHC.LanguageExtensions as LangExt import GHC import Haddock.Interface.ParseModuleHeader import Haddock.Parser import Haddock.Types-import Name-import Outputable ( showPpr, showSDoc )-import RdrName-import RdrHsSyn (setRdrNameSpace)-import EnumSet+import GHC.Types.Name+import GHC.Parser.PostProcess+import GHC.Utils.Outputable ( showPpr, showSDoc )+import GHC.Types.Name.Reader+import GHC.Data.EnumSet as EnumSet  processDocStrings :: DynFlags -> Maybe Package -> GlobalRdrEnv -> [HsDocString]                   -> ErrMsgM (Maybe (MDoc Name))
haddock-api/src/Haddock/Interface/ParseModuleHeader.hs view
@@ -1,5 +1,6 @@-{-# LANGUAGE DeriveFunctor #-} {-# OPTIONS_GHC -Wwarn #-}+{-# LANGUAGE DeriveFunctor #-}+ ----------------------------------------------------------------------------- -- | -- Module      :  Haddock.Interface.ParseModuleHeader@@ -15,7 +16,7 @@ import Control.Applicative (Alternative (..)) import Control.Monad (ap) import Data.Char-import DynFlags+import GHC.Driver.Session import Haddock.Parser import Haddock.Types
haddock-api/src/Haddock/Interface/Rename.hs view
@@ -20,11 +20,11 @@ import Haddock.GhcUtils import Haddock.Types -import Bag (emptyBag)+import GHC.Data.Bag (emptyBag) import GHC hiding (NoLink)-import Name-import RdrName (RdrName(Exact))-import TysWiredIn (eqTyCon_RDR)+import GHC.Types.Name+import GHC.Types.Name.Reader (RdrName(Exact))+import GHC.Builtin.Types (eqTyCon_RDR)  import Control.Applicative import Control.Arrow ( first )@@ -33,6 +33,7 @@ import qualified Data.Map as Map hiding ( Map ) import qualified Data.Set as Set import Prelude hiding (mapM)+import GHC.HsToCore.Docs  -- | Traverse docstrings and ASTs in the Haddock interface, renaming 'Name' to -- 'DocName'.@@ -232,7 +233,6 @@ renameFamilyResultSig (L loc (TyVarSig _ bndr))     = do { bndr' <- renameLTyVarBndr bndr          ; return (L loc (TyVarSig noExtField bndr')) }-renameFamilyResultSig (L _ (XFamilyResultSig nec)) = noExtCon nec  renameInjectivityAnn :: LInjectivityAnn GhcRn -> RnM (LInjectivityAnn DocNameI) renameInjectivityAnn (L loc (InjectivityAnn lhs rhs))@@ -244,13 +244,18 @@                           -> RnM (Maybe (LInjectivityAnn DocNameI)) renameMaybeInjectivityAnn = traverse renameInjectivityAnn +renameArrow :: HsArrow GhcRn -> RnM (HsArrow DocNameI)+renameArrow (HsUnrestrictedArrow u) = return (HsUnrestrictedArrow u)+renameArrow (HsLinearArrow u) = return (HsLinearArrow u)+renameArrow (HsExplicitMult u p) = HsExplicitMult u <$> renameLType p+ renameType :: HsType GhcRn -> RnM (HsType DocNameI) renameType t = case t of-  HsForAllTy { hst_fvf = fvf, hst_bndrs = tyvars, hst_body = ltype } -> do-    tyvars'   <- mapM renameLTyVarBndr tyvars-    ltype'    <- renameLType ltype-    return (HsForAllTy { hst_fvf = fvf, hst_xforall = noExtField-                       , hst_bndrs = tyvars', hst_body = ltype' })+  HsForAllTy { hst_tele = tele, hst_body = ltype } -> do+    tele'  <- renameHsForAllTelescope tele+    ltype' <- renameLType ltype+    return (HsForAllTy { hst_xforall = noExtField+                       , hst_tele = tele', hst_body = ltype' })    HsQualTy { hst_ctxt = lcontext , hst_body = ltype } -> do     lcontext' <- renameLContext lcontext@@ -272,10 +277,11 @@     b' <- renameLKind b     return (HsAppKindTy noExtField a' b') -  HsFunTy _ a b -> do+  HsFunTy _ w a b -> do     a' <- renameLType a     b' <- renameLType b-    return (HsFunTy noExtField a' b')+    w' <- renameArrow w+    return (HsFunTy noExtField w' a' b')    HsListTy _ ty -> return . (HsListTy noExtField) =<< renameLType ty   HsIParamTy _ n ty -> liftM (HsIParamTy noExtField n) (renameLType ty)@@ -326,17 +332,22 @@   = do { tvs' <- mapM renameLTyVarBndr tvs        ; return (HsQTvs { hsq_ext = noExtField                         , hsq_explicit = tvs' }) }-renameLHsQTyVars (XLHsQTyVars nec) = noExtCon nec -renameLTyVarBndr :: LHsTyVarBndr GhcRn -> RnM (LHsTyVarBndr DocNameI)-renameLTyVarBndr (L loc (UserTyVar x (L l n)))+renameHsForAllTelescope :: HsForAllTelescope GhcRn -> RnM (HsForAllTelescope DocNameI)+renameHsForAllTelescope tele = case tele of+  HsForAllVis   x bndrs -> do bndrs' <- mapM renameLTyVarBndr bndrs+                              pure $ HsForAllVis x bndrs'+  HsForAllInvis x bndrs -> do bndrs' <- mapM renameLTyVarBndr bndrs+                              pure $ HsForAllInvis x bndrs'++renameLTyVarBndr :: LHsTyVarBndr flag GhcRn -> RnM (LHsTyVarBndr flag DocNameI)+renameLTyVarBndr (L loc (UserTyVar x fl (L l n)))   = do { n' <- rename n-       ; return (L loc (UserTyVar x (L l n'))) }-renameLTyVarBndr (L loc (KindedTyVar x (L lv n) kind))+       ; return (L loc (UserTyVar x fl (L l n'))) }+renameLTyVarBndr (L loc (KindedTyVar x fl (L lv n) kind))   = do { n' <- rename n        ; kind' <- renameLKind kind-       ; return (L loc (KindedTyVar x (L lv n') kind')) }-renameLTyVarBndr (L _ (XTyVarBndr nec)) = noExtCon nec+       ; return (L loc (KindedTyVar x fl (L lv n') kind')) }  renameLContext :: Located [LHsType GhcRn] -> RnM (Located [LHsType DocNameI]) renameLContext (L loc context) = do@@ -427,7 +438,6 @@                       , tcdFixity = fixity                       , tcdFDs = lfundeps', tcdSigs = lsigs', tcdMeths= emptyBag                       , tcdATs = ats', tcdATDefs = at_defs', tcdDocs = [], tcdCExt = noExtField })-  XTyClDecl nec -> noExtCon nec    where     renameLFunDep (L loc (xs, ys)) = do@@ -453,7 +463,6 @@                        , fdFixity = fixity                        , fdResultSig = result'                        , fdInjectivityAnn = injectivity' })-renameFamilyDecl (XFamilyDecl nec) = noExtCon nec   renamePseudoFamilyDecl :: PseudoFamilyDecl GhcRn@@ -483,7 +492,6 @@                        , dd_ND = nd, dd_ctxt = lcontext', dd_cType = cType                        , dd_kindSig = k', dd_cons = cons'                        , dd_derivs = noLoc [] })-renameDataDefn (XHsDataDefn nec) = noExtCon nec  renameCon :: ConDecl GhcRn -> RnM (ConDecl DocNameI) renameCon decl@(ConDeclH98 { con_name = lname, con_ex_tvs = ltyvars@@ -503,7 +511,7 @@                             , con_res_ty = res_ty                             , con_doc = mbldoc }) = do       lnames'   <- mapM renameL lnames-      ltyvars'  <- renameLHsQTyVars ltyvars+      ltyvars'  <- mapM renameLTyVarBndr ltyvars       lcontext' <- traverse renameLContext lcontext       details'  <- renameDetails details       res_ty'   <- renameLType res_ty@@ -511,16 +519,21 @@       return (decl { con_g_ext = noExtField, con_names = lnames', con_qvars = ltyvars'                    , con_mb_cxt = lcontext', con_args = details'                    , con_res_ty = res_ty', con_doc = mbldoc' })-renameCon (XConDecl nec) = noExtCon nec +renameHsScaled :: HsScaled GhcRn (LHsType GhcRn)+               -> RnM (HsScaled DocNameI (LHsType DocNameI))+renameHsScaled (HsScaled w ty) = HsScaled <$> renameArrow w <*> renameLType ty+ renameDetails :: HsConDeclDetails GhcRn -> RnM (HsConDeclDetails DocNameI) renameDetails (RecCon (L l fields)) = do   fields' <- mapM renameConDeclFieldField fields   return (RecCon (L l fields'))-renameDetails (PrefixCon ps) = return . PrefixCon =<< mapM renameLType ps+                               -- This causes an assertion failure+--renameDetails (PrefixCon ps) = -- return . PrefixCon =<< mapM (_renameLType) ps+renameDetails (PrefixCon ps) = PrefixCon <$> mapM renameHsScaled ps renameDetails (InfixCon a b) = do-  a' <- renameLType a-  b' <- renameLType b+  a' <- renameHsScaled a+  b' <- renameHsScaled b   return (InfixCon a' b')  renameConDeclFieldField :: LConDeclField GhcRn -> RnM (LConDeclField DocNameI)@@ -529,13 +542,11 @@   t'   <- renameLType t   doc' <- mapM renameLDocHsSyn doc   return $ L l (ConDeclField noExtField names' t' doc')-renameConDeclFieldField (L _ (XConDeclField nec)) = noExtCon nec  renameLFieldOcc :: LFieldOcc GhcRn -> RnM (LFieldOcc DocNameI) renameLFieldOcc (L l (FieldOcc sel lbl)) = do   sel' <- rename sel   return $ L l (FieldOcc sel' lbl)-renameLFieldOcc (L _ (XFieldOcc nec)) = noExtCon nec  renameSig :: Sig GhcRn -> RnM (Sig DocNameI) renameSig sig = case sig of@@ -570,7 +581,6 @@   lname' <- renameL lname   ltype' <- renameLSigType ltype   return (ForeignExport noExtField lname' ltype' x)-renameForD (XForeignDecl nec) = noExtCon nec   renameInstD :: InstDecl GhcRn -> RnM (InstDecl DocNameI)@@ -583,7 +593,6 @@ renameInstD (DataFamInstD { dfid_inst = d }) = do   d' <- renameDataFamInstD d   return (DataFamInstD { dfid_ext = noExtField, dfid_inst = d' })-renameInstD (XInstDecl nec) = noExtCon nec  renameDerivD :: DerivDecl GhcRn -> RnM (DerivDecl DocNameI) renameDerivD (DerivDecl { deriv_type = ty@@ -595,7 +604,6 @@                     , deriv_type = ty'                     , deriv_strategy = strat'                     , deriv_overlap_mode = omode })-renameDerivD (XDerivDecl nec) = noExtCon nec  renameDerivStrategy :: DerivStrategy GhcRn -> RnM (DerivStrategy DocNameI) renameDerivStrategy StockStrategy    = pure StockStrategy@@ -614,7 +622,6 @@                       , cid_poly_ty = ltype', cid_binds = emptyBag                       , cid_sigs = []                       , cid_tyfam_insts = lATs', cid_datafam_insts = lADTs' })-renameClsInstD (XClsInstDecl nec) = noExtCon nec   renameTyFamInstD :: TyFamInstDecl GhcRn -> RnM (TyFamInstDecl DocNameI)@@ -642,7 +649,6 @@                             , feqn_pats   = pats'                             , feqn_fixity = fixity                             , feqn_rhs    = rhs' }) }-    rename_ty_fam_eqn (XFamEqn nec) = noExtCon nec  renameTyFamDefltD :: TyFamDefltDecl GhcRn -> RnM (TyFamDefltDecl DocNameI) renameTyFamDefltD = renameTyFamInstD@@ -668,7 +674,6 @@                             , feqn_pats   = pats'                             , feqn_fixity = fixity                             , feqn_rhs    = defn' }) }-    rename_data_fam_eqn (XFamEqn nec) = noExtCon nec  renameImplicit :: (in_thing -> RnM out_thing)                -> HsImplicitBndrs GhcRn in_thing@@ -677,7 +682,6 @@   = do { thing' <- rn_thing thing        ; return (HsIB { hsib_body = thing'                       , hsib_ext = noExtField }) }-renameImplicit _ (XHsImplicitBndrs nec) = noExtCon nec  renameWc :: (in_thing -> RnM out_thing)          -> HsWildCardBndrs GhcRn in_thing@@ -686,7 +690,6 @@   = do { thing' <- rn_thing thing        ; return (HsWC { hswc_body = thing'                       , hswc_ext = noExtField }) }-renameWc _ (XHsWildCardBndrs nec) = noExtCon nec  renameDocInstance :: DocInstance GhcRn -> RnM (DocInstance DocNameI) renameDocInstance (inst, idoc, L l n, m) = do
haddock-api/src/Haddock/Interface/Specialize.hs view
@@ -15,10 +15,10 @@ import Haddock.Types  import GHC-import Name-import FastString-import TysPrim ( funTyConName )-import TysWiredIn ( listTyConName )+import GHC.Types.Name+import GHC.Data.FastString+import GHC.Builtin.Types ( listTyConName, unrestrictedFunTyConName )+import GHC.Parser.Annotation (IsUnicodeSyntax(..))  import Control.Monad import Control.Monad.Trans.State@@ -134,7 +134,7 @@ sugarOperators :: NamedThing (IdP (GhcPass p)) => HsType (GhcPass p) -> HsType (GhcPass p) sugarOperators (HsAppTy _ (L _ (HsAppTy _ (L _ (HsTyVar _ _ (L l name))) la)) lb)     | isSymOcc $ getOccName name' = mkHsOpTy la (L l name) lb-    | funTyConName == name' = HsFunTy noExtField la lb+    | unrestrictedFunTyConName == name' = HsFunTy noExtField (HsUnrestrictedArrow NormalSyntax) la lb   where     name' = getName name sugarOperators typ = typ@@ -204,12 +204,16 @@     everythingWithState Set.empty Set.union query   where     query term ctx = case cast term :: Maybe (HsType GhcRn) of-        Just (HsForAllTy _ _ bndrs _) ->-            (Set.empty, Set.union ctx (bndrsNames bndrs))+        Just (HsForAllTy _ tele _) ->+            (Set.empty, Set.union ctx (teleNames tele))         Just (HsTyVar _ _ (L _ name))             | getName name `Set.member` ctx -> (Set.empty, ctx)             | otherwise -> (Set.singleton $ getName name, ctx)         _ -> (Set.empty, ctx)++    teleNames (HsForAllVis   _ bndrs) = bndrsNames bndrs+    teleNames (HsForAllInvis _ bndrs) = bndrsNames bndrs+     bndrsNames = Set.fromList . map (getName . hsTyVarBndrName . unLoc)  @@ -242,9 +246,9 @@   renameType :: HsType GhcRn -> Rename (IdP GhcRn) (HsType GhcRn)-renameType (HsForAllTy x fvf bndrs lt) =-    HsForAllTy x fvf-        <$> mapM (located renameBinder) bndrs+renameType (HsForAllTy x tele lt) =+    HsForAllTy x+        <$> renameForAllTelescope tele         <*> renameLType lt renameType (HsQualTy x lctxt lt) =     HsQualTy x@@ -254,7 +258,7 @@ renameType t@(HsStarTy _ _) = pure t renameType (HsAppTy x lf la) = HsAppTy x <$> renameLType lf <*> renameLType la renameType (HsAppKindTy x lt lk) = HsAppKindTy x <$> renameLType lt <*> renameLKind lk-renameType (HsFunTy x la lr) = HsFunTy x <$> renameLType la <*> renameLType lr+renameType (HsFunTy x w la lr) = HsFunTy x <$> renameHsArrow w <*> renameLType la <*> renameLType lr renameType (HsListTy x lt) = HsListTy x <$> renameLType lt renameType (HsTupleTy x srt lt) = HsTupleTy x srt <$> mapM renameLType lt renameType (HsSumTy x lt) = HsSumTy x <$> mapM renameLType lt@@ -275,7 +279,11 @@ renameType t@(HsTyLit _ _) = pure t renameType (HsWildCardTy wc) = pure (HsWildCardTy wc) +renameHsArrow :: HsArrow GhcRn -> Rename (IdP GhcRn) (HsArrow GhcRn)+renameHsArrow (HsExplicitMult u p) = HsExplicitMult u <$> renameLType p+renameHsArrow mult = pure mult + renameLType :: LHsType GhcRn -> Rename (IdP GhcRn) (LHsType GhcRn) renameLType = located renameType @@ -289,12 +297,21 @@ renameContext :: HsContext GhcRn -> Rename (IdP GhcRn) (HsContext GhcRn) renameContext = renameLTypes -renameBinder :: HsTyVarBndr GhcRn -> Rename (IdP GhcRn) (HsTyVarBndr GhcRn)-renameBinder (UserTyVar x lname) = UserTyVar x <$> located renameName lname-renameBinder (KindedTyVar x lname lkind) =-  KindedTyVar x <$> located renameName lname <*> located renameType lkind-renameBinder (XTyVarBndr nec) = noExtCon nec+renameForAllTelescope :: HsForAllTelescope GhcRn+                      -> Rename (IdP GhcRn) (HsForAllTelescope GhcRn)+renameForAllTelescope (HsForAllVis x bndrs) =+  HsForAllVis x <$> mapM renameLBinder bndrs+renameForAllTelescope (HsForAllInvis x bndrs) =+  HsForAllInvis x <$> mapM renameLBinder bndrs +renameBinder :: HsTyVarBndr flag GhcRn -> Rename (IdP GhcRn) (HsTyVarBndr flag GhcRn)+renameBinder (UserTyVar x fl lname) = UserTyVar x fl <$> located renameName lname+renameBinder (KindedTyVar x fl lname lkind) =+  KindedTyVar x fl <$> located renameName lname <*> located renameType lkind++renameLBinder :: LHsTyVarBndr flag GhcRn -> Rename (IdP GhcRn) (LHsTyVarBndr flag GhcRn)+renameLBinder = located renameBinder+ -- | Core renaming logic. renameName :: SetName name => name -> Rename name name renameName name = do@@ -345,5 +362,3 @@  located :: Functor f => (a -> f b) -> Located a -> f (Located b) located f (L loc e) = L loc <$> f e--
haddock-api/src/Haddock/InterfaceFile.hs view
@@ -1,4 +1,5 @@ {-# LANGUAGE CPP, RankNTypes, ScopedTypeVariables #-}+{-# LANGUAGE BangPatterns #-} {-# OPTIONS_GHC -fno-warn-orphans #-} ----------------------------------------------------------------------------- -- |@@ -31,19 +32,19 @@ import Data.Map (Map) import Data.Word -import BinIface (getSymtabName, getDictFastString)-import Binary-import FastMutInt-import FastString+import GHC.Iface.Binary (getSymtabName, getDictFastString)+import GHC.Utils.Binary+import GHC.Data.FastMutInt+import GHC.Data.FastString import GHC hiding (NoLink)-import GhcMonad (withSession)-import HscTypes-import NameCache-import IfaceEnv-import Name-import UniqFM-import UniqSupply-import Unique+import GHC.Driver.Monad (withSession)+import GHC.Driver.Types+import GHC.Types.Name.Cache+import GHC.Iface.Env+import GHC.Types.Name+import GHC.Types.Unique.FM+import GHC.Types.Unique.Supply+import GHC.Types.Unique  data InterfaceFile = InterfaceFile {   ifLinkEnv         :: LinkEnv,@@ -57,11 +58,11 @@     [] -> error "empty InterfaceFile"     iface:_ -> instMod iface -ifUnitId :: InterfaceFile -> UnitId+ifUnitId :: InterfaceFile -> Unit ifUnitId if_ =   case ifInstalledIfaces if_ of     [] -> error "empty InterfaceFile"-    iface:_ -> moduleUnitId $ instMod iface+    iface:_ -> moduleUnit $ instMod iface   binaryInterfaceMagic :: Word32@@ -93,7 +94,7 @@ -- (2) set `binaryInterfaceVersionCompatibility` to [binaryInterfaceVersion] -- binaryInterfaceVersion :: Word16-#if (__GLASGOW_HASKELL__ >= 809) && (__GLASGOW_HASKELL__ < 811)+#if MIN_VERSION_ghc(9,0,0) && !MIN_VERSION_ghc(9,1,0) binaryInterfaceVersion = 38  binaryInterfaceVersionCompatibility :: [Word16]@@ -169,7 +170,7 @@ type NameCacheAccessor m = (m NameCache, NameCache -> m ())  -nameCacheFromGhc :: GhcMonad m => NameCacheAccessor m+nameCacheFromGhc :: forall m. GhcMonad m => NameCacheAccessor m nameCacheFromGhc = ( read_from_session , write_to_session )   where     read_from_session = do@@ -287,7 +288,7 @@  data BinSymbolTable = BinSymbolTable {         bin_symtab_next :: !FastMutInt, -- The next index to use-        bin_symtab_map  :: !(IORef (UniqFM (Int,Name)))+        bin_symtab_map  :: !(IORef (UniqFM Name (Int,Name)))                                 -- indexed by Name   } @@ -297,24 +298,24 @@                               bin_dict_map  = out_r}  bh f   = do     out <- readIORef out_r-    let unique = getUnique f-    case lookupUFM out unique of+    let !unique = getUnique f+    case lookupUFM_Directly out unique of         Just (j, _)  -> put_ bh (fromIntegral j :: Word32)         Nothing -> do            j <- readFastMutInt j_r            put_ bh (fromIntegral j :: Word32)            writeFastMutInt j_r (j + 1)-           writeIORef out_r $! addToUFM out unique (j, f)+           writeIORef out_r $! addToUFM_Directly out unique (j, f)   data BinDictionary = BinDictionary {         bin_dict_next :: !FastMutInt, -- The next index to use-        bin_dict_map  :: !(IORef (UniqFM (Int,FastString)))+        bin_dict_map  :: !(IORef (UniqFM FastString (Int,FastString)))                                 -- indexed by FastString   }  -putSymbolTable :: BinHandle -> Int -> UniqFM (Int,Name) -> IO ()+putSymbolTable :: BinHandle -> Int -> UniqFM Name (Int,Name) -> IO () putSymbolTable bh next_off symtab = do   put_ bh next_off   let names = elems (array (0,next_off-1) (eltsUFM symtab))@@ -330,7 +331,7 @@   return (namecache', arr)  -type OnDiskName = (UnitId, ModuleName, OccName)+type OnDiskName = (Unit, ModuleName, OccName)   fromOnDiskName@@ -357,10 +358,10 @@         }  -serialiseName :: BinHandle -> Name -> UniqFM (Int,Name) -> IO ()+serialiseName :: BinHandle -> Name -> UniqFM Name (Int,Name) -> IO () serialiseName bh name _ = do   let modu = nameModule name-  put_ bh (moduleUnitId modu, moduleName modu, nameOccName name)+  put_ bh (moduleUnit modu, moduleName modu, nameOccName name)   -------------------------------------------------------------------------------
haddock-api/src/Haddock/ModuleTree.hs view
@@ -14,11 +14,9 @@  import Haddock.Types ( MDoc ) -import GHC           ( Name )-import Module        ( Module, moduleNameString, moduleName, moduleUnitId, unitIdString )-import DynFlags      ( DynFlags )-import Packages      ( lookupPackage )-import PackageConfig ( sourcePackageIdString )+import GHC             ( Name )+import GHC.Unit.Module ( Module, moduleNameString, moduleName, moduleUnit, unitString )+import GHC.Unit.State  ( UnitState, lookupUnit, unitPackageIdString )  import qualified Control.Applicative as A @@ -26,14 +24,14 @@ data ModuleTree = Node String (Maybe Module) (Maybe String) (Maybe String) (Maybe (MDoc Name)) [ModuleTree]  -mkModuleTree :: DynFlags -> Bool -> [(Module, Maybe (MDoc Name))] -> [ModuleTree]-mkModuleTree dflags showPkgs mods =+mkModuleTree :: UnitState -> Bool -> [(Module, Maybe (MDoc Name))] -> [ModuleTree]+mkModuleTree state showPkgs mods =   foldr fn [] [ (mdl, splitModule mdl, modPkg mdl, modSrcPkg mdl, short) | (mdl, short) <- mods ]   where-    modPkg mod_ | showPkgs = Just (unitIdString (moduleUnitId mod_))+    modPkg mod_ | showPkgs = Just (unitString (moduleUnit mod_))                 | otherwise = Nothing-    modSrcPkg mod_ | showPkgs = fmap sourcePackageIdString-                                     (lookupPackage dflags (moduleUnitId mod_))+    modSrcPkg mod_ | showPkgs = fmap unitPackageIdString+                                     (lookupUnit state (moduleUnit mod_))                    | otherwise = Nothing     fn (m,mod_,pkg,srcPkg,short) = addToTrees mod_ m pkg srcPkg short
haddock-api/src/Haddock/Options.hs view
@@ -24,6 +24,7 @@   optSourceCssFile,   sourceUrls,   wikiUrls,+  optParCount,   optDumpInterfaceFile,   optShowInterfaceFile,   optLaTeXStyle,@@ -44,11 +45,12 @@ import qualified Data.Char as Char import           Data.Version import           Control.Applicative-import           FastString-import           GHC ( DynFlags, Module, moduleUnitId )+import           GHC.Data.FastString+import           GHC ( DynFlags, Module, moduleUnit, unitState )+import           GHC.Unit.Info ( PackageName(..), unitPackageName, unitPackageVersion )+import           GHC.Unit.State ( lookupUnit  ) import           Haddock.Types import           Haddock.Utils-import           Packages import           System.Console.GetOpt import qualified Text.ParserCombinators.ReadP as RP @@ -110,6 +112,7 @@   | Flag_Reexport String   | Flag_SinceQualification String   | Flag_IgnoreLinkSymbol String+  | Flag_ParCount (Maybe Int)   deriving (Eq, Show)  @@ -223,7 +226,9 @@     Option []  ["since-qual"] (ReqArg Flag_SinceQualification "QUAL")       "package qualification of @since, one of\n'always' (default) or 'only-external'",     Option [] ["ignore-link-symbol"] (ReqArg Flag_IgnoreLinkSymbol "SYMBOL")-      "name of a symbol which does not trigger a warning in case of link issue"+      "name of a symbol which does not trigger a warning in case of link issue",+    Option ['j'] [] (OptArg (\count -> Flag_ParCount (fmap read count)) "n")+      "load modules in parallel"   ]  @@ -306,10 +311,11 @@ optLaTeXStyle :: [Flag] -> Maybe String optLaTeXStyle flags = optLast [ str | Flag_LaTeXStyle str <- flags ] - optMathjax :: [Flag] -> Maybe String optMathjax flags = optLast [ str | Flag_Mathjax str <- flags ] +optParCount :: [Flag] -> Maybe (Maybe Int)+optParCount flags = optLast [ n | Flag_ParCount n <- flags ]  qualification :: [Flag] -> Either String QualOption qualification flags =@@ -383,8 +389,8 @@                   -> (Maybe PackageName, Maybe Data.Version.Version) modulePackageInfo _dflags _flags Nothing = (Nothing, Nothing) modulePackageInfo dflags flags (Just modu) =-  ( optPackageName flags    <|> fmap packageName pkgDb-  , optPackageVersion flags <|> fmap packageVersion pkgDb+  ( optPackageName flags    <|> fmap unitPackageName pkgDb+  , optPackageVersion flags <|> fmap unitPackageVersion pkgDb   )   where-    pkgDb = lookupPackage dflags (moduleUnitId modu)+    pkgDb = lookupUnit (unitState dflags) (moduleUnit modu)
haddock-api/src/Haddock/Parser.hs view
@@ -18,14 +18,14 @@ import Documentation.Haddock.Types import Haddock.Types -import DynFlags     ( DynFlags )-import FastString   ( fsLit )-import Lexer        ( mkPState, unP, ParseResult(..) )-import OccName      ( occNameString )-import Parser       ( parseIdentifier )-import RdrName      ( RdrName(Qual) )-import SrcLoc       ( mkRealSrcLoc, GenLocated(..) )-import StringBuffer ( stringToStringBuffer )+import GHC.Driver.Session ( DynFlags )+import GHC.Data.FastString   ( fsLit )+import GHC.Parser.Lexer ( mkPState, unP, ParseResult(POk, PFailed) )+import GHC.Parser       ( parseIdentifier )+import GHC.Types.Name.Occurrence ( occNameString )+import GHC.Types.Name.Reader ( RdrName(..) )+import GHC.Types.SrcLoc ( mkRealSrcLoc, GenLocated(..) )+import GHC.Data.StringBuffer ( stringToStringBuffer )   parseParas :: DynFlags -> Maybe Package -> String -> MetaDoc mod (Wrap NsRdrName)
haddock-api/src/Haddock/Types.hs view
@@ -3,6 +3,9 @@ {-# LANGUAGE PartialTypeSignatures #-} {-# LANGUAGE UndecidableInstances #-} -- Note [Pass sensitive types] {-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE MultiParamTypeClasses #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# OPTIONS_GHC -fno-warn-orphans #-}  -----------------------------------------------------------------------------@@ -25,26 +28,29 @@   , HsDocString, LHsDocString   , Fixity(..)   , module Documentation.Haddock.Types++  -- $ Reexports+  , runWriter+  , tell  ) where -import Control.Exception-import Control.Arrow hiding ((<+>)) import Control.DeepSeq-import Control.Monad (ap)+import Control.Exception (throw)+import Control.Monad.Catch import Control.Monad.IO.Class (MonadIO(..))+import Control.Monad.Writer.Strict (Writer, WriterT, MonadWriter(..), lift, runWriter, runWriterT) import Data.Typeable (Typeable) import Data.Map (Map) import Data.Data (Data) import Data.Void (Void) import Documentation.Haddock.Types-import BasicTypes (Fixity(..), PromotionFlag(..))+import GHC.Types.Basic (Fixity(..), PromotionFlag(..)) -import Exception (ExceptionMonad(..), ghandle) import GHC-import DynFlags (Language)+import GHC.Driver.Session (Language) import qualified GHC.LanguageExtensions as LangExt-import OccName-import Outputable hiding ((<>))+import GHC.Types.Name.Occurrence+import GHC.Utils.Outputable  ----------------------------------------------------------------------------- -- * Convenient synonyms@@ -57,7 +63,7 @@ type ArgMap a      = Map Name (Map Int (MDoc a)) type SubMap        = Map Name [Name] type DeclMap       = Map Name [LHsDecl GhcRn]-type InstMap       = Map SrcSpan Name+type InstMap       = Map RealSrcSpan Name type FixMap        = Map Name Fixity type DocPaths      = (FilePath, Maybe FilePath) -- paths to HTML and sources @@ -307,6 +313,8 @@  type instance IdP DocNameI = DocName +instance CollectPass DocNameI where+  collectXXPat _ ext = noExtCon ext  instance NamedThing DocName where   getName (Documented name _) = name@@ -409,13 +417,12 @@     , pfdKindSig = fdResultSig     }   where-    mkType (KindedTyVar _ (L loc name) lkind) =+    mkType :: HsTyVarBndr flag (GhcPass p) -> HsType (GhcPass p)+    mkType (KindedTyVar _ _ (L loc name) lkind) =         HsKindSig noExtField tvar lkind       where         tvar = L loc (HsTyVar noExtField NotPromoted (L loc name))-    mkType (UserTyVar _ name) = HsTyVar noExtField NotPromoted name-    mkType (XTyVarBndr nec) = noExtCon nec-mkPseudoFamilyDecl (XFamilyDecl nec) = noExtCon nec+    mkType (UserTyVar _ _ name) = HsTyVar noExtField NotPromoted name   -- | An instance head that may have documentation and a source location.@@ -627,26 +634,7 @@   type ErrMsg = String-newtype ErrMsgM a = Writer { runWriter :: (a, [ErrMsg]) }---instance Functor ErrMsgM where-        fmap f (Writer (a, msgs)) = Writer (f a, msgs)--instance Applicative ErrMsgM where-    pure a = Writer (a, [])-    (<*>)  = ap--instance Monad ErrMsgM where-        return   = pure-        m >>= k  = Writer $ let-                (a, w)  = runWriter m-                (b, w') = runWriter (k a)-                in (b, w ++ w')---tell :: [ErrMsg] -> ErrMsgM ()-tell w = Writer ((), w)+type ErrMsgM = Writer [ErrMsg]   -- Exceptions@@ -667,54 +655,44 @@ instance Exception HaddockException throwE str = throw (HaddockException str) -withExceptionContext :: ExceptionMonad m => String -> m a -> m a+withExceptionContext :: MonadCatch m => String -> m a -> m a withExceptionContext ctxt =-  ghandle (\ex ->+  handle (\ex ->       case ex of-        HaddockException _ -> throw $ WithContext [ctxt] (toException ex)-        WithContext ctxts se -> throw $ WithContext (ctxt:ctxts) se+        HaddockException _ -> throwM $ WithContext [ctxt] (toException ex)+        WithContext ctxts se -> throwM $ WithContext (ctxt:ctxts) se           ) .-  ghandle (throw . WithContext [ctxt])+  handle (throwM . WithContext [ctxt])  -- In "Haddock.Interface.Create", we need to gather -- @Haddock.Types.ErrMsg@s a lot, like @ErrMsgM@ does, -- but we can't just use @GhcT ErrMsgM@ because GhcT requires the -- transformed monad to be MonadIO.-newtype ErrMsgGhc a = WriterGhc { runWriterGhc :: Ghc (a, [ErrMsg]) }---instance MonadIO ErrMsgGhc where---  liftIO = WriterGhc . fmap (\a->(a,[])) liftIO---er, implementing GhcMonad involves annoying ExceptionMonad and---WarnLogMonad classes, so don't bother.-liftGhcToErrMsgGhc :: Ghc a -> ErrMsgGhc a-liftGhcToErrMsgGhc = WriterGhc . fmap (\a->(a,[]))-liftErrMsg :: ErrMsgM a -> ErrMsgGhc a-liftErrMsg = WriterGhc . return . runWriter---  for now, use (liftErrMsg . tell) for this---tell :: [ErrMsg] -> ErrMsgGhc ()---tell msgs = WriterGhc $ return ( (), msgs )+newtype ErrMsgGhc a = ErrMsgGhc { unErrMsgGhc :: WriterT [ErrMsg] Ghc a }  -instance Functor ErrMsgGhc where-  fmap f (WriterGhc x) = WriterGhc (fmap (first f) x)+deriving newtype instance Functor ErrMsgGhc+deriving newtype instance Applicative ErrMsgGhc+deriving newtype instance Monad ErrMsgGhc+deriving newtype instance (MonadWriter [ErrMsg]) ErrMsgGhc+deriving newtype instance MonadIO ErrMsgGhc -instance Applicative ErrMsgGhc where-    pure a = WriterGhc (return (a, []))-    (<*>) = ap -instance Monad ErrMsgGhc where-  return = pure-  m >>= k = WriterGhc $ runWriterGhc m >>= \ (a, msgs1) ->-               fmap (second (msgs1 ++)) (runWriterGhc (k a))+runWriterGhc :: ErrMsgGhc a -> Ghc (a, [ErrMsg])+runWriterGhc = runWriterT . unErrMsgGhc -instance MonadIO ErrMsgGhc where-  liftIO m = WriterGhc (fmap (\x -> (x, [])) (liftIO m))+liftGhcToErrMsgGhc :: Ghc a -> ErrMsgGhc a+liftGhcToErrMsgGhc = ErrMsgGhc . lift -instance ExceptionMonad ErrMsgGhc where-  gcatch act hand = WriterGhc $-    runWriterGhc act `gcatch` (runWriterGhc . hand)-  gmask act = WriterGhc $ gmask $ \mask' ->-    runWriterGhc $ act (WriterGhc . mask'  . runWriterGhc)+liftErrMsg :: ErrMsgM a -> ErrMsgGhc a+liftErrMsg = writer . runWriter +instance MonadThrow ErrMsgGhc where+  throwM e = ErrMsgGhc (throwM e)++instance MonadCatch ErrMsgGhc where+  catch (ErrMsgGhc m) f = ErrMsgGhc (catch m (unErrMsgGhc . f))+ ----------------------------------------------------------------------------- -- * Pass sensitive types -----------------------------------------------------------------------------@@ -744,6 +722,10 @@ type instance XTyLit           DocNameI = NoExtField type instance XWildCardTy      DocNameI = NoExtField type instance XXType           DocNameI = NewHsTypeX++type instance XHsForAllVis        DocNameI = NoExtField+type instance XHsForAllInvis      DocNameI = NoExtField+type instance XXHsForAllTelescope DocNameI = NoExtCon  type instance XUserTyVar    DocNameI = NoExtField type instance XKindedTyVar  DocNameI = NoExtField
haddock-api/src/Haddock/Utils.hs view
@@ -50,13 +50,12 @@  import Documentation.Haddock.Doc (emptyMetaDoc) import Haddock.Types-import Haddock.GhcUtils -import Exception (ExceptionMonad) import GHC-import Name+import GHC.Types.Name  import Control.Monad.IO.Class ( MonadIO(..) )+import Control.Monad.Catch ( MonadMask, bracket_ ) import Data.Char ( isAlpha, isAlphaNum, isAscii, ord, chr ) import Numeric ( showIntAtBase ) import Data.Map ( Map )@@ -74,7 +73,6 @@ import qualified System.Posix.Internals #endif - -------------------------------------------------------------------------------- -- * Logging --------------------------------------------------------------------------------@@ -278,9 +276,9 @@     hSetEncoding h utf8     hPutStr h contents -withTempDir :: (ExceptionMonad m) => FilePath -> m a -> m a-withTempDir dir = gbracket_ (liftIO $ createDirectory dir)-                            (liftIO $ removeDirectoryRecursive dir)+withTempDir :: (MonadIO m, MonadMask m) => FilePath -> m a -> m a+withTempDir dir = bracket_ (liftIO $ createDirectory dir)+                           (liftIO $ removeDirectoryRecursive dir)  ----------------------------------------------------------------------------- -- * HTML cross references
haddock-library/src/Documentation/Haddock/Parser.hs view
@@ -246,6 +246,7 @@ moduleName = DocModule . flip ModLink Nothing <$> ("\"" *> moduleNameString <* "\"")  -- | A module name, optionally with an anchor+-- moduleNameString :: Parser String moduleNameString = modid `maybeFollowedBy` anchor_   where
haddock.cabal view
@@ -1,6 +1,6 @@ cabal-version:        2.4 name:                 haddock-version:              2.24.2+version:              2.25.0 synopsis:             A documentation-generation tool for Haskell libraries description:   This is Haddock, a tool for automatically generating documentation@@ -23,8 +23,6 @@   without any documentation annotations, Haddock can generate useful documentation   from your source code.   .-  Documentation for the haddock binary is available at [readthedocs](https://haskell-haddock.readthedocs.io/en/latest/).-  .   <<https://cdn.rawgit.com/haskell/haddock/ghc-8.10/doc/cheatsheet/haddocks.svg>> license:              BSD-3-Clause license-file:         LICENSE@@ -35,7 +33,7 @@ copyright:            (c) Simon Marlow, David Waern category:             Documentation build-type:           Simple-tested-with:          GHC==8.10.*+tested-with:          GHC==9.0.*  extra-source-files:   CHANGES.md@@ -68,7 +66,7 @@    -- haddock typically only supports a single GHC major version   build-depends:-    base ^>= 4.14.0.0+    base ^>= 4.13.0.0 || ^>= 4.14.0.0 || ^>= 4.15.0.0 || ^>= 4.16.0.0    if flag(in-ghc-tree)     hs-source-dirs: haddock-api/src,  haddock-library/src@@ -78,15 +76,17 @@       directory,       containers,       deepseq,+      exceptions,       array,       xhtml >= 3000.2 && < 3000.3,       ghc-boot,       ghc-boot-th,-      ghc == 8.10.*,+      ghc == 9.0.*,       bytestring,       parsec,       text,-      transformers+      transformers,+      mtl      other-modules:       CompatPrelude@@ -146,7 +146,7 @@   else     -- in order for haddock's advertised version number to have proper meaning,     -- we pin down to a single haddock-api version.-    build-depends:  haddock-api == 2.24.2+    build-depends:  haddock-api == 2.25.0  test-suite html-test   type:             exitcode-stdio-1.0
+ hoogle-test/ref/Bug873/test.txt view
@@ -0,0 +1,27 @@+-- Hoogle documentation, generated by Haddock+-- See Hoogle, http://www.haskell.org/hoogle/++@package test+@version 0.0.0++module Bug873++-- | Application operator. This operator is redundant, since ordinary+--   application <tt>(f x)</tt> means the same as <tt>(f <a>$</a> x)</tt>.+--   However, <a>$</a> has low, right-associative binding precedence, so it+--   sometimes allows parentheses to be omitted; for example:+--   +--   <pre>+--   f $ g $ h x  =  f (g (h x))+--   </pre>+--   +--   It is also useful in higher-order situations, such as <tt><a>map</a>+--   (<a>$</a> 0) xs</tt>, or <tt><a>zipWith</a> (<a>$</a>) fs xs</tt>.+--   +--   Note that <tt>(<a>$</a>)</tt> is levity-polymorphic in its result+--   type, so that <tt>foo <a>$</a> True</tt> where <tt>foo :: Bool -&gt;+--   Int#</tt> is well-typed.+($) :: forall (r :: RuntimeRep) a (b :: TYPE r). (a -> b) -> a -> b+infixr 0 $+($$) :: (a -> b) -> a -> b+infixr 0 $$
hoogle-test/src/Bug722/Bug722.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TypeOperators, TypeFamilies #-} module Bug722 where
hoogle-test/src/Bug806/Bug806.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE KindSignatures #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE UndecidableInstances #-}
hoogle-test/src/Bug825/Bug825.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE TypeOperators #-} module Bug825 where
+ hoogle-test/src/Bug873/Bug873.hs view
@@ -0,0 +1,6 @@+{-# LANGUAGE Haskell2010 #-}+module Bug873 (($), ($$)) where+infixr 0 $$++($$) :: (a -> b) -> a -> b+f $$ x = f x
hoogle-test/src/Bug946/Bug946.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE PatternSynonyms #-} module Bug946 (   AnInt(AnInt, Zero),
hoogle-test/src/Bug992/Bug992.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE KindSignatures #-}  module Bug992 where
hoogle-test/src/assoc-types/AssocTypes.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE AllowAmbiguousTypes #-}
hoogle-test/src/classes/Classes.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Classes where
hoogle-test/src/fixity/Fixity.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Fixity where
hoogle-test/src/modules/Bar.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bar where
hoogle-test/src/modules/Foo.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Foo where
hoogle-test/src/type-sigs/ReaderT.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module ReaderT where  newtype ReaderT r m a = ReaderT { runReaderT :: r -> m a }
hoogle-test/src/type-sigs/ReaderTReexport.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module ReaderTReexport (ReaderT(..), runReaderT) where  import ReaderT
html-test/ref/A.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>A</p
html-test/ref/Bold.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bold</p
html-test/ref/Bug1.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug1</p
html-test/ref/Bug1004.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug1004</p@@ -186,135 +192,7 @@ 		><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Monad:2"-		      ></span-		      > (<a href="#" title="Control.Monad"-		      >Monad</a-		      > f, <a href="#" title="Control.Monad"-		      >Monad</a-		      > g) =&gt; <a href="#" title="Control.Monad"-		      >Monad</a-		      > (<a href="#" title="Bug1004"-		      >Product</a-		      > f g)</span-		    ></td-		  ><td class="doc"-		  ><p-		    ><em-		      >Since: base-4.9.0.0</em-		      ></p-		    ></td-		  ></tr-		><tr-		><td colspan="2"-		  ><details id="i:id:Product:Monad:2"-		    ><summary class="hide-when-js-enabled"-		      >Instance details</summary-		      ><p-		      >Defined in <a href="#"-			>Data.Functor.Product</a-			></p-		      > <div class="subs methods"-		      ><p class="caption"-			>Methods</p-			><p class="src"-			><a href="#"-			  >(&gt;&gt;=)</a-			  > :: <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; (a -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g b) -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g b <a href="#" class="selflink"-			  >#</a-			  ></p-			><p class="src"-			><a href="#"-			  >(&gt;&gt;)</a-			  > :: <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g b -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g b <a href="#" class="selflink"-			  >#</a-			  ></p-			><p class="src"-			><a href="#"-			  >return</a-			  > :: a -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g a <a href="#" class="selflink"-			  >#</a-			  ></p-			></div-		      ></details-		    ></td-		  ></tr-		><tr-		><td class="src clearfix"-		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Functor:3"-		      ></span-		      > (<a href="#" title="Data.Functor"-		      >Functor</a-		      > f, <a href="#" title="Data.Functor"-		      >Functor</a-		      > g) =&gt; <a href="#" title="Data.Functor"-		      >Functor</a-		      > (<a href="#" title="Bug1004"-		      >Product</a-		      > f g)</span-		    ></td-		  ><td class="doc"-		  ><p-		    ><em-		      >Since: base-4.9.0.0</em-		      ></p-		    ></td-		  ></tr-		><tr-		><td colspan="2"-		  ><details id="i:id:Product:Functor:3"-		    ><summary class="hide-when-js-enabled"-		      >Instance details</summary-		      ><p-		      >Defined in <a href="#"-			>Data.Functor.Product</a-			></p-		      > <div class="subs methods"-		      ><p class="caption"-			>Methods</p-			><p class="src"-			><a href="#"-			  >fmap</a-			  > :: (a -&gt; b) -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g b <a href="#" class="selflink"-			  >#</a-			  ></p-			><p class="src"-			><a href="#"-			  >(&lt;$)</a-			  > :: a -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g b -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g a <a href="#" class="selflink"-			  >#</a-			  ></p-			></div-		      ></details-		    ></td-		  ></tr-		><tr-		><td class="src clearfix"-		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:MonadFix:4"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:MonadFix:2" 		      ></span 		      > (<a href="#" title="Control.Monad.Fix" 		      >MonadFix</a@@ -335,7 +213,7 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:Product:MonadFix:4"+		  ><details id="i:id:Product:MonadFix:2" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p@@ -362,14 +240,14 @@ 		><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Applicative:5"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:MonadZip:3" 		      ></span-		      > (<a href="#" title="Control.Applicative"-		      >Applicative</a-		      > f, <a href="#" title="Control.Applicative"-		      >Applicative</a-		      > g) =&gt; <a href="#" title="Control.Applicative"-		      >Applicative</a+		      > (<a href="#" title="Control.Monad.Zip"+		      >MonadZip</a+		      > f, <a href="#" title="Control.Monad.Zip"+		      >MonadZip</a+		      > g) =&gt; <a href="#" title="Control.Monad.Zip"+		      >MonadZip</a 		      > (<a href="#" title="Bug1004" 		      >Product</a 		      > f g)</span@@ -383,7 +261,7 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:Product:Applicative:5"+		  ><details id="i:id:Product:MonadZip:3" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p@@ -395,58 +273,38 @@ 			>Methods</p 			><p class="src" 			><a href="#"-			  >pure</a-			  > :: a -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g a <a href="#" class="selflink"-			  >#</a-			  ></p-			><p class="src"-			><a href="#"-			  >(&lt;*&gt;)</a+			  >mzip</a 			  > :: <a href="#" title="Bug1004" 			  >Product</a-			  > f g (a -&gt; b) -&gt; <a href="#" title="Bug1004"-			  >Product</a 			  > f g a -&gt; <a href="#" title="Bug1004" 			  >Product</a-			  > f g b <a href="#" class="selflink"-			  >#</a-			  ></p-			><p class="src"-			><a href="#"-			  >liftA2</a-			  > :: (a -&gt; b -&gt; c) -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; <a href="#" title="Bug1004"-			  >Product</a 			  > f g b -&gt; <a href="#" title="Bug1004" 			  >Product</a-			  > f g c <a href="#" class="selflink"+			  > f g (a, b) <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src" 			><a href="#"-			  >(*&gt;)</a-			  > :: <a href="#" title="Bug1004"+			  >mzipWith</a+			  > :: (a -&gt; b -&gt; c) -&gt; <a href="#" title="Bug1004" 			  >Product</a 			  > f g a -&gt; <a href="#" title="Bug1004" 			  >Product</a 			  > f g b -&gt; <a href="#" title="Bug1004" 			  >Product</a-			  > f g b <a href="#" class="selflink"+			  > f g c <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src" 			><a href="#"-			  >(&lt;*)</a+			  >munzip</a 			  > :: <a href="#" title="Bug1004" 			  >Product</a-			  > f g a -&gt; <a href="#" title="Bug1004"+			  > f g (a, b) -&gt; (<a href="#" title="Bug1004" 			  >Product</a-			  > f g b -&gt; <a href="#" title="Bug1004"+			  > f g a, <a href="#" title="Bug1004" 			  >Product</a-			  > f g a <a href="#" class="selflink"+			  > f g b) <a href="#" class="selflink" 			  >#</a 			  ></p 			></div@@ -456,7 +314,7 @@ 		><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Foldable:6"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Foldable:4" 		      ></span 		      > (<a href="#" title="Data.Foldable" 		      >Foldable</a@@ -477,7 +335,7 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:Product:Foldable:6"+		  ><details id="i:id:Product:Foldable:4" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p@@ -652,93 +510,7 @@ 		><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Traversable:7"-		      ></span-		      > (<a href="#" title="Data.Traversable"-		      >Traversable</a-		      > f, <a href="#" title="Data.Traversable"-		      >Traversable</a-		      > g) =&gt; <a href="#" title="Data.Traversable"-		      >Traversable</a-		      > (<a href="#" title="Bug1004"-		      >Product</a-		      > f g)</span-		    ></td-		  ><td class="doc"-		  ><p-		    ><em-		      >Since: base-4.9.0.0</em-		      ></p-		    ></td-		  ></tr-		><tr-		><td colspan="2"-		  ><details id="i:id:Product:Traversable:7"-		    ><summary class="hide-when-js-enabled"-		      >Instance details</summary-		      ><p-		      >Defined in <a href="#"-			>Data.Functor.Product</a-			></p-		      > <div class="subs methods"-		      ><p class="caption"-			>Methods</p-			><p class="src"-			><a href="#"-			  >traverse</a-			  > :: <a href="#" title="Control.Applicative"-			  >Applicative</a-			  > f0 =&gt; (a -&gt; f0 b) -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; f0 (<a href="#" title="Bug1004"-			  >Product</a-			  > f g b) <a href="#" class="selflink"-			  >#</a-			  ></p-			><p class="src"-			><a href="#"-			  >sequenceA</a-			  > :: <a href="#" title="Control.Applicative"-			  >Applicative</a-			  > f0 =&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g (f0 a) -&gt; f0 (<a href="#" title="Bug1004"-			  >Product</a-			  > f g a) <a href="#" class="selflink"-			  >#</a-			  ></p-			><p class="src"-			><a href="#"-			  >mapM</a-			  > :: <a href="#" title="Control.Monad"-			  >Monad</a-			  > m =&gt; (a -&gt; m b) -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; m (<a href="#" title="Bug1004"-			  >Product</a-			  > f g b) <a href="#" class="selflink"-			  >#</a-			  ></p-			><p class="src"-			><a href="#"-			  >sequence</a-			  > :: <a href="#" title="Control.Monad"-			  >Monad</a-			  > m =&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g (m a) -&gt; m (<a href="#" title="Bug1004"-			  >Product</a-			  > f g a) <a href="#" class="selflink"-			  >#</a-			  ></p-			></div-		      ></details-		    ></td-		  ></tr-		><tr-		><td class="src clearfix"-		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Eq1:8"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Eq1:5" 		      ></span 		      > (<a href="#" title="Data.Functor.Classes" 		      >Eq1</a@@ -759,7 +531,7 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:Product:Eq1:8"+		  ><details id="i:id:Product:Eq1:5" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p@@ -790,7 +562,7 @@ 		><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Ord1:9"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Ord1:6" 		      ></span 		      > (<a href="#" title="Data.Functor.Classes" 		      >Ord1</a@@ -811,7 +583,7 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:Product:Ord1:9"+		  ><details id="i:id:Product:Ord1:6" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p@@ -842,7 +614,7 @@ 		><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Read1:10"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Read1:7" 		      ></span 		      > (<a href="#" title="Data.Functor.Classes" 		      >Read1</a@@ -863,7 +635,7 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:Product:Read1:10"+		  ><details id="i:id:Product:Read1:7" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p@@ -942,7 +714,7 @@ 		><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Show1:11"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Show1:8" 		      ></span 		      > (<a href="#" title="Data.Functor.Classes" 		      >Show1</a@@ -963,7 +735,7 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:Product:Show1:11"+		  ><details id="i:id:Product:Show1:8" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p@@ -1014,14 +786,14 @@ 		><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:MonadZip:12"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Traversable:9" 		      ></span-		      > (<a href="#" title="Control.Monad.Zip"-		      >MonadZip</a-		      > f, <a href="#" title="Control.Monad.Zip"-		      >MonadZip</a-		      > g) =&gt; <a href="#" title="Control.Monad.Zip"-		      >MonadZip</a+		      > (<a href="#" title="Data.Traversable"+		      >Traversable</a+		      > f, <a href="#" title="Data.Traversable"+		      >Traversable</a+		      > g) =&gt; <a href="#" title="Data.Traversable"+		      >Traversable</a 		      > (<a href="#" title="Bug1004" 		      >Product</a 		      > f g)</span@@ -1035,7 +807,7 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:Product:MonadZip:12"+		  ><details id="i:id:Product:Traversable:9" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p@@ -1047,40 +819,52 @@ 			>Methods</p 			><p class="src" 			><a href="#"-			  >mzip</a-			  > :: <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; <a href="#" title="Bug1004"+			  >traverse</a+			  > :: <a href="#" title="Control.Applicative"+			  >Applicative</a+			  > f0 =&gt; (a -&gt; f0 b) -&gt; <a href="#" title="Bug1004" 			  >Product</a-			  > f g b -&gt; <a href="#" title="Bug1004"+			  > f g a -&gt; f0 (<a href="#" title="Bug1004" 			  >Product</a-			  > f g (a, b) <a href="#" class="selflink"+			  > f g b) <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src" 			><a href="#"-			  >mzipWith</a-			  > :: (a -&gt; b -&gt; c) -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; <a href="#" title="Bug1004"+			  >sequenceA</a+			  > :: <a href="#" title="Control.Applicative"+			  >Applicative</a+			  > f0 =&gt; <a href="#" title="Bug1004" 			  >Product</a-			  > f g b -&gt; <a href="#" title="Bug1004"+			  > f g (f0 a) -&gt; f0 (<a href="#" title="Bug1004" 			  >Product</a-			  > f g c <a href="#" class="selflink"+			  > f g a) <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src" 			><a href="#"-			  >munzip</a-			  > :: <a href="#" title="Bug1004"-			  >Product</a-			  > f g (a, b) -&gt; (<a href="#" title="Bug1004"+			  >mapM</a+			  > :: <a href="#" title="Control.Monad"+			  >Monad</a+			  > m =&gt; (a -&gt; m b) -&gt; <a href="#" title="Bug1004" 			  >Product</a-			  > f g a, <a href="#" title="Bug1004"+			  > f g a -&gt; m (<a href="#" title="Bug1004" 			  >Product</a 			  > f g b) <a href="#" class="selflink" 			  >#</a 			  ></p+			><p class="src"+			><a href="#"+			  >sequence</a+			  > :: <a href="#" title="Control.Monad"+			  >Monad</a+			  > m =&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g (m a) -&gt; m (<a href="#" title="Bug1004"+			  >Product</a+			  > f g a) <a href="#" class="selflink"+			  >#</a+			  ></p 			></div 		      ></details 		    ></td@@ -1088,7 +872,7 @@ 		><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Alternative:13"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Alternative:10" 		      ></span 		      > (<a href="#" title="Control.Applicative" 		      >Alternative</a@@ -1109,7 +893,7 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:Product:Alternative:13"+		  ><details id="i:id:Product:Alternative:10" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p@@ -1166,14 +950,14 @@ 		><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:MonadPlus:14"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Applicative:11" 		      ></span-		      > (<a href="#" title="Control.Monad"-		      >MonadPlus</a-		      > f, <a href="#" title="Control.Monad"-		      >MonadPlus</a-		      > g) =&gt; <a href="#" title="Control.Monad"-		      >MonadPlus</a+		      > (<a href="#" title="Control.Applicative"+		      >Applicative</a+		      > f, <a href="#" title="Control.Applicative"+		      >Applicative</a+		      > g) =&gt; <a href="#" title="Control.Applicative"+		      >Applicative</a 		      > (<a href="#" title="Bug1004" 		      >Product</a 		      > f g)</span@@ -1187,7 +971,7 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:Product:MonadPlus:14"+		  ><details id="i:id:Product:Applicative:11" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p@@ -1199,21 +983,57 @@ 			>Methods</p 			><p class="src" 			><a href="#"-			  >mzero</a-			  > :: <a href="#" title="Bug1004"+			  >pure</a+			  > :: a -&gt; <a href="#" title="Bug1004" 			  >Product</a 			  > f g a <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src" 			><a href="#"-			  >mplus</a+			  >(&lt;*&gt;)</a 			  > :: <a href="#" title="Bug1004" 			  >Product</a+			  > f g (a -&gt; b) -&gt; <a href="#" title="Bug1004"+			  >Product</a 			  > f g a -&gt; <a href="#" title="Bug1004" 			  >Product</a+			  > f g b <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >liftA2</a+			  > :: (a -&gt; b -&gt; c) -&gt; <a href="#" title="Bug1004"+			  >Product</a 			  > f g a -&gt; <a href="#" title="Bug1004" 			  >Product</a+			  > f g b -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g c <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >(*&gt;)</a+			  > :: <a href="#" title="Bug1004"+			  >Product</a+			  > f g a -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g b -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g b <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >(&lt;*)</a+			  > :: <a href="#" title="Bug1004"+			  >Product</a+			  > f g a -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g b -&gt; <a href="#" title="Bug1004"+			  >Product</a 			  > f g a <a href="#" class="selflink" 			  >#</a 			  ></p@@ -1224,19 +1044,17 @@ 		><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Eq:15"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Functor:12" 		      ></span-		      > (<a href="#" title="Data.Functor.Classes"-		      >Eq1</a-		      > f, <a href="#" title="Data.Functor.Classes"-		      >Eq1</a-		      > g, <a href="#" title="Data.Eq"-		      >Eq</a-		      > a) =&gt; <a href="#" title="Data.Eq"-		      >Eq</a+		      > (<a href="#" title="Data.Functor"+		      >Functor</a+		      > f, <a href="#" title="Data.Functor"+		      >Functor</a+		      > g) =&gt; <a href="#" title="Data.Functor"+		      >Functor</a 		      > (<a href="#" title="Bug1004" 		      >Product</a-		      > f g a)</span+		      > f g)</span 		    ></td 		  ><td class="doc" 		  ><p@@ -1247,7 +1065,7 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:Product:Eq:15"+		  ><details id="i:id:Product:Functor:12" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p@@ -1259,26 +1077,150 @@ 			>Methods</p 			><p class="src" 			><a href="#"-			  >(==)</a+			  >fmap</a+			  > :: (a -&gt; b) -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g a -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g b <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >(&lt;$)</a+			  > :: a -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g b -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g a <a href="#" class="selflink"+			  >#</a+			  ></p+			></div+		      ></details+		    ></td+		  ></tr+		><tr+		><td class="src clearfix"+		  ><span class="inst-left"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Monad:13"+		      ></span+		      > (<a href="#" title="Control.Monad"+		      >Monad</a+		      > f, <a href="#" title="Control.Monad"+		      >Monad</a+		      > g) =&gt; <a href="#" title="Control.Monad"+		      >Monad</a+		      > (<a href="#" title="Bug1004"+		      >Product</a+		      > f g)</span+		    ></td+		  ><td class="doc"+		  ><p+		    ><em+		      >Since: base-4.9.0.0</em+		      ></p+		    ></td+		  ></tr+		><tr+		><td colspan="2"+		  ><details id="i:id:Product:Monad:13"+		    ><summary class="hide-when-js-enabled"+		      >Instance details</summary+		      ><p+		      >Defined in <a href="#"+			>Data.Functor.Product</a+			></p+		      > <div class="subs methods"+		      ><p class="caption"+			>Methods</p+			><p class="src"+			><a href="#"+			  >(&gt;&gt;=)</a 			  > :: <a href="#" title="Bug1004" 			  >Product</a+			  > f g a -&gt; (a -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g b) -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g b <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >(&gt;&gt;)</a+			  > :: <a href="#" title="Bug1004"+			  >Product</a 			  > f g a -&gt; <a href="#" title="Bug1004" 			  >Product</a-			  > f g a -&gt; <a href="#" title="Data.Bool"-			  >Bool</a-			  > <a href="#" class="selflink"+			  > f g b -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g b <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src" 			><a href="#"-			  >(/=)</a+			  >return</a+			  > :: a -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g a <a href="#" class="selflink"+			  >#</a+			  ></p+			></div+		      ></details+		    ></td+		  ></tr+		><tr+		><td class="src clearfix"+		  ><span class="inst-left"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:MonadPlus:14"+		      ></span+		      > (<a href="#" title="Control.Monad"+		      >MonadPlus</a+		      > f, <a href="#" title="Control.Monad"+		      >MonadPlus</a+		      > g) =&gt; <a href="#" title="Control.Monad"+		      >MonadPlus</a+		      > (<a href="#" title="Bug1004"+		      >Product</a+		      > f g)</span+		    ></td+		  ><td class="doc"+		  ><p+		    ><em+		      >Since: base-4.9.0.0</em+		      ></p+		    ></td+		  ></tr+		><tr+		><td colspan="2"+		  ><details id="i:id:Product:MonadPlus:14"+		    ><summary class="hide-when-js-enabled"+		      >Instance details</summary+		      ><p+		      >Defined in <a href="#"+			>Data.Functor.Product</a+			></p+		      > <div class="subs methods"+		      ><p class="caption"+			>Methods</p+			><p class="src"+			><a href="#"+			  >mzero</a 			  > :: <a href="#" title="Bug1004" 			  >Product</a+			  > f g a <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >mplus</a+			  > :: <a href="#" title="Bug1004"+			  >Product</a 			  > f g a -&gt; <a href="#" title="Bug1004" 			  >Product</a-			  > f g a -&gt; <a href="#" title="Data.Bool"-			  >Bool</a-			  > <a href="#" class="selflink"+			  > f g a -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g a <a href="#" class="selflink" 			  >#</a 			  ></p 			></div@@ -1288,7 +1230,7 @@ 		><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Data:16"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Data:15" 		      ></span 		      > (<a href="#" title="Type.Reflection" 		      >Typeable</a@@ -1317,7 +1259,7 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:Product:Data:16"+		  ><details id="i:id:Product:Data:15" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p@@ -1534,16 +1476,10 @@ 		><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Ord:17"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Generic:16" 		      ></span-		      > (<a href="#" title="Data.Functor.Classes"-		      >Ord1</a-		      > f, <a href="#" title="Data.Functor.Classes"-		      >Ord1</a-		      > g, <a href="#" title="Data.Ord"-		      >Ord</a-		      > a) =&gt; <a href="#" title="Data.Ord"-		      >Ord</a+		      > <a href="#" title="GHC.Generics"+		      >Generic</a 		      > (<a href="#" title="Bug1004" 		      >Product</a 		      > f g a)</span@@ -1557,96 +1493,54 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:Product:Ord:17"+		  ><details id="i:id:Product:Generic:16" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p 		      >Defined in <a href="#" 			>Data.Functor.Product</a 			></p-		      > <div class="subs methods"+		      > <div class="subs associated-types" 		      ><p class="caption"-			>Methods</p-			><p class="src"-			><a href="#"-			  >compare</a-			  > :: <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; <a href="#" title="Data.Ord"-			  >Ordering</a-			  > <a href="#" class="selflink"-			  >#</a-			  ></p-			><p class="src"-			><a href="#"-			  >(&lt;)</a-			  > :: <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; <a href="#" title="Data.Bool"-			  >Bool</a-			  > <a href="#" class="selflink"-			  >#</a-			  ></p-			><p class="src"-			><a href="#"-			  >(&lt;=)</a-			  > :: <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; <a href="#" title="Data.Bool"-			  >Bool</a-			  > <a href="#" class="selflink"-			  >#</a-			  ></p-			><p class="src"-			><a href="#"-			  >(&gt;)</a-			  > :: <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; <a href="#" title="Data.Bool"-			  >Bool</a-			  > <a href="#" class="selflink"-			  >#</a-			  ></p+			>Associated Types</p 			><p class="src"-			><a href="#"-			  >(&gt;=)</a-			  > :: <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; <a href="#" title="Bug1004"+			><span class="keyword"+			  >type</span+			  > <a href="#" title="GHC.Generics"+			  >Rep</a+			  > (<a href="#" title="Bug1004" 			  >Product</a-			  > f g a -&gt; <a href="#" title="Data.Bool"-			  >Bool</a+			  > f g a) :: <a href="#" title="Data.Kind"+			  >Type</a+			  > -&gt; <a href="#" title="Data.Kind"+			  >Type</a 			  > <a href="#" class="selflink" 			  >#</a 			  ></p+			></div+		      > <div class="subs methods"+		      ><p class="caption"+			>Methods</p 			><p class="src" 			><a href="#"-			  >max</a+			  >from</a 			  > :: <a href="#" title="Bug1004" 			  >Product</a-			  > f g a -&gt; <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; <a href="#" title="Bug1004"+			  > f g a -&gt; <a href="#" title="GHC.Generics"+			  >Rep</a+			  > (<a href="#" title="Bug1004" 			  >Product</a-			  > f g a <a href="#" class="selflink"+			  > f g a) x <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src" 			><a href="#"-			  >min</a-			  > :: <a href="#" title="Bug1004"-			  >Product</a-			  > f g a -&gt; <a href="#" title="Bug1004"+			  >to</a+			  > :: <a href="#" title="GHC.Generics"+			  >Rep</a+			  > (<a href="#" title="Bug1004" 			  >Product</a-			  > f g a -&gt; <a href="#" title="Bug1004"+			  > f g a) x -&gt; <a href="#" title="Bug1004" 			  >Product</a 			  > f g a <a href="#" class="selflink" 			  >#</a@@ -1658,7 +1552,7 @@ 		><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Read:18"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Read:17" 		      ></span 		      > (<a href="#" title="Data.Functor.Classes" 		      >Read1</a@@ -1681,7 +1575,7 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:Product:Read:18"+		  ><details id="i:id:Product:Read:17" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p@@ -1740,7 +1634,7 @@ 		><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Show:19"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Show:18" 		      ></span 		      > (<a href="#" title="Data.Functor.Classes" 		      >Show1</a@@ -1763,7 +1657,7 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:Product:Show:19"+		  ><details id="i:id:Product:Show:18" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p@@ -1812,10 +1706,16 @@ 		><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Generic:20"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Eq:19" 		      ></span-		      > <a href="#" title="GHC.Generics"-		      >Generic</a+		      > (<a href="#" title="Data.Functor.Classes"+		      >Eq1</a+		      > f, <a href="#" title="Data.Functor.Classes"+		      >Eq1</a+		      > g, <a href="#" title="Data.Eq"+		      >Eq</a+		      > a) =&gt; <a href="#" title="Data.Eq"+		      >Eq</a 		      > (<a href="#" title="Bug1004" 		      >Product</a 		      > f g a)</span@@ -1829,54 +1729,160 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:Product:Generic:20"+		  ><details id="i:id:Product:Eq:19" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p 		      >Defined in <a href="#" 			>Data.Functor.Product</a 			></p-		      > <div class="subs associated-types"+		      > <div class="subs methods" 		      ><p class="caption"-			>Associated Types</p+			>Methods</p 			><p class="src"-			><span class="keyword"-			  >type</span-			  > <a href="#" title="GHC.Generics"-			  >Rep</a-			  > (<a href="#" title="Bug1004"+			><a href="#"+			  >(==)</a+			  > :: <a href="#" title="Bug1004" 			  >Product</a-			  > f g a) :: <a href="#" title="Data.Kind"-			  >Type</a-			  > -&gt; <a href="#" title="Data.Kind"-			  >Type</a+			  > f g a -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g a -&gt; <a href="#" title="Data.Bool"+			  >Bool</a 			  > <a href="#" class="selflink" 			  >#</a 			  ></p+			><p class="src"+			><a href="#"+			  >(/=)</a+			  > :: <a href="#" title="Bug1004"+			  >Product</a+			  > f g a -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g a -&gt; <a href="#" title="Data.Bool"+			  >Bool</a+			  > <a href="#" class="selflink"+			  >#</a+			  ></p 			></div+		      ></details+		    ></td+		  ></tr+		><tr+		><td class="src clearfix"+		  ><span class="inst-left"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Ord:20"+		      ></span+		      > (<a href="#" title="Data.Functor.Classes"+		      >Ord1</a+		      > f, <a href="#" title="Data.Functor.Classes"+		      >Ord1</a+		      > g, <a href="#" title="Data.Ord"+		      >Ord</a+		      > a) =&gt; <a href="#" title="Data.Ord"+		      >Ord</a+		      > (<a href="#" title="Bug1004"+		      >Product</a+		      > f g a)</span+		    ></td+		  ><td class="doc"+		  ><p+		    ><em+		      >Since: base-4.9.0.0</em+		      ></p+		    ></td+		  ></tr+		><tr+		><td colspan="2"+		  ><details id="i:id:Product:Ord:20"+		    ><summary class="hide-when-js-enabled"+		      >Instance details</summary+		      ><p+		      >Defined in <a href="#"+			>Data.Functor.Product</a+			></p 		      > <div class="subs methods" 		      ><p class="caption" 			>Methods</p 			><p class="src" 			><a href="#"-			  >from</a+			  >compare</a 			  > :: <a href="#" title="Bug1004" 			  >Product</a-			  > f g a -&gt; <a href="#" title="GHC.Generics"-			  >Rep</a-			  > (<a href="#" title="Bug1004"+			  > f g a -&gt; <a href="#" title="Bug1004" 			  >Product</a-			  > f g a) x <a href="#" class="selflink"+			  > f g a -&gt; <a href="#" title="Data.Ord"+			  >Ordering</a+			  > <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src" 			><a href="#"-			  >to</a-			  > :: <a href="#" title="GHC.Generics"-			  >Rep</a-			  > (<a href="#" title="Bug1004"+			  >(&lt;)</a+			  > :: <a href="#" title="Bug1004" 			  >Product</a-			  > f g a) x -&gt; <a href="#" title="Bug1004"+			  > f g a -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g a -&gt; <a href="#" title="Data.Bool"+			  >Bool</a+			  > <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >(&lt;=)</a+			  > :: <a href="#" title="Bug1004"+			  >Product</a+			  > f g a -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g a -&gt; <a href="#" title="Data.Bool"+			  >Bool</a+			  > <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >(&gt;)</a+			  > :: <a href="#" title="Bug1004"+			  >Product</a+			  > f g a -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g a -&gt; <a href="#" title="Data.Bool"+			  >Bool</a+			  > <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >(&gt;=)</a+			  > :: <a href="#" title="Bug1004"+			  >Product</a+			  > f g a -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g a -&gt; <a href="#" title="Data.Bool"+			  >Bool</a+			  > <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >max</a+			  > :: <a href="#" title="Bug1004"+			  >Product</a+			  > f g a -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g a -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g a <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >min</a+			  > :: <a href="#" title="Bug1004"+			  >Product</a+			  > f g a -&gt; <a href="#" title="Bug1004"+			  >Product</a+			  > f g a -&gt; <a href="#" title="Bug1004" 			  >Product</a 			  > f g a <a href="#" class="selflink" 			  >#</a
html-test/ref/Bug1033.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug1033</p@@ -88,10 +94,8 @@ 		    > <a href="#" class="selflink" 		    >#</a 		    ></td-		  ><td class="doc"-		  ><p-		    >This does some generic foos.</p-		    ></td+		  ><td class="doc empty"+		  >&nbsp;</td 		  ></tr 		><tr 		><td colspan="2"@@ -166,8 +170,10 @@ 		    > <a href="#" class="selflink" 		    >#</a 		    ></td-		  ><td class="doc empty"-		  >&nbsp;</td+		  ><td class="doc"+		  ><p+		    >This does some generic foos.</p+		    ></td 		  ></tr 		><tr 		><td colspan="2"
html-test/ref/Bug1035.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug1035</p
html-test/ref/Bug1050.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug1050</p@@ -93,11 +99,11 @@ 	    >mkT</a 	    > :: <span class="keyword" 	    >forall</span-	    > k (f :: <span class="keyword"+	    > {k} {f :: <span class="keyword" 	    >forall</span-	    > k1. k1 -&gt; <a href="#" title="Data.Kind"+	    > k. k -&gt; <a href="#" title="Data.Kind" 	    >Type</a-	    >) (a :: k). f a -&gt; <a href="#" title="Bug1050"+	    >} {a :: k}. f a -&gt; <a href="#" title="Bug1050" 	    >T</a 	    > f a <a href="#" class="selflink" 	    >#</a
html-test/ref/Bug1054.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug1054</p
html-test/ref/Bug1063.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug1063</p
html-test/ref/Bug1067A.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug1067A</p
html-test/ref/Bug1067B.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug1067B</p
html-test/ref/Bug1103.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug1103</p@@ -392,6 +398,8 @@ 		      >Foo3</a 		      > (a :: <a href="#" title="Data.Char" 		      >Char</a+		      > -&gt; <a href="#" title="Data.Char"+		      >Char</a 		      >)</span 		    > <a href="#" class="selflink" 		    >#</a@@ -415,6 +423,8 @@ 			>Foo3</a 			> (a :: <a href="#" title="Data.Char" 			>Char</a+			> -&gt; <a href="#" title="Data.Char"+			>Char</a 			>)</div 		      ></details 		    ></td@@ -430,8 +440,6 @@ 		      >Foo3</a 		      > (a :: <a href="#" title="Data.Char" 		      >Char</a-		      > -&gt; <a href="#" title="Data.Char"-		      >Char</a 		      >)</span 		    > <a href="#" class="selflink" 		    >#</a@@ -454,8 +462,6 @@ 			> <a href="#" title="Bug1103" 			>Foo3</a 			> (a :: <a href="#" title="Data.Char"-			>Char</a-			> -&gt; <a href="#" title="Data.Char" 			>Char</a 			>)</div 		      ></details
+ html-test/ref/Bug1206.html view
@@ -0,0 +1,488 @@+<html xmlns="http://www.w3.org/1999/xhtml"+><head+  ><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"+     /><meta name="viewport" content="width=device-width, initial-scale=1"+     /><title+    >Bug1206</title+    ><link href="#" rel="stylesheet" type="text/css" title="Linuwial"+     /><link rel="stylesheet" type="text/css" href="#"+     /><link rel="stylesheet" type="text/css" href="#"+     /><script src="haddock-bundle.min.js" async="async" type="text/javascript"+    ></script+    ><script type="text/x-mathjax-config"+    >MathJax.Hub.Config({ tex2jax: { processClass: "mathjax", ignoreClass: ".*" } });</script+    ><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js?config=TeX-AMS-MML_HTMLorMML" type="text/javascript"+    ></script+    ></head+  ><body+  ><div id="package-header"+    ><span class="caption empty"+      >&nbsp;</span+      ><ul class="links" id="page-menu"+      ><li+	><a href="#"+	  >Contents</a+	  ></li+	><li+	><a href="#"+	  >Index</a+	  ></li+	></ul+      ></div+    ><div id="content"+    ><div id="module-header"+      ><table class="info"+	><tr+	  ><th+	    >Safe Haskell</th+	    ><td+	    >Safe-Inferred</td+	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr+	  ></table+	><p class="caption"+	>Bug1206</p+	></div+      ><div id="description"+      ><p class="caption"+	>Description</p+	><div class="doc"+	><p+	  >Bug 1206</p+	  ></div+	></div+      ><div id="synopsis"+      ><details id="syn"+	><summary+	  >Synopsis</summary+	  ><ul class="details-toggle" data-details-id="syn"+	  ><li class="src short"+	    ><span class="keyword"+	      >data</span+	      > <a href="#"+	      >T</a+	      > a = <a href="#"+	      >T</a+	      > a</li+	    ></ul+	  ></details+	></div+      ><div id="interface"+      ><h1+	>Documentation</h1+	><div class="top"+	><p class="src"+	  ><span class="keyword"+	    >data</span+	    > <a id="t:T" class="def"+	    >T</a+	    > a <a href="#" class="selflink"+	    >#</a+	    ></p+	  ><div class="doc"+	  ><p+	    >A simple identity type</p+	    ></div+	  ><div class="subs constructors"+	  ><p class="caption"+	    >Constructors</p+	    ><table+	    ><tr+	      ><td class="src"+		><a id="v:T" class="def"+		  >T</a+		  > a</td+		><td class="doc empty"+		>&nbsp;</td+		></tr+	      ></table+	    ></div+	  ><div class="subs instances"+	  ><h4 class="instances details-toggle-control details-toggle" data-details-id="i:T"+	    >Instances</h4+	    ><details id="i:T" open="open"+	    ><summary class="hide-when-js-enabled"+	      >Instances details</summary+	      ><table+	      ><tr+		><td class="src clearfix"+		  ><span class="inst-left"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:T:Monoid:1"+		      ></span+		      > <a href="#" title="Data.Monoid"+		      >Monoid</a+		      > a =&gt; <a href="#" title="Data.Monoid"+		      >Monoid</a+		      > (<a href="#" title="Bug1206"+		      >T</a+		      > a)</span+		    > <a href="#" class="selflink"+		    >#</a+		    ></td+		  ><td class="doc"+		  ><p+		    ><code+		      ><a href="#" title="Data.Monoid"+			>mempty</a+			></code+		      > = 'T mempty'</p+		    ><p+		    >Docs for the <code+		      >Monoid</code+		      > instance of <code+		      >Monoid a =&gt; T a</code+		      ></p+		    ><h4 class="subheading details-toggle-control details-toggle" data-details-id="ch:Monoid_1:0"+		    >Examples</h4+		    ><details id="ch:Monoid_1:0"+		    ><summary class="hide-when-js-enabled"+		      >Expand</summary+		      ><pre class="screen"+		      ><code class="prompt"+			>&gt;&gt;&gt; </code+			><strong class="userinput"+			><code+			  >mempty :: T String+</code+			  ></strong+			>T &quot;&quot;+</pre+		      ></details+		    ></td+		  ></tr+		><tr+		><td colspan="2"+		  ><details id="i:id:T:Monoid:1"+		    ><summary class="hide-when-js-enabled"+		      >Instance details</summary+		      ><p+		      >Defined in <a href="#"+			>Bug1206</a+			></p+		      > <div class="subs methods"+		      ><p class="caption"+			>Methods</p+			><p class="src"+			><a href="#"+			  >mempty</a+			  > :: <a href="#" title="Bug1206"+			  >T</a+			  > a <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >mappend</a+			  > :: <a href="#" title="Bug1206"+			  >T</a+			  > a -&gt; <a href="#" title="Bug1206"+			  >T</a+			  > a -&gt; <a href="#" title="Bug1206"+			  >T</a+			  > a <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >mconcat</a+			  > :: [<a href="#" title="Bug1206"+			  >T</a+			  > a] -&gt; <a href="#" title="Bug1206"+			  >T</a+			  > a <a href="#" class="selflink"+			  >#</a+			  ></p+			></div+		      ></details+		    ></td+		  ></tr+		><tr+		><td class="src clearfix"+		  ><span class="inst-left"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:T:Semigroup:2"+		      ></span+		      > <a href="#" title="Prelude"+		      >Semigroup</a+		      > (<a href="#" title="Bug1206"+		      >T</a+		      > <a href="#" title="Data.Int"+		      >Int</a+		      >)</span+		    > <a href="#" class="selflink"+		    >#</a+		    ></td+		  ><td class="doc"+		  ><p+		    ><code+		      ><a href="#" title="Data.Monoid"+			>&lt;&gt;</a+			></code+		      > = 'T (a + b)'</p+		    ><p+		    >Docs for the <code+		      >Semigroup</code+		      > instance of <code+		      >(T Int)</code+		      ></p+		    ><h4 class="subheading details-toggle-control details-toggle" data-details-id="ch:Semigroup_2:0"+		    >Examples</h4+		    ><details id="ch:Semigroup_2:0"+		    ><summary class="hide-when-js-enabled"+		      >Expand</summary+		      ><pre class="screen"+		      ><code class="prompt"+			>&gt;&gt;&gt; </code+			><strong class="userinput"+			><code+			  >T 2 &lt;&gt; T (3 :: Int)+</code+			  ></strong+			>T 5+</pre+		      ></details+		    ></td+		  ></tr+		><tr+		><td colspan="2"+		  ><details id="i:id:T:Semigroup:2"+		    ><summary class="hide-when-js-enabled"+		      >Instance details</summary+		      ><p+		      >Defined in <a href="#"+			>Bug1206</a+			></p+		      > <div class="subs methods"+		      ><p class="caption"+			>Methods</p+			><p class="src"+			><a href="#"+			  >(&lt;&gt;)</a+			  > :: <a href="#" title="Bug1206"+			  >T</a+			  > <a href="#" title="Data.Int"+			  >Int</a+			  > -&gt; <a href="#" title="Bug1206"+			  >T</a+			  > <a href="#" title="Data.Int"+			  >Int</a+			  > -&gt; <a href="#" title="Bug1206"+			  >T</a+			  > <a href="#" title="Data.Int"+			  >Int</a+			  > <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >sconcat</a+			  > :: <a href="#" title="Data.List.NonEmpty"+			  >NonEmpty</a+			  > (<a href="#" title="Bug1206"+			  >T</a+			  > <a href="#" title="Data.Int"+			  >Int</a+			  >) -&gt; <a href="#" title="Bug1206"+			  >T</a+			  > <a href="#" title="Data.Int"+			  >Int</a+			  > <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >stimes</a+			  > :: <a href="#" title="Prelude"+			  >Integral</a+			  > b =&gt; b -&gt; <a href="#" title="Bug1206"+			  >T</a+			  > <a href="#" title="Data.Int"+			  >Int</a+			  > -&gt; <a href="#" title="Bug1206"+			  >T</a+			  > <a href="#" title="Data.Int"+			  >Int</a+			  > <a href="#" class="selflink"+			  >#</a+			  ></p+			></div+		      ></details+		    ></td+		  ></tr+		><tr+		><td class="src clearfix"+		  ><span class="inst-left"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:T:Semigroup:3"+		      ></span+		      > <a href="#" title="Prelude"+		      >Semigroup</a+		      > a =&gt; <a href="#" title="Prelude"+		      >Semigroup</a+		      > (<a href="#" title="Bug1206"+		      >T</a+		      > a)</span+		    > <a href="#" class="selflink"+		    >#</a+		    ></td+		  ><td class="doc"+		  ><p+		    ><code+		      ><a href="#" title="Data.Monoid"+			>&lt;&gt;</a+			></code+		      > = 'T (a &lt;&gt; b)'</p+		    ><p+		    >Docs for the <code+		      >Semigroup</code+		      > instance of <code+		      >Semigroup a =&gt; T a</code+		      ></p+		    ><h4 class="subheading details-toggle-control details-toggle" data-details-id="ch:Semigroup_3:0"+		    >Examples</h4+		    ><details id="ch:Semigroup_3:0"+		    ><summary class="hide-when-js-enabled"+		      >Expand</summary+		      ><pre class="screen"+		      ><code class="prompt"+			>&gt;&gt;&gt; </code+			><strong class="userinput"+			><code+			  >T (Product 1) &lt;&gt; T (Product 2)+</code+			  ></strong+			>T (Product {getProduct = 2})+</pre+		      ></details+		    ></td+		  ></tr+		><tr+		><td colspan="2"+		  ><details id="i:id:T:Semigroup:3"+		    ><summary class="hide-when-js-enabled"+		      >Instance details</summary+		      ><p+		      >Defined in <a href="#"+			>Bug1206</a+			></p+		      > <div class="subs methods"+		      ><p class="caption"+			>Methods</p+			><p class="src"+			><a href="#"+			  >(&lt;&gt;)</a+			  > :: <a href="#" title="Bug1206"+			  >T</a+			  > a -&gt; <a href="#" title="Bug1206"+			  >T</a+			  > a -&gt; <a href="#" title="Bug1206"+			  >T</a+			  > a <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >sconcat</a+			  > :: <a href="#" title="Data.List.NonEmpty"+			  >NonEmpty</a+			  > (<a href="#" title="Bug1206"+			  >T</a+			  > a) -&gt; <a href="#" title="Bug1206"+			  >T</a+			  > a <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >stimes</a+			  > :: <a href="#" title="Prelude"+			  >Integral</a+			  > b =&gt; b -&gt; <a href="#" title="Bug1206"+			  >T</a+			  > a -&gt; <a href="#" title="Bug1206"+			  >T</a+			  > a <a href="#" class="selflink"+			  >#</a+			  ></p+			></div+		      ></details+		    ></td+		  ></tr+		><tr+		><td class="src clearfix"+		  ><span class="inst-left"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:T:Show:4"+		      ></span+		      > <a href="#" title="Text.Show"+		      >Show</a+		      > a =&gt; <a href="#" title="Text.Show"+		      >Show</a+		      > (<a href="#" title="Bug1206"+		      >T</a+		      > a)</span+		    > <a href="#" class="selflink"+		    >#</a+		    ></td+		  ><td class="doc empty"+		  >&nbsp;</td+		  ></tr+		><tr+		><td colspan="2"+		  ><details id="i:id:T:Show:4"+		    ><summary class="hide-when-js-enabled"+		      >Instance details</summary+		      ><p+		      >Defined in <a href="#"+			>Bug1206</a+			></p+		      > <div class="subs methods"+		      ><p class="caption"+			>Methods</p+			><p class="src"+			><a href="#"+			  >showsPrec</a+			  > :: <a href="#" title="Data.Int"+			  >Int</a+			  > -&gt; <a href="#" title="Bug1206"+			  >T</a+			  > a -&gt; <a href="#" title="Text.Show"+			  >ShowS</a+			  > <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >show</a+			  > :: <a href="#" title="Bug1206"+			  >T</a+			  > a -&gt; <a href="#" title="Data.String"+			  >String</a+			  > <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >showList</a+			  > :: [<a href="#" title="Bug1206"+			  >T</a+			  > a] -&gt; <a href="#" title="Text.Show"+			  >ShowS</a+			  > <a href="#" class="selflink"+			  >#</a+			  ></p+			></div+		      ></details+		    ></td+		  ></tr+		></table+	      ></details+	    ></div+	  ></div+	></div+      ></div+    ></body+  ></html+>
html-test/ref/Bug195.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug195</p
html-test/ref/Bug2.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug2</p
html-test/ref/Bug201.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug201</p
html-test/ref/Bug253.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug253</p
html-test/ref/Bug26.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug26</p
html-test/ref/Bug280.html view
@@ -46,6 +46,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug280</p@@ -65,9 +71,9 @@ 	><p class="src" 	  ><a id="v:x" class="def" 	    >x</a-	    > :: [<a href="#" title="Data.Char"-	    >Char</a-	    >] <a href="#" class="selflink"+	    > :: <a href="#" title="Data.String"+	    >String</a+	    > <a href="#" class="selflink" 	    >#</a 	    ></p 	  ></div
html-test/ref/Bug294.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug294</p
html-test/ref/Bug298.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug298</p
html-test/ref/Bug3.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug3</p
html-test/ref/Bug308.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug308</p
html-test/ref/Bug308CrossModule.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug308CrossModule</p
html-test/ref/Bug310.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug310</p
html-test/ref/Bug313.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug313</p
html-test/ref/Bug335.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug335</p
html-test/ref/Bug4.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug4</p
html-test/ref/Bug458.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug458</p
html-test/ref/Bug466.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug466</p
html-test/ref/Bug546.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug546</p
html-test/ref/Bug548.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug548</p@@ -184,12 +190,14 @@ 		><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:WrappedArrow:Functor:2"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:WrappedArrow:Alternative:2" 		      ></span-		      > <a href="#" title="Control.Arrow"-		      >Arrow</a-		      > a =&gt; <a href="#" title="Data.Functor"-		      >Functor</a+		      > (<a href="#" title="Control.Arrow"+		      >ArrowZero</a+		      > a, <a href="#" title="Control.Arrow"+		      >ArrowPlus</a+		      > a) =&gt; <a href="#" title="Control.Applicative"+		      >Alternative</a 		      > (<a href="#" title="Bug548" 		      >WrappedArrow</a 		      > a b)</span@@ -203,7 +211,7 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:WrappedArrow:Functor:2"+		  ><details id="i:id:WrappedArrow:Alternative:2" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p@@ -215,24 +223,44 @@ 			>Methods</p 			><p class="src" 			><a href="#"-			  >fmap</a-			  > :: (a0 -&gt; b0) -&gt; <a href="#" title="Bug548"+			  >empty</a+			  > :: <a href="#" title="Bug548" 			  >WrappedArrow</a+			  > a b a0 <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >(&lt;|&gt;)</a+			  > :: <a href="#" title="Bug548"+			  >WrappedArrow</a 			  > a b a0 -&gt; <a href="#" title="Bug548" 			  >WrappedArrow</a-			  > a b b0 <a href="#" class="selflink"+			  > a b a0 -&gt; <a href="#" title="Bug548"+			  >WrappedArrow</a+			  > a b a0 <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src" 			><a href="#"-			  >(&lt;$)</a-			  > :: a0 -&gt; <a href="#" title="Bug548"+			  >some</a+			  > :: <a href="#" title="Bug548" 			  >WrappedArrow</a-			  > a b b0 -&gt; <a href="#" title="Bug548"+			  > a b a0 -&gt; <a href="#" title="Bug548" 			  >WrappedArrow</a-			  > a b a0 <a href="#" class="selflink"+			  > a b [a0] <a href="#" class="selflink" 			  >#</a 			  ></p+			><p class="src"+			><a href="#"+			  >many</a+			  > :: <a href="#" title="Bug548"+			  >WrappedArrow</a+			  > a b a0 -&gt; <a href="#" title="Bug548"+			  >WrappedArrow</a+			  > a b [a0] <a href="#" class="selflink"+			  >#</a+			  ></p 			></div 		      ></details 		    ></td@@ -332,14 +360,12 @@ 		><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:WrappedArrow:Alternative:4"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:WrappedArrow:Functor:4" 		      ></span-		      > (<a href="#" title="Control.Arrow"-		      >ArrowZero</a-		      > a, <a href="#" title="Control.Arrow"-		      >ArrowPlus</a-		      > a) =&gt; <a href="#" title="Control.Applicative"-		      >Alternative</a+		      > <a href="#" title="Control.Arrow"+		      >Arrow</a+		      > a =&gt; <a href="#" title="Data.Functor"+		      >Functor</a 		      > (<a href="#" title="Bug548" 		      >WrappedArrow</a 		      > a b)</span@@ -353,7 +379,7 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:WrappedArrow:Alternative:4"+		  ><details id="i:id:WrappedArrow:Functor:4" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p@@ -365,42 +391,22 @@ 			>Methods</p 			><p class="src" 			><a href="#"-			  >empty</a-			  > :: <a href="#" title="Bug548"-			  >WrappedArrow</a-			  > a b a0 <a href="#" class="selflink"-			  >#</a-			  ></p-			><p class="src"-			><a href="#"-			  >(&lt;|&gt;)</a-			  > :: <a href="#" title="Bug548"-			  >WrappedArrow</a-			  > a b a0 -&gt; <a href="#" title="Bug548"-			  >WrappedArrow</a-			  > a b a0 -&gt; <a href="#" title="Bug548"-			  >WrappedArrow</a-			  > a b a0 <a href="#" class="selflink"-			  >#</a-			  ></p-			><p class="src"-			><a href="#"-			  >some</a-			  > :: <a href="#" title="Bug548"+			  >fmap</a+			  > :: (a0 -&gt; b0) -&gt; <a href="#" title="Bug548" 			  >WrappedArrow</a 			  > a b a0 -&gt; <a href="#" title="Bug548" 			  >WrappedArrow</a-			  > a b [a0] <a href="#" class="selflink"+			  > a b b0 <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src" 			><a href="#"-			  >many</a-			  > :: <a href="#" title="Bug548"+			  >(&lt;$)</a+			  > :: a0 -&gt; <a href="#" title="Bug548" 			  >WrappedArrow</a-			  > a b a0 -&gt; <a href="#" title="Bug548"+			  > a b b0 -&gt; <a href="#" title="Bug548" 			  >WrappedArrow</a-			  > a b [a0] <a href="#" class="selflink"+			  > a b a0 <a href="#" class="selflink" 			  >#</a 			  ></p 			></div
html-test/ref/Bug574.html view
@@ -36,7 +36,13 @@ 	  ><th 	    >Safe Haskell</th 	    ><td-	    >None</td+	    >Safe-Inferred</td+	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td 	    ></tr 	  ></table 	><p class="caption"
html-test/ref/Bug6.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug6</p
html-test/ref/Bug613.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug613</p
html-test/ref/Bug647.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug647</p
html-test/ref/Bug679.html view
@@ -36,7 +36,13 @@ 	  ><th 	    >Safe Haskell</th 	    ><td-	    >None</td+	    >Safe-Inferred</td+	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td 	    ></tr 	  ></table 	><p class="caption"
html-test/ref/Bug7.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug7</p
html-test/ref/Bug8.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug8</p@@ -89,7 +95,7 @@ 	><p class="src" 	  ><a id="v:-45--45--62-" class="def" 	    >(--&gt;)</a-	    > :: p1 -&gt; p2 -&gt; <a href="#" title="Bug8"+	    > :: p -&gt; p -&gt; <a href="#" title="Bug8" 	    >Typ</a 	    > <span class="fixity" 	    >infix 9</span
html-test/ref/Bug85.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug85</p
html-test/ref/Bug865.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug865</p
html-test/ref/Bug923.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug923</p
html-test/ref/Bug952.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug952</p
html-test/ref/Bug953.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug953</p
html-test/ref/Bug973.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bug973</p
html-test/ref/BugDeprecated.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>BugDeprecated</p
html-test/ref/BugExportHeadings.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>BugExportHeadings</p
html-test/ref/Bugs.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Bugs</p
html-test/ref/BundledPatterns.html view
@@ -36,7 +36,13 @@ 	  ><th 	    >Safe Haskell</th 	    ><td-	    >None</td+	    >Safe-Inferred</td+	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td 	    ></tr 	  ></table 	><p class="caption"
html-test/ref/BundledPatterns2.html view
@@ -36,7 +36,13 @@ 	  ><th 	    >Safe Haskell</th 	    ><td-	    >None</td+	    >Safe-Inferred</td+	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td 	    ></tr 	  ></table 	><p class="caption"
html-test/ref/ConstructorArgs.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>ConstructorArgs</p
html-test/ref/ConstructorPatternExport.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>ConstructorPatternExport</p
html-test/ref/DefaultAssociatedTypes.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>DefaultAssociatedTypes</p
html-test/ref/DefaultSignatures.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>DefaultSignatures</p
html-test/ref/DeprecatedClass.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>DeprecatedClass</p
html-test/ref/DeprecatedData.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>DeprecatedData</p
html-test/ref/DeprecatedFunction.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>DeprecatedFunction</p
html-test/ref/DeprecatedFunction2.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>DeprecatedFunction2</p
html-test/ref/DeprecatedFunction3.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>DeprecatedFunction3</p
html-test/ref/DeprecatedModule.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>DeprecatedModule</p
html-test/ref/DeprecatedModule2.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>DeprecatedModule2</p
html-test/ref/DeprecatedNewtype.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>DeprecatedNewtype</p
html-test/ref/DeprecatedReExport.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>DeprecatedReExport</p
html-test/ref/DeprecatedRecord.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>DeprecatedRecord</p
html-test/ref/DeprecatedTypeFamily.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>DeprecatedTypeFamily</p
html-test/ref/DeprecatedTypeSynonym.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>DeprecatedTypeSynonym</p
html-test/ref/DuplicateRecordFields.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>DuplicateRecordFields</p
html-test/ref/Examples.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Examples</p
html-test/ref/FunArgs.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>FunArgs</p
html-test/ref/GADTRecords.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>GADTRecords</p
html-test/ref/GadtConstructorArgs.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>GadtConstructorArgs</p
html-test/ref/Hash.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Hash</p
html-test/ref/HiddenInstances.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>HiddenInstances</p@@ -92,8 +98,8 @@ 		      ></span 		      > <a href="#" title="HiddenInstances" 		      >VisibleClass</a-		      > <a href="#" title="Data.Int"-		      >Int</a+		      > <a href="#" title="HiddenInstances"+		      >VisibleData</a 		      ></span 		    > <a href="#" class="selflink" 		    >#</a@@ -122,8 +128,8 @@ 		      ></span 		      > <a href="#" title="HiddenInstances" 		      >VisibleClass</a-		      > <a href="#" title="HiddenInstances"-		      >VisibleData</a+		      > <a href="#" title="Data.Int"+		      >Int</a 		      ></span 		    > <a href="#" class="selflink" 		    >#</a
html-test/ref/HiddenInstancesB.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>HiddenInstancesB</p
html-test/ref/Hyperlinks.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Hyperlinks</p
html-test/ref/Identifiers.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Identifiers</p
html-test/ref/IgnoreExports.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>IgnoreExports</p
html-test/ref/ImplicitParams.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>ImplicitParams</p
html-test/ref/Instances.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Instances</p@@ -194,7 +200,9 @@ 		      ></span 		      > <a href="#" title="Instances" 		      >Foo</a-		      > []</span+		      > <a href="#" title="Data.Maybe"+		      >Maybe</a+		      ></span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td@@ -216,19 +224,31 @@ 			><p class="src" 			><a href="#" 			  >foo</a-			  > :: [<a href="#" title="Data.Int"+			  > :: <a href="#" title="Data.Maybe"+			  >Maybe</a+			  > <a href="#" title="Data.Int" 			  >Int</a-			  >] -&gt; a -&gt; [a] <a href="#" class="selflink"+			  > -&gt; a -&gt; <a href="#" title="Data.Maybe"+			  >Maybe</a+			  > a <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src" 			><a href="#" 			  >foo'</a-			  > :: [[a]] -&gt; <a href="#" title="Data.Int"+			  > :: <a href="#" title="Data.Maybe"+			  >Maybe</a+			  > (<a href="#" title="Data.Maybe"+			  >Maybe</a+			  > a) -&gt; <a href="#" title="Data.Int" 			  >Int</a-			  > -&gt; [[<a href="#" title="Data.Int"+			  > -&gt; <a href="#" title="Data.Maybe"+			  >Maybe</a+			  > (<a href="#" title="Data.Maybe"+			  >Maybe</a+			  > <a href="#" title="Data.Int" 			  >Int</a-			  >]] <a href="#" class="selflink"+			  >) <a href="#" class="selflink" 			  >#</a 			  ></p 			></div@@ -242,9 +262,7 @@ 		      ></span 		      > <a href="#" title="Instances" 		      >Foo</a-		      > <a href="#" title="Data.Maybe"-		      >Maybe</a-		      ></span+		      > []</span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td@@ -266,31 +284,19 @@ 			><p class="src" 			><a href="#" 			  >foo</a-			  > :: <a href="#" title="Data.Maybe"-			  >Maybe</a-			  > <a href="#" title="Data.Int"+			  > :: [<a href="#" title="Data.Int" 			  >Int</a-			  > -&gt; a -&gt; <a href="#" title="Data.Maybe"-			  >Maybe</a-			  > a <a href="#" class="selflink"+			  >] -&gt; a -&gt; [a] <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src" 			><a href="#" 			  >foo'</a-			  > :: <a href="#" title="Data.Maybe"-			  >Maybe</a-			  > (<a href="#" title="Data.Maybe"-			  >Maybe</a-			  > a) -&gt; <a href="#" title="Data.Int"+			  > :: [[a]] -&gt; <a href="#" title="Data.Int" 			  >Int</a-			  > -&gt; <a href="#" title="Data.Maybe"-			  >Maybe</a-			  > (<a href="#" title="Data.Maybe"-			  >Maybe</a-			  > <a href="#" title="Data.Int"+			  > -&gt; [[<a href="#" title="Data.Int" 			  >Int</a-			  >) <a href="#" class="selflink"+			  >]] <a href="#" class="selflink" 			  >#</a 			  ></p 			></div@@ -364,15 +370,11 @@ 		  ><span class="inst-left" 		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:ic:Foo:Foo:4" 		      ></span-		      > (<a href="#" title="Data.Eq"-		      >Eq</a-		      > a, <a href="#" title="Instances"-		      >Foo</a-		      > f) =&gt; <a href="#" title="Instances"+		      > <a href="#" title="Instances" 		      >Foo</a-		      > (<a href="#" title="GHC.Tuple"-		      >(,)</a-		      > (f a))</span+		      > (<a href="#" title="Instances"+		      >(&lt;~~)</a+		      > a)</span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td@@ -394,19 +396,31 @@ 			><p class="src" 			><a href="#" 			  >foo</a-			  > :: (f a, <a href="#" title="Data.Int"+			  > :: (a <a href="#" title="Instances"+			  >&lt;~~</a+			  > <a href="#" title="Data.Int" 			  >Int</a-			  >) -&gt; a0 -&gt; (f a, a0) <a href="#" class="selflink"+			  >) -&gt; a0 -&gt; a <a href="#" title="Instances"+			  >&lt;~~</a+			  > a0 <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src" 			><a href="#" 			  >foo'</a-			  > :: (f a, (f a, a0)) -&gt; <a href="#" title="Data.Int"+			  > :: (a <a href="#" title="Instances"+			  >&lt;~~</a+			  > (a <a href="#" title="Instances"+			  >&lt;~~</a+			  > a0)) -&gt; <a href="#" title="Data.Int" 			  >Int</a-			  > -&gt; (f a, (f a, <a href="#" title="Data.Int"+			  > -&gt; a <a href="#" title="Instances"+			  >&lt;~~</a+			  > (a <a href="#" title="Instances"+			  >&lt;~~</a+			  > <a href="#" title="Data.Int" 			  >Int</a-			  >)) <a href="#" class="selflink"+			  >) <a href="#" class="selflink" 			  >#</a 			  ></p 			></div@@ -418,11 +432,15 @@ 		  ><span class="inst-left" 		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:ic:Foo:Foo:5" 		      ></span-		      > <a href="#" title="Instances"+		      > (<a href="#" title="Data.Eq"+		      >Eq</a+		      > a, <a href="#" title="Instances" 		      >Foo</a-		      > (<a href="#" title="Instances"-		      >(&lt;~~)</a-		      > a)</span+		      > f) =&gt; <a href="#" title="Instances"+		      >Foo</a+		      > (<a href="#" title="GHC.Tuple"+		      >(,)</a+		      > (f a))</span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td@@ -444,31 +462,19 @@ 			><p class="src" 			><a href="#" 			  >foo</a-			  > :: (a <a href="#" title="Instances"-			  >&lt;~~</a-			  > <a href="#" title="Data.Int"+			  > :: (f a, <a href="#" title="Data.Int" 			  >Int</a-			  >) -&gt; a0 -&gt; a <a href="#" title="Instances"-			  >&lt;~~</a-			  > a0 <a href="#" class="selflink"+			  >) -&gt; a0 -&gt; (f a, a0) <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src" 			><a href="#" 			  >foo'</a-			  > :: (a <a href="#" title="Instances"-			  >&lt;~~</a-			  > (a <a href="#" title="Instances"-			  >&lt;~~</a-			  > a0)) -&gt; <a href="#" title="Data.Int"+			  > :: (f a, (f a, a0)) -&gt; <a href="#" title="Data.Int" 			  >Int</a-			  > -&gt; a <a href="#" title="Instances"-			  >&lt;~~</a-			  > (a <a href="#" title="Instances"-			  >&lt;~~</a-			  > <a href="#" title="Data.Int"+			  > -&gt; (f a, (f a, <a href="#" title="Data.Int" 			  >Int</a-			  >) <a href="#" class="selflink"+			  >)) <a href="#" class="selflink" 			  >#</a 			  ></p 			></div@@ -482,9 +488,9 @@ 		      ></span 		      > <a href="#" title="Instances" 		      >Foo</a-		      > (<a href="#" title="GHC.Tuple"-		      >(,,)</a-		      > a a)</span+		      > (<a href="#" title="Instances"+		      >Quux</a+		      > a b)</span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td@@ -506,19 +512,31 @@ 			><p class="src" 			><a href="#" 			  >foo</a-			  > :: (a, a, <a href="#" title="Data.Int"+			  > :: <a href="#" title="Instances"+			  >Quux</a+			  > a b <a href="#" title="Data.Int" 			  >Int</a-			  >) -&gt; a0 -&gt; (a, a, a0) <a href="#" class="selflink"+			  > -&gt; a0 -&gt; <a href="#" title="Instances"+			  >Quux</a+			  > a b a0 <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src" 			><a href="#" 			  >foo'</a-			  > :: (a, a, (a, a, a0)) -&gt; <a href="#" title="Data.Int"+			  > :: <a href="#" title="Instances"+			  >Quux</a+			  > a b (<a href="#" title="Instances"+			  >Quux</a+			  > a b a0) -&gt; <a href="#" title="Data.Int" 			  >Int</a-			  > -&gt; (a, a, (a, a, <a href="#" title="Data.Int"+			  > -&gt; <a href="#" title="Instances"+			  >Quux</a+			  > a b (<a href="#" title="Instances"+			  >Quux</a+			  > a b <a href="#" title="Data.Int" 			  >Int</a-			  >)) <a href="#" class="selflink"+			  >) <a href="#" class="selflink" 			  >#</a 			  ></p 			></div@@ -532,9 +550,9 @@ 		      ></span 		      > <a href="#" title="Instances" 		      >Foo</a-		      > (<a href="#" title="Instances"-		      >Quux</a-		      > a b)</span+		      > (<a href="#" title="GHC.Tuple"+		      >(,,)</a+		      > a a)</span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td@@ -556,31 +574,19 @@ 			><p class="src" 			><a href="#" 			  >foo</a-			  > :: <a href="#" title="Instances"-			  >Quux</a-			  > a b <a href="#" title="Data.Int"+			  > :: (a, a, <a href="#" title="Data.Int" 			  >Int</a-			  > -&gt; a0 -&gt; <a href="#" title="Instances"-			  >Quux</a-			  > a b a0 <a href="#" class="selflink"+			  >) -&gt; a0 -&gt; (a, a, a0) <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src" 			><a href="#" 			  >foo'</a-			  > :: <a href="#" title="Instances"-			  >Quux</a-			  > a b (<a href="#" title="Instances"-			  >Quux</a-			  > a b a0) -&gt; <a href="#" title="Data.Int"+			  > :: (a, a, (a, a, a0)) -&gt; <a href="#" title="Data.Int" 			  >Int</a-			  > -&gt; <a href="#" title="Instances"-			  >Quux</a-			  > a b (<a href="#" title="Instances"-			  >Quux</a-			  > a b <a href="#" title="Data.Int"+			  > -&gt; (a, a, (a, a, <a href="#" title="Data.Int" 			  >Int</a-			  >) <a href="#" class="selflink"+			  >)) <a href="#" class="selflink" 			  >#</a 			  ></p 			></div@@ -594,11 +600,7 @@ 		      ></span 		      > <a href="#" title="Instances" 		      >Foo</a-		      > ((-&gt;) a :: <a href="#" title="Data.Kind"-		      >Type</a-		      > -&gt; <a href="#" title="Data.Kind"-		      >Type</a-		      >)</span+		      > ((-&gt;) a)</span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td@@ -1043,69 +1045,7 @@ 		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:ic:Bar:Bar:5" 		      ></span 		      > <a href="#" title="Instances"-		      >Foo</a-		      > (<a href="#" title="GHC.Tuple"-		      >(,,)</a-		      > a b) =&gt; <a href="#" title="Instances" 		      >Bar</a-		      > (<a href="#" title="GHC.Tuple"-		      >(,,)</a-		      > a b) (a, b, a)</span-		    > <a href="#" class="selflink"-		    >#</a-		    ></td-		  ><td class="doc empty"-		  >&nbsp;</td-		  ></tr-		><tr-		><td colspan="2"-		  ><details id="i:ic:Bar:Bar:5"-		    ><summary class="hide-when-js-enabled"-		      >Instance details</summary-		      ><p-		      >Defined in <a href="#"-			>Instances</a-			></p-		      > <div class="subs methods"-		      ><p class="caption"-			>Methods</p-			><p class="src"-			><a href="#"-			  >bar</a-			  > :: (a, b, (a, b, a)) -&gt; (a, b, <a href="#" title="Data.Bool"-			  >Bool</a-			  >) -&gt; (a, b, a) <a href="#" class="selflink"-			  >#</a-			  ></p-			><p class="src"-			><a href="#"-			  >bar'</a-			  > :: (a, b, (a, b, (a, b, a))) -&gt; (a, b, (a, b, (a, b, b0))) <a href="#" class="selflink"-			  >#</a-			  ></p-			><p class="src"-			><a href="#"-			  >bar0</a-			  > :: ((a, b, (a, b, a)), (a, b, (a, b, a))) -&gt; ((a, b, b0), (a, b, c)) <a href="#" class="selflink"-			  >#</a-			  ></p-			><p class="src"-			><a href="#"-			  >bar1</a-			  > :: ((a, b, (a, b, a)), (a, b, (a, b, a))) -&gt; ((a, b, b0), (a, b, c)) <a href="#" class="selflink"-			  >#</a-			  ></p-			></div-		      ></details-		    ></td-		  ></tr-		><tr-		><td class="src clearfix"-		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:ic:Bar:Bar:6"-		      ></span-		      > <a href="#" title="Instances"-		      >Bar</a 		      > (<a href="#" title="Instances" 		      >Quux</a 		      > a c) (<a href="#" title="Instances"@@ -1119,7 +1059,7 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:ic:Bar:Bar:6"+		  ><details id="i:ic:Bar:Bar:5" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p@@ -1203,6 +1143,68 @@ 		      ></details 		    ></td 		  ></tr+		><tr+		><td class="src clearfix"+		  ><span class="inst-left"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:ic:Bar:Bar:6"+		      ></span+		      > <a href="#" title="Instances"+		      >Foo</a+		      > (<a href="#" title="GHC.Tuple"+		      >(,,)</a+		      > a b) =&gt; <a href="#" title="Instances"+		      >Bar</a+		      > (<a href="#" title="GHC.Tuple"+		      >(,,)</a+		      > a b) (a, b, a)</span+		    > <a href="#" class="selflink"+		    >#</a+		    ></td+		  ><td class="doc empty"+		  >&nbsp;</td+		  ></tr+		><tr+		><td colspan="2"+		  ><details id="i:ic:Bar:Bar:6"+		    ><summary class="hide-when-js-enabled"+		      >Instance details</summary+		      ><p+		      >Defined in <a href="#"+			>Instances</a+			></p+		      > <div class="subs methods"+		      ><p class="caption"+			>Methods</p+			><p class="src"+			><a href="#"+			  >bar</a+			  > :: (a, b, (a, b, a)) -&gt; (a, b, <a href="#" title="Data.Bool"+			  >Bool</a+			  >) -&gt; (a, b, a) <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >bar'</a+			  > :: (a, b, (a, b, (a, b, a))) -&gt; (a, b, (a, b, (a, b, b0))) <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >bar0</a+			  > :: ((a, b, (a, b, a)), (a, b, (a, b, a))) -&gt; ((a, b, b0), (a, b, c)) <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >bar1</a+			  > :: ((a, b, (a, b, a)), (a, b, (a, b, a))) -&gt; ((a, b, b0), (a, b, c)) <a href="#" class="selflink"+			  >#</a+			  ></p+			></div+		      ></details+		    ></td+		  ></tr 		></table 	      ></details 	    ></div@@ -1398,7 +1400,9 @@ 		      ></span 		      > <a href="#" title="Instances" 		      >Baz</a-		      > (a, b, c)</span+		      > (<a href="#" title="Instances"+		      >Quux</a+		      > a b c)</span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td@@ -1420,11 +1424,15 @@ 			><p class="src" 			><a href="#" 			  >baz</a-			  > :: (a, b, c) -&gt; (<span class="keyword"+			  > :: <a href="#" title="Instances"+			  >Quux</a+			  > a b c -&gt; (<span class="keyword" 			  >forall</span 			  > a0. a0 -&gt; a0) -&gt; (b0, <span class="keyword" 			  >forall</span-			  > c0. c0 -&gt; (a, b, c)) -&gt; (b0, c1) <a href="#" class="selflink"+			  > c0. c0 -&gt; <a href="#" title="Instances"+			  >Quux</a+			  > a b c) -&gt; (b0, c1) <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src"@@ -1432,9 +1440,15 @@ 			  >baz'</a 			  > :: b0 -&gt; (<span class="keyword" 			  >forall</span-			  > b1. b1 -&gt; (a, b, c)) -&gt; (<span class="keyword"+			  > b1. b1 -&gt; <a href="#" title="Instances"+			  >Quux</a+			  > a b c) -&gt; (<span class="keyword" 			  >forall</span-			  > b2. b2 -&gt; (a, b, c)) -&gt; [(b0, (a, b, c))] <a href="#" class="selflink"+			  > b2. b2 -&gt; <a href="#" title="Instances"+			  >Quux</a+			  > a b c) -&gt; [(b0, <a href="#" title="Instances"+			  >Quux</a+			  > a b c)] <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src"@@ -1444,7 +1458,9 @@ 			  >forall</span 			  > b1. (<span class="keyword" 			  >forall</span-			  > b2. b2 -&gt; (a, b, c)) -&gt; c0) -&gt; <span class="keyword"+			  > b2. b2 -&gt; <a href="#" title="Instances"+			  >Quux</a+			  > a b c) -&gt; c0) -&gt; <span class="keyword" 			  >forall</span 			  > c1. c1 -&gt; b0 <a href="#" class="selflink" 			  >#</a@@ -1460,9 +1476,7 @@ 		      ></span 		      > <a href="#" title="Instances" 		      >Baz</a-		      > (<a href="#" title="Instances"-		      >Quux</a-		      > a b c)</span+		      > (a, b, c)</span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td@@ -1484,15 +1498,11 @@ 			><p class="src" 			><a href="#" 			  >baz</a-			  > :: <a href="#" title="Instances"-			  >Quux</a-			  > a b c -&gt; (<span class="keyword"+			  > :: (a, b, c) -&gt; (<span class="keyword" 			  >forall</span 			  > a0. a0 -&gt; a0) -&gt; (b0, <span class="keyword" 			  >forall</span-			  > c0. c0 -&gt; <a href="#" title="Instances"-			  >Quux</a-			  > a b c) -&gt; (b0, c1) <a href="#" class="selflink"+			  > c0. c0 -&gt; (a, b, c)) -&gt; (b0, c1) <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src"@@ -1500,15 +1510,9 @@ 			  >baz'</a 			  > :: b0 -&gt; (<span class="keyword" 			  >forall</span-			  > b1. b1 -&gt; <a href="#" title="Instances"-			  >Quux</a-			  > a b c) -&gt; (<span class="keyword"+			  > b1. b1 -&gt; (a, b, c)) -&gt; (<span class="keyword" 			  >forall</span-			  > b2. b2 -&gt; <a href="#" title="Instances"-			  >Quux</a-			  > a b c) -&gt; [(b0, <a href="#" title="Instances"-			  >Quux</a-			  > a b c)] <a href="#" class="selflink"+			  > b2. b2 -&gt; (a, b, c)) -&gt; [(b0, (a, b, c))] <a href="#" class="selflink" 			  >#</a 			  ></p 			><p class="src"@@ -1518,9 +1522,7 @@ 			  >forall</span 			  > b1. (<span class="keyword" 			  >forall</span-			  > b2. b2 -&gt; <a href="#" title="Instances"-			  >Quux</a-			  > a b c) -&gt; c0) -&gt; <span class="keyword"+			  > b2. b2 -&gt; (a, b, c)) -&gt; c0) -&gt; <span class="keyword" 			  >forall</span 			  > c1. c1 -&gt; b0 <a href="#" class="selflink" 			  >#</a
+ html-test/ref/LinearTypes.html view
@@ -0,0 +1,114 @@+<html xmlns="http://www.w3.org/1999/xhtml"+><head+  ><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"+     /><meta name="viewport" content="width=device-width, initial-scale=1"+     /><title+    >LinearTypes</title+    ><link href="#" rel="stylesheet" type="text/css" title="Linuwial"+     /><link rel="stylesheet" type="text/css" href="#"+     /><link rel="stylesheet" type="text/css" href="#"+     /><script src="haddock-bundle.min.js" async="async" type="text/javascript"+    ></script+    ><script type="text/x-mathjax-config"+    >MathJax.Hub.Config({ tex2jax: { processClass: "mathjax", ignoreClass: ".*" } });</script+    ><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js?config=TeX-AMS-MML_HTMLorMML" type="text/javascript"+    ></script+    ></head+  ><body+  ><div id="package-header"+    ><span class="caption empty"+      >&nbsp;</span+      ><ul class="links" id="page-menu"+      ><li+	><a href="#"+	  >Contents</a+	  ></li+	><li+	><a href="#"+	  >Index</a+	  ></li+	></ul+      ></div+    ><div id="content"+    ><div id="module-header"+      ><table class="info"+	><tr+	  ><th+	    >Safe Haskell</th+	    ><td+	    >Safe-Inferred</td+	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr+	  ></table+	><p class="caption"+	>LinearTypes</p+	></div+      ><div id="synopsis"+      ><details id="syn"+	><summary+	  >Synopsis</summary+	  ><ul class="details-toggle" data-details-id="syn"+	  ><li class="src short"+	    ><a href="#"+	      >unrestricted</a+	      > :: a -&gt; b</li+	    ><li class="src short"+	    ><a href="#"+	      >linear</a+	      > :: a %1 -&gt; b</li+	    ><li class="src short"+	    ><a href="#"+	      >poly</a+	      > :: a %m -&gt; b</li+	    ></ul+	  ></details+	></div+      ><div id="interface"+      ><h1+	>Documentation</h1+	><div class="top"+	><p class="src"+	  ><a id="v:unrestricted" class="def"+	    >unrestricted</a+	    > :: a -&gt; b <a href="#" class="selflink"+	    >#</a+	    ></p+	  ><div class="doc"+	  ><p+	    >Does something unrestricted.</p+	    ></div+	  ></div+	><div class="top"+	><p class="src"+	  ><a id="v:linear" class="def"+	    >linear</a+	    > :: a %1 -&gt; b <a href="#" class="selflink"+	    >#</a+	    ></p+	  ><div class="doc"+	  ><p+	    >Does something linear.</p+	    ></div+	  ></div+	><div class="top"+	><p class="src"+	  ><a id="v:poly" class="def"+	    >poly</a+	    > :: a %m -&gt; b <a href="#" class="selflink"+	    >#</a+	    ></p+	  ><div class="doc"+	  ><p+	    >Does something polymorphic.</p+	    ></div+	  ></div+	></div+      ></div+    ></body+  ></html+>
html-test/ref/Math.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Math</p
html-test/ref/Minimal.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Minimal</p
html-test/ref/ModuleWithWarning.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>ModuleWithWarning</p
html-test/ref/NamedDoc.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>NamedDoc</p
html-test/ref/NamespacedIdentifiers.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>NamespacedIdentifiers</p
html-test/ref/Nesting.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Nesting</p
html-test/ref/NoLayout.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>NoLayout</p
html-test/ref/NonGreedy.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>NonGreedy</p
html-test/ref/Operators.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Operators</p
html-test/ref/OrphanInstances.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>OrphanInstances</p
html-test/ref/OrphanInstancesClass.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>OrphanInstancesClass</p
html-test/ref/OrphanInstancesType.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>OrphanInstancesType</p
html-test/ref/PR643.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>PR643</p
html-test/ref/PR643_1.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>PR643_1</p
html-test/ref/PatternSyns.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>PatternSyns</p
html-test/ref/PromotedTypes.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>PromotedTypes</p
html-test/ref/Properties.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Properties</p
html-test/ref/PruneWithWarning.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>PruneWithWarning</p
html-test/ref/QuantifiedConstraints.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>QuantifiedConstraints</p
html-test/ref/QuasiExpr.html view
@@ -36,7 +36,13 @@ 	  ><th 	    >Safe Haskell</th 	    ><td-	    >None</td+	    >Safe-Inferred</td+	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td 	    ></tr 	  ></table 	><p class="caption"
html-test/ref/QuasiQuote.html view
@@ -36,7 +36,13 @@ 	  ><th 	    >Safe Haskell</th 	    ><td-	    >None</td+	    >Safe-Inferred</td+	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td 	    ></tr 	  ></table 	><p class="caption"
html-test/ref/SectionLabels.html view
@@ -1,4 +1,3 @@-<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" ><head   ><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"@@ -38,6 +37,12 @@ 	    >Safe Haskell</th 	    ><td 	    >Safe-Inferred</td+	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td 	    ></tr 	  ></table 	><p class="caption"
html-test/ref/SpuriousSuperclassConstraints.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>SpuriousSuperclassConstraints</p@@ -90,59 +96,7 @@ 	      ><tr 		><td class="src clearfix" 		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:SomeType:Functor:1"-		      ></span-		      > <a href="#" title="Data.Functor"-		      >Functor</a-		      > (<a href="#" title="SpuriousSuperclassConstraints"-		      >SomeType</a-		      > f)</span-		    > <a href="#" class="selflink"-		    >#</a-		    ></td-		  ><td class="doc empty"-		  >&nbsp;</td-		  ></tr-		><tr-		><td colspan="2"-		  ><details id="i:id:SomeType:Functor:1"-		    ><summary class="hide-when-js-enabled"-		      >Instance details</summary-		      ><p-		      >Defined in <a href="#"-			>SpuriousSuperclassConstraints</a-			></p-		      > <div class="subs methods"-		      ><p class="caption"-			>Methods</p-			><p class="src"-			><a href="#"-			  >fmap</a-			  > :: (a -&gt; b) -&gt; <a href="#" title="SpuriousSuperclassConstraints"-			  >SomeType</a-			  > f a -&gt; <a href="#" title="SpuriousSuperclassConstraints"-			  >SomeType</a-			  > f b <a href="#" class="selflink"-			  >#</a-			  ></p-			><p class="src"-			><a href="#"-			  >(&lt;$)</a-			  > :: a -&gt; <a href="#" title="SpuriousSuperclassConstraints"-			  >SomeType</a-			  > f b -&gt; <a href="#" title="SpuriousSuperclassConstraints"-			  >SomeType</a-			  > f a <a href="#" class="selflink"-			  >#</a-			  ></p-			></div-		      ></details-		    ></td-		  ></tr-		><tr-		><td class="src clearfix"-		  ><span class="inst-left"-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:SomeType:Applicative:2"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:SomeType:Applicative:1" 		      ></span 		      > <a href="#" title="Control.Applicative" 		      >Applicative</a@@ -159,7 +113,7 @@ 		  ></tr 		><tr 		><td colspan="2"-		  ><details id="i:id:SomeType:Applicative:2"+		  ><details id="i:id:SomeType:Applicative:1" 		    ><summary class="hide-when-js-enabled" 		      >Instance details</summary 		      ><p@@ -219,6 +173,58 @@ 			  > :: <a href="#" title="SpuriousSuperclassConstraints" 			  >SomeType</a 			  > f a -&gt; <a href="#" title="SpuriousSuperclassConstraints"+			  >SomeType</a+			  > f b -&gt; <a href="#" title="SpuriousSuperclassConstraints"+			  >SomeType</a+			  > f a <a href="#" class="selflink"+			  >#</a+			  ></p+			></div+		      ></details+		    ></td+		  ></tr+		><tr+		><td class="src clearfix"+		  ><span class="inst-left"+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:SomeType:Functor:2"+		      ></span+		      > <a href="#" title="Data.Functor"+		      >Functor</a+		      > (<a href="#" title="SpuriousSuperclassConstraints"+		      >SomeType</a+		      > f)</span+		    > <a href="#" class="selflink"+		    >#</a+		    ></td+		  ><td class="doc empty"+		  >&nbsp;</td+		  ></tr+		><tr+		><td colspan="2"+		  ><details id="i:id:SomeType:Functor:2"+		    ><summary class="hide-when-js-enabled"+		      >Instance details</summary+		      ><p+		      >Defined in <a href="#"+			>SpuriousSuperclassConstraints</a+			></p+		      > <div class="subs methods"+		      ><p class="caption"+			>Methods</p+			><p class="src"+			><a href="#"+			  >fmap</a+			  > :: (a -&gt; b) -&gt; <a href="#" title="SpuriousSuperclassConstraints"+			  >SomeType</a+			  > f a -&gt; <a href="#" title="SpuriousSuperclassConstraints"+			  >SomeType</a+			  > f b <a href="#" class="selflink"+			  >#</a+			  ></p+			><p class="src"+			><a href="#"+			  >(&lt;$)</a+			  > :: a -&gt; <a href="#" title="SpuriousSuperclassConstraints" 			  >SomeType</a 			  > f b -&gt; <a href="#" title="SpuriousSuperclassConstraints" 			  >SomeType</a
html-test/ref/TH.html view
@@ -36,7 +36,13 @@ 	  ><th 	    >Safe Haskell</th 	    ><td-	    >None</td+	    >Safe-Inferred</td+	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td 	    ></tr 	  ></table 	><p class="caption"
html-test/ref/TH2.html view
@@ -36,7 +36,13 @@ 	  ><th 	    >Safe Haskell</th 	    ><td-	    >None</td+	    >Safe-Inferred</td+	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td 	    ></tr 	  ></table 	><p class="caption"
html-test/ref/Table.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Table</p
html-test/ref/Test.html view
@@ -68,6 +68,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Test</p
html-test/ref/Threaded.html view
@@ -36,7 +36,13 @@ 	  ><th 	    >Safe Haskell</th 	    ><td-	    >None</td+	    >Safe-Inferred</td+	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td 	    ></tr 	  ></table 	><p class="caption"
html-test/ref/Threaded_TH.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Threaded_TH</p
html-test/ref/Ticket112.html view
@@ -36,7 +36,13 @@ 	  ><th 	    >Safe Haskell</th 	    ><td-	    >None</td+	    >Safe-Inferred</td+	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td 	    ></tr 	  ></table 	><p class="caption"
html-test/ref/Ticket61.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Ticket61</p
html-test/ref/Ticket75.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Ticket75</p
html-test/ref/TitledPicture.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>TitledPicture</p
html-test/ref/TypeFamilies.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>TypeFamilies</p@@ -1151,14 +1157,14 @@ 		      > <a href="#" title="TypeFamilies" 		      >Test</a 		      > <a href="#" title="TypeFamilies"-		      >Y</a+		      >X</a 		      ></span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td 		  ><td class="doc" 		  ><p-		    >Doc for: instance Test Y</p+		    >Doc for: instance Test X</p 		    ></td 		  ></tr 		><tr@@ -1181,14 +1187,14 @@ 		      > <a href="#" title="TypeFamilies" 		      >Test</a 		      > <a href="#" title="TypeFamilies"-		      >X</a+		      >Y</a 		      ></span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td 		  ><td class="doc" 		  ><p-		    >Doc for: instance Test X</p+		    >Doc for: instance Test Y</p 		    ></td 		  ></tr 		><tr@@ -1237,14 +1243,14 @@ 		      > <a href="#" title="TypeFamilies" 		      >Foo</a 		      > <a href="#" title="TypeFamilies"-		      >Y</a+		      >X</a 		      ></span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td 		  ><td class="doc" 		  ><p-		    >Doc for: type instance Foo Y = X</p+		    >Doc for: type instance Foo X = Y</p 		    ></td 		  ></tr 		><tr@@ -1262,9 +1268,9 @@ 			> <a href="#" title="TypeFamilies" 			>Foo</a 			> <a href="#" title="TypeFamilies"-			>Y</a-			> = <a href="#" title="TypeFamilies" 			>X</a+			> = <a href="#" title="TypeFamilies"+			>Y</a 			></div 		      ></details 		    ></td@@ -1279,14 +1285,14 @@ 		      > <a href="#" title="TypeFamilies" 		      >Foo</a 		      > <a href="#" title="TypeFamilies"-		      >X</a+		      >Y</a 		      ></span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td 		  ><td class="doc" 		  ><p-		    >Doc for: type instance Foo X = Y</p+		    >Doc for: type instance Foo Y = X</p 		    ></td 		  ></tr 		><tr@@ -1304,9 +1310,9 @@ 			> <a href="#" title="TypeFamilies" 			>Foo</a 			> <a href="#" title="TypeFamilies"-			>X</a-			> = <a href="#" title="TypeFamilies" 			>Y</a+			> = <a href="#" title="TypeFamilies"+			>X</a 			></div 		      ></details 		    ></td@@ -1407,14 +1413,14 @@ 		      > <a href="#" title="TypeFamilies" 		      >Bat</a 		      > <a href="#" title="TypeFamilies"-		      >Y</a+		      >X</a 		      ></span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td 		  ><td class="doc" 		  ><p-		    >Doc for: data instance Bat Y</p+		    >Doc for: data instance Bat X</p 		    ></td 		  ></tr 		><tr@@ -1432,11 +1438,33 @@ 			> <a href="#" title="TypeFamilies" 			>Bat</a 			> <a href="#" title="TypeFamilies"-			>Y</a-			> = <a id="v:BatY" class="def"-			>BatY</a-			> <a href="#" title="TypeFamilies"-			>Y</a+			>X</a+			> <ul class="inst"+			><li class="inst"+			  >= <a id="v:BatX" class="def"+			    >BatX</a+			    > <a href="#" title="TypeFamilies"+			    >X</a+			    ></li+			  ><li class="inst"+			  >| <a id="v:BatXX" class="def"+			    >BatXX</a+			    > { <ul class="subs"+			    ><li+			      ><a id="v:aaa" class="def"+				>aaa</a+				> :: <a href="#" title="TypeFamilies"+				>X</a+				></li+			      ><li+			      ><a id="v:bbb" class="def"+				>bbb</a+				> :: <a href="#" title="TypeFamilies"+				>Y</a+				></li+			      ></ul+			    > }</li+			  ></ul 			></div 		      ></details 		    ></td@@ -1451,14 +1479,14 @@ 		      > <a href="#" title="TypeFamilies" 		      >Bat</a 		      > <a href="#" title="TypeFamilies"-		      >X</a+		      >Y</a 		      ></span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td 		  ><td class="doc" 		  ><p-		    >Doc for: data instance Bat X</p+		    >Doc for: data instance Bat Y</p 		    ></td 		  ></tr 		><tr@@ -1476,33 +1504,11 @@ 			> <a href="#" title="TypeFamilies" 			>Bat</a 			> <a href="#" title="TypeFamilies"-			>X</a-			> <ul class="inst"-			><li class="inst"-			  >= <a id="v:BatX" class="def"-			    >BatX</a-			    > <a href="#" title="TypeFamilies"-			    >X</a-			    ></li-			  ><li class="inst"-			  >| <a id="v:BatXX" class="def"-			    >BatXX</a-			    > { <ul class="subs"-			    ><li-			      ><a id="v:aaa" class="def"-				>aaa</a-				> :: <a href="#" title="TypeFamilies"-				>X</a-				></li-			      ><li-			      ><a id="v:bbb" class="def"-				>bbb</a-				> :: <a href="#" title="TypeFamilies"-				>Y</a-				></li-			      ></ul-			    > }</li-			  ></ul+			>Y</a+			> = <a id="v:BatY" class="def"+			>BatY</a+			> <a href="#" title="TypeFamilies"+			>Y</a 			></div 		      ></details 		    ></td@@ -1567,14 +1573,14 @@ 		      > <a href="#" title="TypeFamilies" 		      >Assoc</a 		      > <a href="#" title="TypeFamilies"-		      >Y</a+		      >X</a 		      ></span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td 		  ><td class="doc" 		  ><p-		    >Doc for: instance Assoc Y</p+		    >Doc for: instance Assoc X</p 		    ></td 		  ></tr 		><tr@@ -1595,7 +1601,7 @@ 			  > <a href="#" title="TypeFamilies" 			  >AssocD</a 			  > <a href="#" title="TypeFamilies"-			  >Y</a+			  >X</a 			  > <a href="#" class="selflink" 			  >#</a 			  ></p@@ -1605,7 +1611,7 @@ 			  > <a href="#" title="TypeFamilies" 			  >AssocT</a 			  > <a href="#" title="TypeFamilies"-			  >Y</a+			  >X</a 			  > <a href="#" class="selflink" 			  >#</a 			  ></p@@ -1621,14 +1627,14 @@ 		      > <a href="#" title="TypeFamilies" 		      >Assoc</a 		      > <a href="#" title="TypeFamilies"-		      >X</a+		      >Y</a 		      ></span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td 		  ><td class="doc" 		  ><p-		    >Doc for: instance Assoc X</p+		    >Doc for: instance Assoc Y</p 		    ></td 		  ></tr 		><tr@@ -1649,7 +1655,7 @@ 			  > <a href="#" title="TypeFamilies" 			  >AssocD</a 			  > <a href="#" title="TypeFamilies"-			  >X</a+			  >Y</a 			  > <a href="#" class="selflink" 			  >#</a 			  ></p@@ -1659,7 +1665,7 @@ 			  > <a href="#" title="TypeFamilies" 			  >AssocT</a 			  > <a href="#" title="TypeFamilies"-			  >X</a+			  >Y</a 			  > <a href="#" class="selflink" 			  >#</a 			  ></p@@ -1783,7 +1789,7 @@ 		      > <span class="keyword" 		      >type</span 		      > <a href="#" title="TypeFamilies"-		      >Y</a+		      >X</a 		      > <a href="#" title="TypeFamilies" 		      >&lt;&gt;</a 		      > (a :: <a href="#" title="Data.Kind"@@ -1808,12 +1814,14 @@ 		      ><span class="keyword" 			>type</span 			> <a href="#" title="TypeFamilies"-			>Y</a+			>X</a 			> <a href="#" title="TypeFamilies" 			>&lt;&gt;</a 			> (a :: <a href="#" title="Data.Kind" 			>Type</a-			>) = a</div+			>) = <a href="#" title="TypeFamilies"+			>X</a+			></div 		      ></details 		    ></td 		  ></tr@@ -1825,7 +1833,7 @@ 		      > <span class="keyword" 		      >type</span 		      > <a href="#" title="TypeFamilies"-		      >X</a+		      >Y</a 		      > <a href="#" title="TypeFamilies" 		      >&lt;&gt;</a 		      > (a :: <a href="#" title="Data.Kind"@@ -1850,14 +1858,12 @@ 		      ><span class="keyword" 			>type</span 			> <a href="#" title="TypeFamilies"-			>X</a+			>Y</a 			> <a href="#" title="TypeFamilies" 			>&lt;&gt;</a 			> (a :: <a href="#" title="Data.Kind" 			>Type</a-			>) = <a href="#" title="TypeFamilies"-			>X</a-			></div+			>) = a</div 		      ></details 		    ></td 		  ></tr
html-test/ref/TypeFamilies2.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>TypeFamilies2</p@@ -206,15 +212,15 @@ 		      >type</span 		      > <a href="#" title="TypeFamilies2" 		      >Foo</a-		      > <a href="#" title="TypeFamilies2"-		      >W</a+		      > <a href="#" title="TypeFamilies"+		      >X</a 		      ></span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td 		  ><td class="doc" 		  ><p-		    >Should be visible, but with a hidden right hand side</p+		    >External instance</p 		    ></td 		  ></tr 		><tr@@ -224,15 +230,17 @@ 		      >Instance details</summary 		      ><p 		      >Defined in <a href="#"-			>TypeFamilies2</a+			>TypeFamilies</a 			></p 		      > <div class="src" 		      ><span class="keyword" 			>type</span 			> <a href="#" title="TypeFamilies2" 			>Foo</a-			> <a href="#" title="TypeFamilies2"-			>W</a+			> <a href="#" title="TypeFamilies"+			>X</a+			> = <a href="#" title="TypeFamilies"+			>Y</a 			></div 		      ></details 		    ></td@@ -246,15 +254,15 @@ 		      >type</span 		      > <a href="#" title="TypeFamilies2" 		      >Foo</a-		      > <a href="#" title="TypeFamilies"-		      >X</a+		      > <a href="#" title="TypeFamilies2"+		      >W</a 		      ></span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td 		  ><td class="doc" 		  ><p-		    >External instance</p+		    >Should be visible, but with a hidden right hand side</p 		    ></td 		  ></tr 		><tr@@ -264,17 +272,15 @@ 		      >Instance details</summary 		      ><p 		      >Defined in <a href="#"-			>TypeFamilies</a+			>TypeFamilies2</a 			></p 		      > <div class="src" 		      ><span class="keyword" 			>type</span 			> <a href="#" title="TypeFamilies2" 			>Foo</a-			> <a href="#" title="TypeFamilies"-			>X</a-			> = <a href="#" title="TypeFamilies"-			>Y</a+			> <a href="#" title="TypeFamilies2"+			>W</a 			></div 		      ></details 		    ></td@@ -312,16 +318,14 @@ 		      >data</span 		      > <a href="#" title="TypeFamilies2" 		      >Bar</a-		      > <a href="#" title="TypeFamilies2"-		      >W</a+		      > <a href="#" title="TypeFamilies"+		      >Y</a 		      ></span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td-		  ><td class="doc"-		  ><p-		    >Shown because BarX is still exported despite Z being hidden</p-		    ></td+		  ><td class="doc empty"+		  >&nbsp;</td 		  ></tr 		><tr 		><td colspan="2"@@ -330,18 +334,16 @@ 		      >Instance details</summary 		      ><p 		      >Defined in <a href="#"-			>TypeFamilies2</a+			>TypeFamilies</a 			></p 		      > <div class="src" 		      ><span class="keyword" 			>data</span 			> <a href="#" title="TypeFamilies2" 			>Bar</a-			> <a href="#" title="TypeFamilies2"-			>W</a-			> = <a id="v:BarX" class="def"-			>BarX</a-			> Z</div+			> <a href="#" title="TypeFamilies"+			>Y</a+			></div 		      ></details 		    ></td 		  ></tr@@ -354,14 +356,16 @@ 		      >data</span 		      > <a href="#" title="TypeFamilies2" 		      >Bar</a-		      > <a href="#" title="TypeFamilies"-		      >Y</a+		      > <a href="#" title="TypeFamilies2"+		      >W</a 		      ></span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td-		  ><td class="doc empty"-		  >&nbsp;</td+		  ><td class="doc"+		  ><p+		    >Shown because BarX is still exported despite Z being hidden</p+		    ></td 		  ></tr 		><tr 		><td colspan="2"@@ -370,16 +374,18 @@ 		      >Instance details</summary 		      ><p 		      >Defined in <a href="#"-			>TypeFamilies</a+			>TypeFamilies2</a 			></p 		      > <div class="src" 		      ><span class="keyword" 			>data</span 			> <a href="#" title="TypeFamilies2" 			>Bar</a-			> <a href="#" title="TypeFamilies"-			>Y</a-			></div+			> <a href="#" title="TypeFamilies2"+			>W</a+			> = <a id="v:BarX" class="def"+			>BarX</a+			> Z</div 		      ></details 		    ></td 		  ></tr
html-test/ref/TypeFamilies3.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>TypeFamilies3</p@@ -142,9 +148,7 @@ 		      >type</span 		      > <a href="#" title="TypeFamilies3" 		      >Bar</a-		      > <a href="#" title="Data.Int"-		      >Int</a-		      ></span+		      > ()</span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td@@ -165,9 +169,9 @@ 			>type</span 			> <a href="#" title="TypeFamilies3" 			>Bar</a-			> <a href="#" title="Data.Int"+			> () = <a href="#" title="Data.Int" 			>Int</a-			> = ()</div+			></div 		      ></details 		    ></td 		  ></tr@@ -180,7 +184,9 @@ 		      >type</span 		      > <a href="#" title="TypeFamilies3" 		      >Bar</a-		      > ()</span+		      > <a href="#" title="Data.Int"+		      >Int</a+		      ></span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td@@ -201,9 +207,9 @@ 			>type</span 			> <a href="#" title="TypeFamilies3" 			>Bar</a-			> () = <a href="#" title="Data.Int"+			> <a href="#" title="Data.Int" 			>Int</a-			></div+			> = ()</div 		      ></details 		    ></td 		  ></tr@@ -237,12 +243,10 @@ 		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:if:Baz:Baz:1" 		      ></span 		      > <span class="keyword"-		      >newtype</span+		      >data</span 		      > <a href="#" title="TypeFamilies3" 		      >Baz</a-		      > <a href="#" title="Prelude"-		      >Double</a-		      ></span+		      > ()</span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td@@ -260,15 +264,11 @@ 			></p 		      > <div class="src" 		      ><span class="keyword"-			>newtype</span+			>data</span 			> <a href="#" title="TypeFamilies3" 			>Baz</a-			> <a href="#" title="Prelude"-			>Double</a-			> = <a id="v:Baz3" class="def"-			>Baz3</a-			> <a href="#" title="Prelude"-			>Float</a+			> () = <a id="v:Baz1" class="def"+			>Baz1</a 			></div 		      ></details 		    ></td@@ -279,11 +279,11 @@ 		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:if:Baz:Baz:2" 		      ></span 		      > <span class="keyword"-		      >data</span+		      >newtype</span 		      > <a href="#" title="TypeFamilies3" 		      >Baz</a-		      > <a href="#" title="Data.Int"-		      >Int</a+		      > <a href="#" title="Prelude"+		      >Double</a 		      ></span 		    > <a href="#" class="selflink" 		    >#</a@@ -302,15 +302,15 @@ 			></p 		      > <div class="src" 		      ><span class="keyword"-			>data</span+			>newtype</span 			> <a href="#" title="TypeFamilies3" 			>Baz</a-			> <a href="#" title="Data.Int"-			>Int</a-			> = <a id="v:Baz2" class="def"-			>Baz2</a-			> <a href="#" title="Data.Bool"-			>Bool</a+			> <a href="#" title="Prelude"+			>Double</a+			> = <a id="v:Baz3" class="def"+			>Baz3</a+			> <a href="#" title="Prelude"+			>Float</a 			></div 		      ></details 		    ></td@@ -324,7 +324,9 @@ 		      >data</span 		      > <a href="#" title="TypeFamilies3" 		      >Baz</a-		      > ()</span+		      > <a href="#" title="Data.Int"+		      >Int</a+		      ></span 		    > <a href="#" class="selflink" 		    >#</a 		    ></td@@ -345,8 +347,12 @@ 			>data</span 			> <a href="#" title="TypeFamilies3" 			>Baz</a-			> () = <a id="v:Baz1" class="def"-			>Baz1</a+			> <a href="#" title="Data.Int"+			>Int</a+			> = <a id="v:Baz2" class="def"+			>Baz2</a+			> <a href="#" title="Data.Bool"+			>Bool</a 			></div 		      ></details 		    ></td
html-test/ref/TypeOperators.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>TypeOperators</p
html-test/ref/UnboxedStuff.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>UnboxedStuff</p
html-test/ref/Unicode.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Unicode</p
html-test/ref/Unicode2.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Unicode2</p
html-test/ref/Visible.html view
@@ -38,6 +38,12 @@ 	    ><td 	    >Safe-Inferred</td 	    ></tr+	  ><tr+	  ><th+	    >Language</th+	    ><td+	    >Haskell2010</td+	    ></tr 	  ></table 	><p class="caption" 	>Visible</p
html-test/src/A.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module A where  data A = A
html-test/src/B.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module B ( module A, test, reExport, X(..) ) where import A ( A(..), test2, reExport, X(..) )
html-test/src/Bold.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bold where -- | Some __bold text__. --
html-test/src/Bug1.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bug1 where  -- | We should have different anchors for constructors and types\/classes.  This
html-test/src/Bug1004.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bug1004 (Product(..)) where  import Data.Functor.Product
html-test/src/Bug1033.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE StandaloneDeriving #-}
html-test/src/Bug1035.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bug1035 where  data Foo = Bar
html-test/src/Bug1050.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE GADTs #-} {-# LANGUAGE PolyKinds #-} {-# LANGUAGE RankNTypes #-}
html-test/src/Bug1054.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bug1054 where  -- * Header with 'foo' link
html-test/src/Bug1063.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE ConstraintKinds #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE MultiParamTypeClasses #-}
html-test/src/Bug1067A.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# language PatternSynonyms #-} module Bug1067A ( Foo(P) ) where
html-test/src/Bug1067B.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# language PatternSynonyms #-} module Bug1067B ( pattern P ) where
html-test/src/Bug1103.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE GADTs #-} {-# LANGUAGE PolyKinds #-}
+ html-test/src/Bug1206.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE Haskell2010 #-}+{- | Bug 1206+-}++{-# language FlexibleInstances #-}++module Bug1206 where++-- | A simple identity type+data T a = T a+  deriving Show++-- | '<>' = 'T (a + b)'+--+-- Docs for the @Semigroup@ instance of @(T Int)@+--+-- ==== __Examples__+--+-- >>> T 2 <> T (3 :: Int)+-- T 5+instance {-# overlapping #-} Semigroup (T Int) where+  (<>) (T a) (T b) = T (a + b)++-- | '<>' = 'T (a <> b)'+--+-- Docs for the @Semigroup@ instance of @Semigroup a => T a@+--+-- ==== __Examples__+--+-- >>> T (Product 1) <> T (Product 2)+-- T (Product {getProduct = 2})+instance {-# overlapping #-} Semigroup a => Semigroup (T a) where+  (<>) (T a) (T b) = T (a <> b)++-- | 'mempty' = 'T mempty'+--+-- Docs for the @Monoid@ instance of @Monoid a => T a@+--+-- ==== __Examples__+--+-- >>> mempty :: T String+-- T ""+instance Monoid a => Monoid (T a) where+  mempty = T mempty
html-test/src/Bug195.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bug195 where  data T = A { someField :: () -- ^ Doc for someField of A
html-test/src/Bug2.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bug2 ( x ) where import B x :: A
html-test/src/Bug201.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- We test that leading whitespace gets properly dropped (or not!) -- from codeblocks module Bug201 where
html-test/src/Bug253.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- | This module tests that if we're trying to link to a /qualified/ -- identifier that's not in scope, we get an anchor as if it was a -- variable. Previous behaviour was to treat it as a type constructor
html-test/src/Bug26.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- | This module tests the ‘@since …’ annotation. -- -- @since 1.2.3
html-test/src/Bug280.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-| Copyright: Foo,            Bar,
html-test/src/Bug294.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TypeFamilies, FlexibleInstances, GADTs #-} -- This tests that we are able to extract record selectors for -- associated types when the type itself is not exported. Making this
html-test/src/Bug298.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- We introduced a regression in 2.14.x where we don't consider -- identifiers with ^ as valid. We test that the regression goes away -- here. It's a silly typo in the parser, really. Same with ★ which is a valid
html-test/src/Bug3.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bug3 where  -- | /multi-line
html-test/src/Bug308.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- From 2.14.x onwards we were forgetting to swallow ‘#’ as a special -- character resulting in broken anchors if they accured -- mid-paragraph. Here we check that anchors get generated as
html-test/src/Bug308CrossModule.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- Just like Bug308 module but here we test that referring to anchors -- from other modules works. module Bug308CrossModule where
html-test/src/Bug310.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE ExplicitNamespaces #-} module Bug310 ( type (+) ) where
html-test/src/Bug313.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- | The first list is incorrectly numbered as 1. 2. 1.; the second example -- renders fine (1. 2. 3.). --
html-test/src/Bug335.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- Tests for collapsable headers module Bug335 where
html-test/src/Bug4.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bug4 where -- | don't use apostrophe's in the wrong place's foo :: Int
html-test/src/Bug458.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bug458 where  -- | See the defn of @'⊆'@.
html-test/src/Bug466.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE DataKinds, TypeFamilies, StarIsType #-} module Bug466 where
html-test/src/Bug546.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bug546 where  -- |Test:
html-test/src/Bug548.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bug548 (WrappedArrow(..)) where  import Control.Applicative
html-test/src/Bug6.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- | Exporting records. module Bug6( A(A), B(B), b, C(C,c1,c2), D(D,d1), E(E) ) where
html-test/src/Bug613.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bug613  where  import Prelude (Either(Left, Right))
html-test/src/Bug647.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bug647 where  class Bug647 a where
html-test/src/Bug679.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TemplateHaskell #-}  module Bug679 where@@ -13,7 +14,7 @@    let methodN = mkName "foo"     methodTy <- [t| $(varT a) -> $(varT a) |]-   let cla = ClassD [] classN [PlainTV a] [] [SigD methodN methodTy]+   let cla = ClassD [] classN [PlainTV a ()] [] [SigD methodN methodTy]      -- Note that we are /reusing/ the same type variable 'a' as in the class    instanceHead <- [t| $(conT classN) (Bar $(varT a)) |]
html-test/src/Bug7.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE MultiParamTypeClasses #-} -- | This module caused a duplicate instance in the documentation for the Foo -- type.
html-test/src/Bug745.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TemplateHaskell, QuasiQuotes #-}  module Bug574 where
html-test/src/Bug8.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bug8 where  infix -->
html-test/src/Bug85.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE GADTs, KindSignatures #-} module Bug85 where
html-test/src/Bug865.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bug865 where  -- | An emphasized link [yes /this/ is emphasized while this is
html-test/src/Bug923.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE KindSignatures, FlexibleInstances, GADTs, DataKinds #-} module Bug923 where
html-test/src/Bug952.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bug952 where  -- | See 'case', 'of', '--' compared to 'Q.case', 'Q.of', 'Q.--'
html-test/src/Bug953.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bug953 where  {- | A foo
html-test/src/Bug975.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE ExplicitForAll #-} module Bug973 where
html-test/src/BugDeprecated.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module BugDeprecated where  foo :: Int
html-test/src/BugExportHeadings.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- test for #192 module BugExportHeadings ( -- * Foo
html-test/src/Bugs.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Bugs where  data A a = A a (a -> Int)
html-test/src/BundledPatterns.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE DataKinds, GADTs, KindSignatures, PatternSynonyms, TypeOperators,              ViewPatterns #-} module BundledPatterns (Vec(Nil,(:>)), RTree (LR,BR)) where
html-test/src/BundledPatterns2.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE DataKinds, GADTs, KindSignatures, PatternSynonyms, TypeOperators,              ViewPatterns #-} module BundledPatterns2 (Vec((:>), Empty), RTree(..)) where
html-test/src/ConstructorArgs.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE GADTs, PatternSynonyms #-}  module ConstructorArgs (Foo(..), Boo(Foo, Foa, Fo, Fo'), pattern Bo, pattern Bo') where
html-test/src/ConstructorPatternExport.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ExistentialQuantification #-} {-# LANGUAGE GADTs #-}
html-test/src/DefaultAssociatedTypes.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE DefaultSignatures, TypeFamilies #-}  module DefaultAssociatedTypes where
html-test/src/DefaultSignatures.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE DefaultSignatures #-}  module DefaultSignatures where
html-test/src/DeprecatedClass.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module DeprecatedClass where  -- | some class
html-test/src/DeprecatedData.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TypeFamilies #-} module DeprecatedData where
html-test/src/DeprecatedFunction.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module DeprecatedFunction where  -- | some documentation for foo
html-test/src/DeprecatedFunction2.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module DeprecatedFunction2 where
html-test/src/DeprecatedFunction3.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module DeprecatedFunction3 where
html-test/src/DeprecatedModule.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- | Documentation for "DeprecatedModule". module DeprecatedModule {-# DEPRECATED "Use \"Foo\" instead" #-} where
html-test/src/DeprecatedModule2.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module DeprecatedModule2 {-# DEPRECATED "Use Foo instead" #-} where  foo :: Int
html-test/src/DeprecatedNewtype.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module DeprecatedNewtype where  -- | some documentation
html-test/src/DeprecatedReExport.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- | -- What is tested here: --
html-test/src/DeprecatedRecord.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module DeprecatedRecord where  -- | type Foo
html-test/src/DeprecatedTypeFamily.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TypeFamilies #-} module DeprecatedTypeFamily where
html-test/src/DeprecatedTypeSynonym.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-}  module DeprecatedTypeSynonym where
html-test/src/DuplicateRecordFields.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE DuplicateRecordFields #-} module DuplicateRecordFields (RawReplay(..)) where
html-test/src/Examples.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Examples where  -- | Fibonacci number of given 'Integer'.
html-test/src/Extensions.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE Haskell2010, ExplicitForAll, MonomorphismRestriction #-} {-# OPTIONS_HADDOCK show-extensions #-} module Extensions where
html-test/src/FunArgs.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE RankNTypes, DataKinds, TypeFamilies #-} module FunArgs where @@ -22,7 +23,7 @@   -> b -- ^ Second argument   -> c -- ^ Third argument   -> forall d. d -- ^ Result-h = undefined+h _ _ _ = undefined   i :: forall a (b :: ()) d. (d ~ '())
html-test/src/GADTRecords.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE GADTs #-} module GADTRecords (H1(..)) where
html-test/src/GadtConstructorArgs.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE GADTs, PatternSynonyms #-}  module GadtConstructorArgs (Boo(..)) where
html-test/src/Hash.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {- |   Implementation of fixed-size hash tables, with a type   class for constructing hash values for structured types.
html-test/src/Hidden.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# OPTIONS_HADDOCK hide #-}  module Hidden where
html-test/src/HiddenInstances.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- http://trac.haskell.org/haddock/ticket/37 module HiddenInstances (VisibleClass, VisibleData) where
html-test/src/HiddenInstancesA.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# OPTIONS_HADDOCK hide #-} module HiddenInstancesA where
html-test/src/HiddenInstancesB.hs view
@@ -1,2 +1,3 @@+{-# LANGUAGE Haskell2010 #-} module HiddenInstancesB (Foo, Bar) where import HiddenInstancesA
html-test/src/Hyperlinks.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Hyperlinks where  -- |
html-test/src/Identifiers.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TypeOperators #-} module Identifiers where
html-test/src/IgnoreExports.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# OPTIONS_HADDOCK ignore-exports #-} module IgnoreExports (Foo, foo) where
html-test/src/ImplicitParams.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE ImplicitParams, RankNTypes #-} module ImplicitParams where
html-test/src/Instances.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE FlexibleContexts #-}
+ html-test/src/LinearTypes.hs view
@@ -0,0 +1,15 @@+{-# LANGUAGE Haskell2010 #-}+{-# LANGUAGE LinearTypes #-}+module LinearTypes where++-- | Does something unrestricted.+unrestricted :: a -> b+unrestricted = undefined++-- | Does something linear.+linear :: a %1 -> b+linear = linear++-- | Does something polymorphic.+poly :: a %m -> b+poly = poly
html-test/src/Math.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- | Math (display) for 'normalDensity' -- -- \[
html-test/src/Minimal.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- | This tests the new MINIMAL pragma present in GHC 7.8 module Minimal   ( Foo(..)
html-test/src/ModuleWithWarning.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- | Documentation for "ModuleWithWarning". module ModuleWithWarning {-# WARNING "This is an unstable interface.  Prefer functions from \"Prelude\" instead!" #-} where
html-test/src/NamedDoc.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module NamedDoc where  -- $foo bar
html-test/src/NamespacedIdentifiers.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module NamespacedIdentifiers where  -- | A link to:
html-test/src/Nesting.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Nesting where  {-|
html-test/src/NoLayout.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-}  -- Haddock comments are parsed as separate declarations so we -- need to insert a ';' when using them with explicit layout.
html-test/src/NonGreedy.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module NonGreedy where  -- | <url1> <url2>
html-test/src/Operators.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE PatternSynonyms, TypeOperators, TypeFamilies, MultiParamTypeClasses, GADTs #-} {-# LANGUAGE FunctionalDependencies #-}
html-test/src/OrphanInstances.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module OrphanInstances where  import OrphanInstancesType
html-test/src/OrphanInstancesClass.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module OrphanInstancesClass (AClass(..)) where  class AClass a where
html-test/src/OrphanInstancesType.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module OrphanInstancesType (AType(..)) where  data AType = AType Int
html-test/src/PR643.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module PR643 (test) where  import PR643_1
html-test/src/PR643_1.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module PR643_1 where  infixr 5 `test`
html-test/src/PatternSyns.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE ExistentialQuantification, PatternSynonyms, PolyKinds, TypeOperators #-}  -- | Testing some pattern synonyms
html-test/src/PromotedTypes.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE GADTs #-} {-# LANGUAGE KindSignatures #-}
html-test/src/Properties.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Properties where  -- | Fibonacci number of given 'Integer'.
html-test/src/PruneWithWarning.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# OPTIONS_HADDOCK prune #-} -- | -- What is tested here:
html-test/src/QuantifiedConstraints.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE QuantifiedConstraints #-} module QuantifiedConstraints where
html-test/src/QuasiExpr.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TemplateHaskell #-}  -- Used by QuasiQuote. Example taken from the GHC documentation.
html-test/src/QuasiQuote.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TemplateHaskell, QuasiQuotes #-}  -- example taken from the GHC documentation
html-test/src/SectionLabels.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module SectionLabels   (     -- * Section heading#custom#
html-test/src/SpuriousSuperclassConstraints.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE EmptyDataDecls, KindSignatures #-} -- | -- What is tested here:
html-test/src/TH.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TemplateHaskell #-}  module TH where
html-test/src/TH2.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TemplateHaskell #-}  module TH2 where
html-test/src/Table.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- | This tests the table markup module Table   ( tableWithHeader
html-test/src/Test.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} ----------------------------------------------------------------------------- -- | -- Module      :  Test
html-test/src/Threaded.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TemplateHaskell #-}  -- | Ensures haddock built with @-threaded@.
html-test/src/Threaded_TH.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- | Imported by 'Threaded', since a TH splice can't be used in the -- module where it is defined. module Threaded_TH where
html-test/src/Ticket112.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE MagicHash #-}  module Ticket112 where
html-test/src/Ticket61.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Ticket61 (module Ticket61_Hidden) where  import Ticket61_Hidden
html-test/src/Ticket61_Hidden.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# OPTIONS_HADDOCK hide #-}  module Ticket61_Hidden where
html-test/src/Ticket75.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TypeOperators #-} module Ticket75 where
html-test/src/TitledPicture.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module TitledPicture where  -- | Picture for 'foo' without a title <<bar>>
html-test/src/TypeFamilies.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TypeFamilies, UndecidableInstances, PolyKinds, TypeOperators, DataKinds, MultiParamTypeClasses, GADTs #-}  -- | Doc for: module TypeFamilies
html-test/src/TypeFamilies2.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TypeFamilies #-} -- This tests what happens if we have unexported types -- in type instances. The expected behaviour is
html-test/src/TypeFamilies3.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TypeFamilies #-}  module TypeFamilies3 where
html-test/src/TypeOperators.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TypeOperators, GADTs, MultiParamTypeClasses, FlexibleContexts #-} module TypeOperators where
html-test/src/UnboxedStuff.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE UnboxedSums, UnboxedTuples #-} module UnboxedStuff where
html-test/src/Unicode.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Unicode where  -- | γλώσσα
html-test/src/Unicode2.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Unicode2 where  -- | All of the following work with a unicode character ü:
html-test/src/Visible.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Visible where visible :: Int -> Int visible a = a
hypsrc-test/ref/src/Bug1091.html view
@@ -7,11 +7,18 @@   ><body   ><pre     ><span class="hs-pragma"-      >{-# LANGUAGE CPP #-}</span+      >{-# LANGUAGE Haskell2010 #-}</span       ><span       > </span       ><span id="line-2"+      ></span+      ><span class="hs-pragma"+      >{-# LANGUAGE CPP #-}</span+      ><span+      >+</span+      ><span id="line-3"       ></span       ><span class="hs-keyword"       >module</span
hypsrc-test/ref/src/CPP.html view
@@ -7,12 +7,19 @@   ><body   ><pre     ><span class="hs-pragma"-      >{-# LANGUAGE CPP #-}</span+      >{-# LANGUAGE Haskell2010 #-}</span       ><span       > </span       ><span id="line-2"       ></span+      ><span class="hs-pragma"+      >{-# LANGUAGE CPP #-}</span+      ><span+      >+</span+      ><span id="line-3"+      ></span       ><span class="hs-keyword"       >module</span       ><span@@ -31,7 +38,7 @@       ><span       > </span-      ><span id="line-6"+      ><span id="line-7"       ></span       ><span class="annot"       ><a href="CPP.html#foo"@@ -52,7 +59,7 @@       ><span       > </span-      ><span id="line-7"+      ><span id="line-8"       ></span       ><span id="foo"       ><span class="annot"@@ -92,7 +99,7 @@       ><span       > </span-      ><span id="line-13"+      ><span id="line-14"       ></span       ><span class="annot"       ><a href="CPP.html#bar"@@ -113,7 +120,7 @@       ><span       > </span-      ><span id="line-14"+      ><span id="line-15"       ></span       ><span id="bar"       ><span class="annot"@@ -147,26 +154,26 @@       ><span       > </span-      ><span id="line-18"+      ><span id="line-19"       ></span       ><span class="hs-comment"       >-- &quot; single quotes are fine in line comments</span       ><span       > </span-      ><span id="line-19"+      ><span id="line-20"       ></span       ><span class="hs-comment"       >-- {- unclosed block comments are fine in line comments</span       ><span       > </span-      ><span id="line-20"+      ><span id="line-21"       ></span       ><span       > </span-      ><span id="line-21"+      ><span id="line-22"       ></span       ><span class="hs-comment"       >-- Multiline CPP is also fine</span@@ -178,7 +185,7 @@       ><span       > </span-      ><span id="line-25"+      ><span id="line-26"       ></span       ><span class="annot"       ><a href="CPP.html#baz"@@ -199,7 +206,7 @@       ><span       > </span-      ><span id="line-26"+      ><span id="line-27"       ></span       ><span id="baz"       ><span class="annot"@@ -228,7 +235,7 @@       ><span       > </span-      ><span id="line-27"+      ><span id="line-28"       ></span       ></pre     ></body
hypsrc-test/ref/src/Classes.html view
@@ -6,7 +6,14 @@     ></head   ><body   ><pre-    ><span class="hs-keyword"+    ><span class="hs-pragma"+      >{-# LANGUAGE Haskell2010 #-}</span+      ><span+      >+</span+      ><span id="line-2"+      ></span+      ><span class="hs-keyword"       >module</span       ><span       > </span@@ -19,17 +26,17 @@       ><span       > </span-      ><span id="line-2"+      ><span id="line-3"       ></span       ><span       > </span-      ><span id="line-3"+      ><span id="line-4"       ></span       ><span       > </span-      ><span id="line-4"+      ><span id="line-5"       ></span       ><span class="hs-keyword"       >class</span@@ -60,7 +67,7 @@       ><span       > </span-      ><span id="line-5"+      ><span id="line-6"       ></span       ><span       >    </span@@ -97,7 +104,7 @@       ><span       > </span-      ><span id="line-6"+      ><span id="line-7"       ></span       ><span       >    </span@@ -148,12 +155,12 @@       ><span       > </span-      ><span id="line-7"+      ><span id="line-8"       ></span       ><span       > </span-      ><span id="line-8"+      ><span id="line-9"       ></span       ><span class="hs-keyword"       >instance</span@@ -178,7 +185,7 @@       ><span       > </span-      ><span id="line-9"+      ><span id="line-10"       ></span       ><span       >    </span@@ -210,7 +217,7 @@       ><span       > </span-      ><span id="line-10"+      ><span id="line-11"       ></span       ><span       >    </span@@ -273,12 +280,12 @@       ><span       > </span-      ><span id="line-11"+      ><span id="line-12"       ></span       ><span       > </span-      ><span id="line-12"+      ><span id="line-13"       ></span       ><span id=""       ><span class="hs-keyword"@@ -310,7 +317,7 @@ 	><span 	> </span-	><span id="line-13"+	><span id="line-14" 	></span 	><span 	>    </span@@ -342,7 +349,7 @@ 	><span 	> </span-	><span id="line-14"+	><span id="line-15" 	></span 	><span 	>    </span@@ -392,17 +399,17 @@       ><span       > </span-      ><span id="line-15"+      ><span id="line-16"       ></span       ><span       > </span-      ><span id="line-16"+      ><span id="line-17"       ></span       ><span       > </span-      ><span id="line-17"+      ><span id="line-18"       ></span       ><span class="hs-keyword"       >class</span@@ -453,7 +460,7 @@       ><span       > </span-      ><span id="line-18"+      ><span id="line-19"       ></span       ><span       >    </span@@ -506,7 +513,7 @@       ><span       > </span-      ><span id="line-19"+      ><span id="line-20"       ></span       ><span       >    </span@@ -597,12 +604,12 @@       ><span       > </span-      ><span id="line-20"+      ><span id="line-21"       ></span       ><span       > </span-      ><span id="line-21"+      ><span id="line-22"       ></span       ><span       >    </span@@ -645,7 +652,7 @@       ><span       > </span-      ><span id="line-22"+      ><span id="line-23"       ></span       ><span       >    </span@@ -750,12 +757,12 @@       ><span       > </span-      ><span id="line-23"+      ><span id="line-24"       ></span       ><span       > </span-      ><span id="line-24"+      ><span id="line-25"       ></span       ><span class="hs-keyword"       >instance</span@@ -782,7 +789,7 @@       ><span       > </span-      ><span id="line-25"+      ><span id="line-26"       ></span       ><span       >    </span@@ -814,12 +821,12 @@       ><span       > </span-      ><span id="line-26"+      ><span id="line-27"       ></span       ><span       > </span-      ><span id="line-27"+      ><span id="line-28"       ></span       ><span id=""       ><span class="hs-keyword"@@ -853,7 +860,7 @@ 	><span 	> </span-	><span id="line-28"+	><span id="line-29" 	></span 	><span 	>    </span@@ -896,17 +903,17 @@       ><span       > </span-      ><span id="line-29"+      ><span id="line-30"       ></span       ><span       > </span-      ><span id="line-30"+      ><span id="line-31"       ></span       ><span       > </span-      ><span id="line-31"+      ><span id="line-32"       ></span       ><span class="hs-keyword"       >class</span@@ -937,7 +944,7 @@       ><span       > </span-      ><span id="line-32"+      ><span id="line-33"       ></span       ><span       >    </span@@ -1072,12 +1079,12 @@       ><span       > </span-      ><span id="line-33"+      ><span id="line-34"       ></span       ><span       > </span-      ><span id="line-34"+      ><span id="line-35"       ></span       ><span class="hs-keyword"       >instance</span@@ -1102,14 +1109,14 @@       ><span       > </span-      ><span id="line-35"+      ><span id="line-36"       ></span       ><span       >    </span       ><span id=""       ><span class="annot" 	><span class="annottext"-	  >plugh :: Either a a -&gt; Either b b -&gt; Either (a -&gt; b) (b -&gt; a)+	  >plugh :: forall a b. Either a a -&gt; Either b b -&gt; Either (a -&gt; b) (b -&gt; a) </span 	  ><a href="#" 	  ><span class="hs-identifier hs-var hs-var hs-var hs-var"@@ -1198,7 +1205,7 @@       ><span       > </span-      ><span id="line-36"+      ><span id="line-37"       ></span       ><span       >    </span@@ -1289,7 +1296,7 @@       ><span       > </span-      ><span id="line-37"+      ><span id="line-38"       ></span       ><span       >    </span@@ -1380,7 +1387,7 @@       ><span       > </span-      ><span id="line-38"+      ><span id="line-39"       ></span       ><span       >    </span@@ -1471,7 +1478,7 @@       ><span       > </span-      ><span id="line-39"+      ><span id="line-40"       ></span       ></pre     ></body
hypsrc-test/ref/src/Constructors.html view
@@ -6,7 +6,14 @@     ></head   ><body   ><pre-    ><span class="hs-keyword"+    ><span class="hs-pragma"+      >{-# LANGUAGE Haskell2010 #-}</span+      ><span+      >+</span+      ><span id="line-2"+      ></span+      ><span class="hs-keyword"       >module</span       ><span       > </span@@ -19,17 +26,17 @@       ><span       > </span-      ><span id="line-2"+      ><span id="line-3"       ></span       ><span       > </span-      ><span id="line-3"+      ><span id="line-4"       ></span       ><span       > </span-      ><span id="line-4"+      ><span id="line-5"       ></span       ><span class="hs-keyword"       >data</span@@ -46,7 +53,7 @@       ><span       > </span-      ><span id="line-5"+      ><span id="line-6"       ></span       ><span       >    </span@@ -65,7 +72,7 @@       ><span       > </span-      ><span id="line-6"+      ><span id="line-7"       ></span       ><span       >    </span@@ -84,7 +91,7 @@       ><span       > </span-      ><span id="line-7"+      ><span id="line-8"       ></span       ><span       >    </span@@ -117,12 +124,12 @@       ><span       > </span-      ><span id="line-8"+      ><span id="line-9"       ></span       ><span       > </span-      ><span id="line-9"+      ><span id="line-10"       ></span       ><span class="hs-keyword"       >newtype</span@@ -189,17 +196,17 @@       ><span       > </span-      ><span id="line-10"+      ><span id="line-11"       ></span       ><span       > </span-      ><span id="line-11"+      ><span id="line-12"       ></span       ><span       > </span-      ><span id="line-12"+      ><span id="line-13"       ></span       ><span class="annot"       ><a href="Constructors.html#bar"@@ -242,7 +249,7 @@       ><span       > </span-      ><span id="line-13"+      ><span id="line-14"       ></span       ><span id="bar"       ><span class="annot"@@ -273,7 +280,7 @@       ><span       > </span-      ><span id="line-14"+      ><span id="line-15"       ></span       ><span id="baz"       ><span class="annot"@@ -304,7 +311,7 @@       ><span       > </span-      ><span id="line-15"+      ><span id="line-16"       ></span       ><span id="quux"       ><span class="annot"@@ -355,17 +362,17 @@       ><span       > </span-      ><span id="line-16"+      ><span id="line-17"       ></span       ><span       > </span-      ><span id="line-17"+      ><span id="line-18"       ></span       ><span       > </span-      ><span id="line-18"+      ><span id="line-19"       ></span       ><span class="annot"       ><a href="Constructors.html#unfoo"@@ -398,7 +405,7 @@       ><span       > </span-      ><span id="line-19"+      ><span id="line-20"       ></span       ><span id="unfoo"       ><span class="annot"@@ -438,7 +445,7 @@       ><span       > </span-      ><span id="line-20"+      ><span id="line-21"       ></span       ><span class="annot"       ><a href="Constructors.html#unfoo"@@ -473,7 +480,7 @@       ><span       > </span-      ><span id="line-21"+      ><span id="line-22"       ></span       ><span class="annot"       ><a href="Constructors.html#unfoo"@@ -588,17 +595,17 @@       ><span       > </span-      ><span id="line-22"+      ><span id="line-23"       ></span       ><span       > </span-      ><span id="line-23"+      ><span id="line-24"       ></span       ><span       > </span-      ><span id="line-24"+      ><span id="line-25"       ></span       ><span class="annot"       ><a href="Constructors.html#unnorf"@@ -637,7 +644,7 @@       ><span       > </span-      ><span id="line-25"+      ><span id="line-26"       ></span       ><span id="unnorf"       ><span class="annot"@@ -723,7 +730,7 @@       ><span       > </span-      ><span id="line-26"+      ><span id="line-27"       ></span       ><span class="annot"       ><a href="Constructors.html#unnorf"@@ -814,7 +821,7 @@       ><span       > </span-      ><span id="line-27"+      ><span id="line-28"       ></span       ><span class="annot"       ><a href="Constructors.html#unnorf"@@ -848,17 +855,17 @@       ><span       > </span-      ><span id="line-28"+      ><span id="line-29"       ></span       ><span       > </span-      ><span id="line-29"+      ><span id="line-30"       ></span       ><span       > </span-      ><span id="line-30"+      ><span id="line-31"       ></span       ><span class="annot"       ><a href="Constructors.html#unnorf%27"@@ -891,7 +898,7 @@       ><span       > </span-      ><span id="line-31"+      ><span id="line-32"       ></span       ><span id="unnorf%27"       ><span class="annot"@@ -1047,7 +1054,7 @@       ><span       > </span-      ><span id="line-32"+      ><span id="line-33"       ></span       ><span       >    </span@@ -1148,7 +1155,7 @@       ><span       > </span-      ><span id="line-33"+      ><span id="line-34"       ></span       ><span       >  </span@@ -1157,7 +1164,7 @@       ><span       > </span-      ><span id="line-34"+      ><span id="line-35"       ></span       ><span       >    </span@@ -1278,7 +1285,7 @@       ><span       > </span-      ><span id="line-35"+      ><span id="line-36"       ></span       ><span       >    </span@@ -1383,7 +1390,7 @@       ><span       > </span-      ><span id="line-36"+      ><span id="line-37"       ></span       ></pre     ></body
hypsrc-test/ref/src/Identifiers.html view
@@ -6,7 +6,14 @@     ></head   ><body   ><pre-    ><span class="hs-keyword"+    ><span class="hs-pragma"+      >{-# LANGUAGE Haskell2010 #-}</span+      ><span+      >+</span+      ><span id="line-2"+      ></span+      ><span class="hs-keyword"       >module</span       ><span       > </span@@ -19,17 +26,17 @@       ><span       > </span-      ><span id="line-2"+      ><span id="line-3"       ></span       ><span       > </span-      ><span id="line-3"+      ><span id="line-4"       ></span       ><span       > </span-      ><span id="line-4"+      ><span id="line-5"       ></span       ><span class="annot"       ><a href="Identifiers.html#foo"@@ -90,7 +97,7 @@       ><span       > </span-      ><span id="line-5"+      ><span id="line-6"       ></span       ><span id="foo"       ><span class="annot"@@ -253,7 +260,7 @@       ><span       > </span-      ><span id="line-6"+      ><span id="line-7"       ></span       ><span id="bar"       ><span class="annot"@@ -416,7 +423,7 @@       ><span       > </span-      ><span id="line-7"+      ><span id="line-8"       ></span       ><span id="baz"       ><span class="annot"@@ -557,12 +564,12 @@       ><span       > </span-      ><span id="line-8"+      ><span id="line-9"       ></span       ><span       > </span-      ><span id="line-9"+      ><span id="line-10"       ></span       ><span class="annot"       ><a href="Identifiers.html#quux"@@ -593,7 +600,7 @@       ><span       > </span-      ><span id="line-10"+      ><span id="line-11"       ></span       ><span id="quux"       ><span class="annot"@@ -711,12 +718,12 @@       ><span       > </span-      ><span id="line-11"+      ><span id="line-12"       ></span       ><span       > </span-      ><span id="line-12"+      ><span id="line-13"       ></span       ><span class="annot"       ><a href="Identifiers.html#norf"@@ -767,7 +774,7 @@       ><span       > </span-      ><span id="line-13"+      ><span id="line-14"       ></span       ><span id="norf"       ><span class="annot"@@ -822,7 +829,7 @@       ><span       > </span-      ><span id="line-14"+      ><span id="line-15"       ></span       ><span       >    </span@@ -887,7 +894,7 @@       ><span       > </span-      ><span id="line-15"+      ><span id="line-16"       ></span       ><span       >    </span@@ -952,7 +959,7 @@       ><span       > </span-      ><span id="line-16"+      ><span id="line-17"       ></span       ><span       >    </span@@ -1017,7 +1024,7 @@       ><span       > </span-      ><span id="line-17"+      ><span id="line-18"       ></span       ><span       >    </span@@ -1101,17 +1108,17 @@       ><span       > </span-      ><span id="line-18"+      ><span id="line-19"       ></span       ><span       > </span-      ><span id="line-19"+      ><span id="line-20"       ></span       ><span       > </span-      ><span id="line-20"+      ><span id="line-21"       ></span       ><span class="annot"       ><a href="Identifiers.html#main"@@ -1138,7 +1145,7 @@       ><span       > </span-      ><span id="line-21"+      ><span id="line-22"       ></span       ><span id="main"       ><span class="annot"@@ -1162,7 +1169,7 @@       ><span       > </span-      ><span id="line-22"+      ><span id="line-23"       ></span       ><span       >    </span@@ -1239,7 +1246,7 @@       ><span       > </span-      ><span id="line-23"+      ><span id="line-24"       ></span       ><span       >    </span@@ -1305,7 +1312,7 @@       ><span       > </span-      ><span id="line-24"+      ><span id="line-25"       ></span       ><span       >    </span@@ -1393,7 +1400,7 @@       ><span       > </span-      ><span id="line-25"+      ><span id="line-26"       ></span       ><span       >  </span@@ -1402,7 +1409,7 @@       ><span       > </span-      ><span id="line-26"+      ><span id="line-27"       ></span       ><span       >    </span@@ -1433,7 +1440,7 @@       ><span       > </span-      ><span id="line-27"+      ><span id="line-28"       ></span       ><span       >    </span@@ -1464,7 +1471,7 @@       ><span       > </span-      ><span id="line-28"+      ><span id="line-29"       ></span       ><span       >    </span@@ -1495,7 +1502,7 @@       ><span       > </span-      ><span id="line-29"+      ><span id="line-30"       ></span       ></pre     ></body
hypsrc-test/ref/src/LinkingIdentifiers.html view
@@ -6,41 +6,48 @@     ></head   ><body   ><pre-    ><span class="hs-comment"-      >-- Tests that the identifers/operators are properly linked even when:</span+    ><span class="hs-pragma"+      >{-# LANGUAGE Haskell2010 #-}</span       ><span       > </span       ><span id="line-2"       ></span       ><span class="hs-comment"-      >--</span+      >-- Tests that the identifers/operators are properly linked even when:</span       ><span       > </span       ><span id="line-3"       ></span       ><span class="hs-comment"-      >--   * backquoted, parenthesized, vanilla</span+      >--</span       ><span       > </span       ><span id="line-4"       ></span       ><span class="hs-comment"-      >--   * qualified, not-qualified</span+      >--   * backquoted, parenthesized, vanilla</span       ><span       > </span       ><span id="line-5"       ></span       ><span class="hs-comment"-      >--</span+      >--   * qualified, not-qualified</span       ><span       > </span       ><span id="line-6"       ></span+      ><span class="hs-comment"+      >--</span+      ><span+      >+</span+      ><span id="line-7"+      ></span       ><span class="hs-keyword"       >module</span       ><span@@ -54,12 +61,12 @@       ><span       > </span-      ><span id="line-7"+      ><span id="line-8"       ></span       ><span       > </span-      ><span id="line-8"+      ><span id="line-9"       ></span       ><span class="annot"       ><a href="LinkingIdentifiers.html#ident"@@ -100,7 +107,7 @@       ><span       > </span-      ><span id="line-9"+      ><span id="line-10"       ></span       ><span id=""       ><span class="annot"@@ -222,7 +229,7 @@       ><span       > </span-      ><span id="line-10"+      ><span id="line-11"       ></span       ><span class="annot"       ><a href="LinkingIdentifiers.html#ident"@@ -331,12 +338,12 @@       ><span       > </span-      ><span id="line-11"+      ><span id="line-12"       ></span       ><span       > </span-      ><span id="line-12"+      ><span id="line-13"       ></span       ><span class="annot"       ><a href="LinkingIdentifiers.html#%2B%2B%3A%2B%2B"@@ -377,7 +384,7 @@       ><span       > </span-      ><span id="line-13"+      ><span id="line-14"       ></span       ><span id=""       ><span class="annot"@@ -499,7 +506,7 @@       ><span       > </span-      ><span id="line-14"+      ><span id="line-15"       ></span       ><span class="annot"       ><a href="LinkingIdentifiers.html#%2B%2B%3A%2B%2B"@@ -608,7 +615,7 @@       ><span       > </span-      ><span id="line-15"+      ><span id="line-16"       ></span       ></pre     ></body
hypsrc-test/ref/src/Literals.html view
@@ -6,7 +6,14 @@     ></head   ><body   ><pre-    ><span class="hs-keyword"+    ><span class="hs-pragma"+      >{-# LANGUAGE Haskell2010 #-}</span+      ><span+      >+</span+      ><span id="line-2"+      ></span+      ><span class="hs-keyword"       >module</span       ><span       > </span@@ -19,17 +26,17 @@       ><span       > </span-      ><span id="line-2"+      ><span id="line-3"       ></span       ><span       > </span-      ><span id="line-3"+      ><span id="line-4"       ></span       ><span       > </span-      ><span id="line-4"+      ><span id="line-5"       ></span       ><span class="annot"       ><a href="Literals.html#str"@@ -50,7 +57,7 @@       ><span       > </span-      ><span id="line-5"+      ><span id="line-6"       ></span       ><span id="str"       ><span class="annot"@@ -79,12 +86,12 @@       ><span       > </span-      ><span id="line-6"+      ><span id="line-7"       ></span       ><span       > </span-      ><span id="line-7"+      ><span id="line-8"       ></span       ><span id=""       ><span class="annot"@@ -127,12 +134,12 @@       ><span       > </span-      ><span id="line-8"+      ><span id="line-9"       ></span       ><span id="num"       ><span class="annot" 	><span class="annottext"-	  >num :: a+	  >num :: forall a. Num a =&gt; a </span 	  ><a href="Literals.html#num" 	  ><span class="hs-identifier hs-var hs-var"@@ -232,12 +239,12 @@       ><span       > </span-      ><span id="line-9"+      ><span id="line-10"       ></span       ><span       > </span-      ><span id="line-10"+      ><span id="line-11"       ></span       ><span id=""       ><span class="annot"@@ -280,12 +287,12 @@       ><span       > </span-      ><span id="line-11"+      ><span id="line-12"       ></span       ><span id="frac"       ><span class="annot" 	><span class="annottext"-	  >frac :: a+	  >frac :: forall a. Fractional a =&gt; a </span 	  ><a href="Literals.html#frac" 	  ><span class="hs-identifier hs-var hs-var"@@ -309,12 +316,12 @@       ><span       > </span-      ><span id="line-12"+      ><span id="line-13"       ></span       ><span       > </span-      ><span id="line-13"+      ><span id="line-14"       ></span       ><span id=""       ><span class="annot"@@ -355,12 +362,12 @@       ><span       > </span-      ><span id="line-14"+      ><span id="line-15"       ></span       ><span id="list"       ><span class="annot" 	><span class="annottext"-	  >list :: [[[[a]]]]+	  >list :: forall a. [[[[a]]]] </span 	  ><a href="Literals.html#list" 	  ><span class="hs-identifier hs-var hs-var"@@ -413,12 +420,12 @@       ><span       > </span-      ><span id="line-15"+      ><span id="line-16"       ></span       ><span       > </span-      ><span id="line-16"+      ><span id="line-17"       ></span       ><span class="annot"       ><a href="Literals.html#pair"@@ -479,7 +486,7 @@       ><span       > </span-      ><span id="line-17"+      ><span id="line-18"       ></span       ><span id="pair"       ><span class="annot"@@ -545,7 +552,7 @@       ><span       > </span-      ><span id="line-18"+      ><span id="line-19"       ></span       ></pre     ></body
hypsrc-test/ref/src/Operators.html view
@@ -6,7 +6,14 @@     ></head   ><body   ><pre-    ><span class="hs-keyword"+    ><span class="hs-pragma"+      >{-# LANGUAGE Haskell2010 #-}</span+      ><span+      >+</span+      ><span id="line-2"+      ></span+      ><span class="hs-keyword"       >module</span       ><span       > </span@@ -19,17 +26,17 @@       ><span       > </span-      ><span id="line-2"+      ><span id="line-3"       ></span       ><span       > </span-      ><span id="line-3"+      ><span id="line-4"       ></span       ><span       > </span-      ><span id="line-4"+      ><span id="line-5"       ></span       ><span id=""       ><span class="annot"@@ -90,7 +97,7 @@       ><span       > </span-      ><span id="line-5"+      ><span id="line-6"       ></span       ><span id=""       ><span class="annot"@@ -108,7 +115,7 @@       ><span id="%2B%2B%2B"       ><span class="annot" 	><span class="annottext"-	  >+++ :: [a] -&gt; [a] -&gt; [a]+	  >+++ :: forall a. [a] -&gt; [a] -&gt; [a] </span 	  ><a href="Operators.html#%2B%2B%2B" 	  ><span class="hs-operator hs-var hs-var"@@ -189,12 +196,12 @@       ><span       > </span-      ><span id="line-6"+      ><span id="line-7"       ></span       ><span       > </span-      ><span id="line-7"+      ><span id="line-8"       ></span       ><span id=""       ><span class="annot"@@ -255,7 +262,7 @@       ><span       > </span-      ><span id="line-8"+      ><span id="line-9"       ></span       ><span id=""       ><span class="annot"@@ -273,7 +280,7 @@       ><span id="%24%24%24"       ><span class="annot" 	><span class="annottext"-	  >$$$ :: [a] -&gt; [a] -&gt; [a]+	  >$$$ :: forall a. [a] -&gt; [a] -&gt; [a] </span 	  ><a href="Operators.html#%24%24%24" 	  ><span class="hs-operator hs-var hs-var"@@ -335,12 +342,12 @@       ><span       > </span-      ><span id="line-9"+      ><span id="line-10"       ></span       ><span       > </span-      ><span id="line-10"+      ><span id="line-11"       ></span       ><span id=""       ><span class="annot"@@ -401,12 +408,12 @@       ><span       > </span-      ><span id="line-11"+      ><span id="line-12"       ></span       ><span id="%2A%2A%2A"       ><span class="annot" 	><span class="annottext"-	  >*** :: [a] -&gt; [a] -&gt; [a]+	  >*** :: forall a. [a] -&gt; [a] -&gt; [a] </span 	  ><a href="Operators.html#%2A%2A%2A" 	  ><span class="hs-operator hs-var hs-var"@@ -451,7 +458,7 @@       ><span       > </span-      ><span id="line-12"+      ><span id="line-13"       ></span       ><span class="annot"       ><a href="Operators.html#%2A%2A%2A"@@ -568,12 +575,12 @@       ><span       > </span-      ><span id="line-13"+      ><span id="line-14"       ></span       ><span       > </span-      ><span id="line-14"+      ><span id="line-15"       ></span       ><span id=""       ><span class="annot"@@ -638,7 +645,7 @@       ><span       > </span-      ><span id="line-15"+      ><span id="line-16"       ></span       ><span id=""       ><span class="annot"@@ -656,7 +663,7 @@       ><span id="%2A%2F%5C%2A"       ><span class="annot" 	><span class="annottext"-	  >*/\* :: [[a]] -&gt; [a] -&gt; [a]+	  >*/\* :: forall a. [[a]] -&gt; [a] -&gt; [a] </span 	  ><a href="Operators.html#%2A%2F%5C%2A" 	  ><span class="hs-operator hs-var hs-var"@@ -732,12 +739,12 @@       ><span       > </span-      ><span id="line-16"+      ><span id="line-17"       ></span       ><span       > </span-      ><span id="line-17"+      ><span id="line-18"       ></span       ><span id=""       ><span class="annot"@@ -810,7 +817,7 @@       ><span       > </span-      ><span id="line-18"+      ><span id="line-19"       ></span       ><span id=""       ><span class="annot"@@ -828,7 +835,7 @@       ><span id="%2A%2A%2F%5C%2A%2A"       ><span class="annot" 	><span class="annottext"-	  >**/\** :: [[a]] -&gt; [[a]] -&gt; [[a]]+	  >**/\** :: forall a. [[a]] -&gt; [[a]] -&gt; [[a]] </span 	  ><a href="Operators.html#%2A%2A%2F%5C%2A%2A" 	  ><span class="hs-operator hs-var hs-var"@@ -954,17 +961,17 @@       ><span       > </span-      ><span id="line-19"+      ><span id="line-20"       ></span       ><span       > </span-      ><span id="line-20"+      ><span id="line-21"       ></span       ><span       > </span-      ><span id="line-21"+      ><span id="line-22"       ></span       ><span id=""       ><span id=""@@ -1047,7 +1054,7 @@       ><span       > </span-      ><span id="line-22"+      ><span id="line-23"       ></span       ><span id=""       ><span class="annot"@@ -1065,7 +1072,7 @@       ><span id="%23.%23"       ><span class="annot" 	><span class="annottext"-	  >#.# :: a -&gt; b -&gt; c -&gt; (a, b)+	  >#.# :: forall a b c. a -&gt; b -&gt; c -&gt; (a, b) </span 	  ><a href="Operators.html#%23.%23" 	  ><span class="hs-operator hs-var hs-var"@@ -1141,7 +1148,7 @@       ><span       > </span-      ><span id="line-23"+      ><span id="line-24"       ></span       ></pre     ></body
hypsrc-test/ref/src/Polymorphism.html view
@@ -7,19 +7,21 @@   ><body   ><pre     ><span class="hs-pragma"-      >{-# LANGUAGE RankNTypes #-}</span+      >{-# LANGUAGE Haskell2010 #-}</span       ><span       > </span       ><span id="line-2"       ></span       ><span class="hs-pragma"-      >{-# LANGUAGE ScopedTypeVariables #-}</span+      >{-# LANGUAGE RankNTypes #-}</span       ><span       > </span       ><span id="line-3"       ></span+      ><span class="hs-pragma"+      >{-# LANGUAGE ScopedTypeVariables #-}</span       ><span       > </span@@ -30,6 +32,11 @@ </span       ><span id="line-5"       ></span+      ><span+      >+</span+      ><span id="line-6"+      ></span       ><span class="hs-keyword"       >module</span       ><span@@ -43,17 +50,17 @@       ><span       > </span-      ><span id="line-6"+      ><span id="line-7"       ></span       ><span       > </span-      ><span id="line-7"+      ><span id="line-8"       ></span       ><span       > </span-      ><span id="line-8"+      ><span id="line-9"       ></span       ><span id=""       ><span class="annot"@@ -102,12 +109,12 @@       ><span       > </span-      ><span id="line-9"+      ><span id="line-10"       ></span       ><span id="foo"       ><span class="annot" 	><span class="annottext"-	  >foo :: a -&gt; a -&gt; a+	  >foo :: forall a. a -&gt; a -&gt; a </span 	  ><a href="Polymorphism.html#foo" 	  ><span class="hs-identifier hs-var hs-var"@@ -132,12 +139,12 @@       ><span       > </span-      ><span id="line-10"+      ><span id="line-11"       ></span       ><span       > </span-      ><span id="line-11"+      ><span id="line-12"       ></span       ><span class="annot"       ><a href="Polymorphism.html#foo%27"@@ -200,12 +207,12 @@       ><span       > </span-      ><span id="line-12"+      ><span id="line-13"       ></span       ><span id="foo%27"       ><span class="annot" 	><span class="annottext"-	  >foo' :: a -&gt; a -&gt; a+	  >foo' :: forall a. a -&gt; a -&gt; a </span 	  ><a href="Polymorphism.html#foo%27" 	  ><span class="hs-identifier hs-var hs-var"@@ -230,12 +237,12 @@       ><span       > </span-      ><span id="line-13"+      ><span id="line-14"       ></span       ><span       > </span-      ><span id="line-14"+      ><span id="line-15"       ></span       ><span id=""       ><span id=""@@ -300,12 +307,12 @@       ><span       > </span-      ><span id="line-15"+      ><span id="line-16"       ></span       ><span id="bar"       ><span class="annot" 	><span class="annottext"-	  >bar :: a -&gt; b -&gt; (a, b)+	  >bar :: forall a b. a -&gt; b -&gt; (a, b) </span 	  ><a href="Polymorphism.html#bar" 	  ><span class="hs-identifier hs-var hs-var"@@ -330,12 +337,12 @@       ><span       > </span-      ><span id="line-16"+      ><span id="line-17"       ></span       ><span       > </span-      ><span id="line-17"+      ><span id="line-18"       ></span       ><span class="annot"       ><a href="Polymorphism.html#bar%27"@@ -422,12 +429,12 @@       ><span       > </span-      ><span id="line-18"+      ><span id="line-19"       ></span       ><span id="bar%27"       ><span class="annot" 	><span class="annottext"-	  >bar' :: a -&gt; b -&gt; (a, b)+	  >bar' :: forall a b. a -&gt; b -&gt; (a, b) </span 	  ><a href="Polymorphism.html#bar%27" 	  ><span class="hs-identifier hs-var hs-var"@@ -452,12 +459,12 @@       ><span       > </span-      ><span id="line-19"+      ><span id="line-20"       ></span       ><span       > </span-      ><span id="line-20"+      ><span id="line-21"       ></span       ><span id=""       ><span id=""@@ -552,12 +559,12 @@       ><span       > </span-      ><span id="line-21"+      ><span id="line-22"       ></span       ><span id="baz"       ><span class="annot" 	><span class="annottext"-	  >baz :: a -&gt; (a -&gt; [a -&gt; a] -&gt; b) -&gt; b+	  >baz :: forall a b. a -&gt; (a -&gt; [a -&gt; a] -&gt; b) -&gt; b </span 	  ><a href="Polymorphism.html#baz" 	  ><span class="hs-identifier hs-var hs-var"@@ -582,12 +589,12 @@       ><span       > </span-      ><span id="line-22"+      ><span id="line-23"       ></span       ><span       > </span-      ><span id="line-23"+      ><span id="line-24"       ></span       ><span class="annot"       ><a href="Polymorphism.html#baz%27"@@ -704,12 +711,12 @@       ><span       > </span-      ><span id="line-24"+      ><span id="line-25"       ></span       ><span id="baz%27"       ><span class="annot" 	><span class="annottext"-	  >baz' :: a -&gt; (a -&gt; [a -&gt; a] -&gt; b) -&gt; b+	  >baz' :: forall a b. a -&gt; (a -&gt; [a -&gt; a] -&gt; b) -&gt; b </span 	  ><a href="Polymorphism.html#baz%27" 	  ><span class="hs-identifier hs-var hs-var"@@ -734,12 +741,12 @@       ><span       > </span-      ><span id="line-25"+      ><span id="line-26"       ></span       ><span       > </span-      ><span id="line-26"+      ><span id="line-27"       ></span       ><span id=""       ><span class="annot"@@ -820,12 +827,12 @@       ><span       > </span-      ><span id="line-27"+      ><span id="line-28"       ></span       ><span id="quux"       ><span class="annot" 	><span class="annottext"-	  >quux :: a -&gt; (forall a. a -&gt; a) -&gt; a+	  >quux :: forall a. a -&gt; (forall a. a -&gt; a) -&gt; a </span 	  ><a href="Polymorphism.html#quux" 	  ><span class="hs-identifier hs-var hs-var"@@ -889,12 +896,12 @@       ><span       > </span-      ><span id="line-28"+      ><span id="line-29"       ></span       ><span       > </span-      ><span id="line-29"+      ><span id="line-30"       ></span       ><span class="annot"       ><a href="Polymorphism.html#quux%27"@@ -989,12 +996,12 @@       ><span       > </span-      ><span id="line-30"+      ><span id="line-31"       ></span       ><span id="quux%27"       ><span class="annot" 	><span class="annottext"-	  >quux' :: a -&gt; (forall a. a -&gt; a) -&gt; a+	  >quux' :: forall a. a -&gt; (forall a. a -&gt; a) -&gt; a </span 	  ><a href="Polymorphism.html#quux%27" 	  ><span class="hs-identifier hs-var hs-var"@@ -1058,17 +1065,17 @@       ><span       > </span-      ><span id="line-31"+      ><span id="line-32"       ></span       ><span       > </span-      ><span id="line-32"+      ><span id="line-33"       ></span       ><span       > </span-      ><span id="line-33"+      ><span id="line-34"       ></span       ><span id=""       ><span class="annot"@@ -1135,12 +1142,12 @@       ><span       > </span-      ><span id="line-34"+      ><span id="line-35"       ></span       ><span id="num"       ><span class="annot" 	><span class="annottext"-	  >num :: a -&gt; a -&gt; a+	  >num :: forall a. Num a =&gt; a -&gt; a -&gt; a </span 	  ><a href="Polymorphism.html#num" 	  ><span class="hs-identifier hs-var hs-var"@@ -1165,12 +1172,12 @@       ><span       > </span-      ><span id="line-35"+      ><span id="line-36"       ></span       ><span       > </span-      ><span id="line-36"+      ><span id="line-37"       ></span       ><span class="annot"       ><a href="Polymorphism.html#num%27"@@ -1251,12 +1258,12 @@       ><span       > </span-      ><span id="line-37"+      ><span id="line-38"       ></span       ><span id="num%27"       ><span class="annot" 	><span class="annottext"-	  >num' :: a -&gt; a -&gt; a+	  >num' :: forall a. Num a =&gt; a -&gt; a -&gt; a </span 	  ><a href="Polymorphism.html#num%27" 	  ><span class="hs-identifier hs-var hs-var"@@ -1281,12 +1288,12 @@       ><span       > </span-      ><span id="line-38"+      ><span id="line-39"       ></span       ><span       > </span-      ><span id="line-39"+      ><span id="line-40"       ></span       ><span id=""       ><span id=""@@ -1397,12 +1404,12 @@       ><span       > </span-      ><span id="line-40"+      ><span id="line-41"       ></span       ><span id="eq"       ><span class="annot" 	><span class="annottext"-	  >eq :: [a] -&gt; [b] -&gt; (a, b)+	  >eq :: forall a b. (Eq a, Eq b) =&gt; [a] -&gt; [b] -&gt; (a, b) </span 	  ><a href="Polymorphism.html#eq" 	  ><span class="hs-identifier hs-var hs-var"@@ -1427,12 +1434,12 @@       ><span       > </span-      ><span id="line-41"+      ><span id="line-42"       ></span       ><span       > </span-      ><span id="line-42"+      ><span id="line-43"       ></span       ><span class="annot"       ><a href="Polymorphism.html#eq%27"@@ -1565,12 +1572,12 @@       ><span       > </span-      ><span id="line-43"+      ><span id="line-44"       ></span       ><span id="eq%27"       ><span class="annot" 	><span class="annottext"-	  >eq' :: [a] -&gt; [b] -&gt; (a, b)+	  >eq' :: forall a b. (Eq a, Eq b) =&gt; [a] -&gt; [b] -&gt; (a, b) </span 	  ><a href="Polymorphism.html#eq%27" 	  ><span class="hs-identifier hs-var hs-var"@@ -1595,12 +1602,12 @@       ><span       > </span-      ><span id="line-44"+      ><span id="line-45"       ></span       ><span       > </span-      ><span id="line-45"+      ><span id="line-46"       ></span       ><span id=""       ><span id=""@@ -1689,12 +1696,12 @@       ><span       > </span-      ><span id="line-46"+      ><span id="line-47"       ></span       ><span id="mon"       ><span class="annot" 	><span class="annottext"-	  >mon :: (a -&gt; m a) -&gt; m a+	  >mon :: forall (m :: * -&gt; *) a. Monad m =&gt; (a -&gt; m a) -&gt; m a </span 	  ><a href="Polymorphism.html#mon" 	  ><span class="hs-identifier hs-var hs-var"@@ -1719,12 +1726,12 @@       ><span       > </span-      ><span id="line-47"+      ><span id="line-48"       ></span       ><span       > </span-      ><span id="line-48"+      ><span id="line-49"       ></span       ><span class="annot"       ><a href="Polymorphism.html#mon%27"@@ -1835,12 +1842,12 @@       ><span       > </span-      ><span id="line-49"+      ><span id="line-50"       ></span       ><span id="mon%27"       ><span class="annot" 	><span class="annottext"-	  >mon' :: (a -&gt; m a) -&gt; m a+	  >mon' :: forall (m :: * -&gt; *) a. Monad m =&gt; (a -&gt; m a) -&gt; m a </span 	  ><a href="Polymorphism.html#mon%27" 	  ><span class="hs-identifier hs-var hs-var"@@ -1865,17 +1872,17 @@       ><span       > </span-      ><span id="line-50"+      ><span id="line-51"       ></span       ><span       > </span-      ><span id="line-51"+      ><span id="line-52"       ></span       ><span       > </span-      ><span id="line-52"+      ><span id="line-53"       ></span       ><span id=""       ><span class="annot"@@ -1974,12 +1981,12 @@       ><span       > </span-      ><span id="line-53"+      ><span id="line-54"       ></span       ><span id="norf"       ><span class="annot" 	><span class="annottext"-	  >norf :: a -&gt; (forall a. Ord a =&gt; a -&gt; a) -&gt; a+	  >norf :: forall a. a -&gt; (forall a. Ord a =&gt; a -&gt; a) -&gt; a </span 	  ><a href="Polymorphism.html#norf" 	  ><span class="hs-identifier hs-var hs-var"@@ -2031,12 +2038,12 @@       ><span       > </span-      ><span id="line-54"+      ><span id="line-55"       ></span       ><span       > </span-      ><span id="line-55"+      ><span id="line-56"       ></span       ><span class="annot"       ><a href="Polymorphism.html#norf%27"@@ -2149,12 +2156,12 @@       ><span       > </span-      ><span id="line-56"+      ><span id="line-57"       ></span       ><span id="norf%27"       ><span class="annot" 	><span class="annottext"-	  >norf' :: a -&gt; (forall a. Ord a =&gt; a -&gt; a) -&gt; a+	  >norf' :: forall a. a -&gt; (forall a. Ord a =&gt; a -&gt; a) -&gt; a </span 	  ><a href="Polymorphism.html#norf%27" 	  ><span class="hs-identifier hs-var hs-var"@@ -2206,17 +2213,17 @@       ><span       > </span-      ><span id="line-57"+      ><span id="line-58"       ></span       ><span       > </span-      ><span id="line-58"+      ><span id="line-59"       ></span       ><span       > </span-      ><span id="line-59"+      ><span id="line-60"       ></span       ><span class="annot"       ><a href="Polymorphism.html#plugh"@@ -2267,12 +2274,12 @@       ><span       > </span-      ><span id="line-60"+      ><span id="line-61"       ></span       ><span id="plugh"       ><span class="annot" 	><span class="annottext"-	  >plugh :: a -&gt; a+	  >plugh :: forall a. a -&gt; a </span 	  ><a href="Polymorphism.html#plugh" 	  ><span class="hs-identifier hs-var hs-var"@@ -2323,12 +2330,12 @@       ><span       > </span-      ><span id="line-61"+      ><span id="line-62"       ></span       ><span       > </span-      ><span id="line-62"+      ><span id="line-63"       ></span       ><span class="annot"       ><a href="Polymorphism.html#thud"@@ -2431,12 +2438,12 @@       ><span       > </span-      ><span id="line-63"+      ><span id="line-64"       ></span       ><span id="thud"       ><span class="annot" 	><span class="annottext"-	  >thud :: (a -&gt; b) -&gt; a -&gt; (a, b)+	  >thud :: forall a b. (a -&gt; b) -&gt; a -&gt; (a, b) </span 	  ><a href="Polymorphism.html#thud" 	  ><span class="hs-identifier hs-var hs-var"@@ -2477,7 +2484,7 @@       ><span       > </span-      ><span id="line-64"+      ><span id="line-65"       ></span       ><span       >    </span@@ -2548,7 +2555,7 @@       ><span       > </span-      ><span id="line-65"+      ><span id="line-66"       ></span       ><span       >  </span@@ -2557,7 +2564,7 @@       ><span       > </span-      ><span id="line-66"+      ><span id="line-67"       ></span       ><span       >    </span@@ -2641,7 +2648,7 @@       ><span       > </span-      ><span id="line-67"+      ><span id="line-68"       ></span       ></pre     ></body
hypsrc-test/ref/src/PositionPragmas.html view
@@ -6,7 +6,14 @@     ></head   ><body   ><pre-    ><span class="hs-keyword"+    ><span class="hs-pragma"+      >{-# LANGUAGE Haskell2010 #-}</span+      ><span+      >+</span+      ><span id="line-2"+      ></span+      ><span class="hs-keyword"       >module</span       ><span       > </span@@ -19,12 +26,12 @@       ><span       > </span-      ><span id="line-2"+      ><span id="line-3"       ></span       ><span       > </span-      ><span id="line-3"+      ><span id="line-4"       ></span       ><span class="hs-pragma"       >{-# LINE 8 &quot;hypsrc-test/src/PositionPragmas.hs&quot; #-}</span
hypsrc-test/ref/src/Quasiquoter.html view
@@ -6,7 +6,14 @@     ></head   ><body   ><pre-    ><span class="hs-keyword"+    ><span class="hs-pragma"+      >{-# LANGUAGE Haskell2010 #-}</span+      ><span+      >+</span+      ><span id="line-2"+      ></span+      ><span class="hs-keyword"       >module</span       ><span       > </span@@ -35,12 +42,12 @@       ><span       > </span-      ><span id="line-2"+      ><span id="line-3"       ></span       ><span       > </span-      ><span id="line-3"+      ><span id="line-4"       ></span       ><span class="hs-keyword"       >import</span@@ -53,7 +60,7 @@       ><span       > </span-      ><span id="line-4"+      ><span id="line-5"       ></span       ><span class="hs-keyword"       >import</span@@ -66,19 +73,19 @@       ><span       > </span-      ><span id="line-5"+      ><span id="line-6"       ></span       ><span       > </span-      ><span id="line-6"+      ><span id="line-7"       ></span       ><span class="hs-comment"       >-- | Quoter for constructing multiline string literals</span       ><span       > </span-      ><span id="line-7"+      ><span id="line-8"       ></span       ><span class="annot"       ><a href="Quasiquoter.html#string"@@ -99,7 +106,7 @@       ><span       > </span-      ><span id="line-8"+      ><span id="line-9"       ></span       ><span id="string"       ><span class="annot"@@ -132,7 +139,7 @@       ><span       > </span-      ><span id="line-9"+      ><span id="line-10"       ></span       ><span       >  </span@@ -202,7 +209,7 @@       ><span       > </span-      ><span id="line-10"+      ><span id="line-11"       ></span       ><span       >  </span@@ -236,7 +243,7 @@       ><span       > </span-      ><span id="line-11"+      ><span id="line-12"       ></span       ><span       >  </span@@ -270,7 +277,7 @@       ><span       > </span-      ><span id="line-12"+      ><span id="line-13"       ></span       ><span       >  </span@@ -304,7 +311,7 @@       ><span       > </span-      ><span id="line-13"+      ><span id="line-14"       ></span       ><span       >  </span@@ -313,7 +320,7 @@       ><span       > </span-      ><span id="line-14"+      ><span id="line-15"       ></span       ><span       >  </span@@ -322,7 +329,7 @@       ><span       > </span-      ><span id="line-15"+      ><span id="line-16"       ></span       ><span       >    </span@@ -365,14 +372,14 @@       ><span       > </span-      ><span id="line-16"+      ><span id="line-17"       ></span       ><span       >    </span       ><span id=""       ><span class="annot" 	><span class="annottext"-	  >invalidDomain :: String -&gt; Q a+	  >invalidDomain :: forall a. String -&gt; Q a </span 	  ><a href="#" 	  ><span class="hs-identifier hs-var hs-var"@@ -415,7 +422,7 @@       ><span       > </span-      ><span id="line-17"+      ><span id="line-18"       ></span       ></pre     ></body
hypsrc-test/ref/src/Records.html view
@@ -7,19 +7,21 @@   ><body   ><pre     ><span class="hs-pragma"-      >{-# LANGUAGE NamedFieldPuns #-}</span+      >{-# LANGUAGE Haskell2010 #-}</span       ><span       > </span       ><span id="line-2"       ></span       ><span class="hs-pragma"-      >{-# LANGUAGE RecordWildCards #-}</span+      >{-# LANGUAGE NamedFieldPuns #-}</span       ><span       > </span       ><span id="line-3"       ></span+      ><span class="hs-pragma"+      >{-# LANGUAGE RecordWildCards #-}</span       ><span       > </span@@ -30,6 +32,11 @@ </span       ><span id="line-5"       ></span+      ><span+      >+</span+      ><span id="line-6"+      ></span       ><span class="hs-keyword"       >module</span       ><span@@ -43,17 +50,17 @@       ><span       > </span-      ><span id="line-6"+      ><span id="line-7"       ></span       ><span       > </span-      ><span id="line-7"+      ><span id="line-8"       ></span       ><span       > </span-      ><span id="line-8"+      ><span id="line-9"       ></span       ><span class="hs-keyword"       >data</span@@ -84,7 +91,7 @@       ><span       > </span-      ><span id="line-9"+      ><span id="line-10"       ></span       ><span       >    </span@@ -118,7 +125,7 @@       ><span       > </span-      ><span id="line-10"+      ><span id="line-11"       ></span       ><span       >    </span@@ -152,7 +159,7 @@       ><span       > </span-      ><span id="line-11"+      ><span id="line-12"       ></span       ><span       >    </span@@ -161,17 +168,17 @@       ><span       > </span-      ><span id="line-12"+      ><span id="line-13"       ></span       ><span       > </span-      ><span id="line-13"+      ><span id="line-14"       ></span       ><span       > </span-      ><span id="line-14"+      ><span id="line-15"       ></span       ><span class="annot"       ><a href="Records.html#point"@@ -214,7 +221,7 @@       ><span       > </span-      ><span id="line-15"+      ><span id="line-16"       ></span       ><span id="point"       ><span class="annot"@@ -333,17 +340,17 @@       ><span       > </span-      ><span id="line-16"+      ><span id="line-17"       ></span       ><span       > </span-      ><span id="line-17"+      ><span id="line-18"       ></span       ><span       > </span-      ><span id="line-18"+      ><span id="line-19"       ></span       ><span class="annot"       ><a href="Records.html#lengthSqr"@@ -376,7 +383,7 @@       ><span       > </span-      ><span id="line-19"+      ><span id="line-20"       ></span       ><span id="lengthSqr"       ><span class="annot"@@ -548,12 +555,12 @@       ><span       > </span-      ><span id="line-20"+      ><span id="line-21"       ></span       ><span       > </span-      ><span id="line-21"+      ><span id="line-22"       ></span       ><span class="annot"       ><a href="Records.html#lengthSqr%27"@@ -586,7 +593,7 @@       ><span       > </span-      ><span id="line-22"+      ><span id="line-23"       ></span       ><span id="lengthSqr%27"       ><span class="annot"@@ -732,17 +739,17 @@       ><span       > </span-      ><span id="line-23"+      ><span id="line-24"       ></span       ><span       > </span-      ><span id="line-24"+      ><span id="line-25"       ></span       ><span       > </span-      ><span id="line-25"+      ><span id="line-26"       ></span       ><span class="annot"       ><a href="Records.html#translateX"@@ -797,7 +804,7 @@       ><span       > </span-      ><span id="line-26"+      ><span id="line-27"       ></span       ><span id="translateX"       ><span class="annot"@@ -920,7 +927,7 @@       ><span       > </span-      ><span id="line-27"+      ><span id="line-28"       ></span       ><span id="translateY"       ><span class="annot"@@ -1043,12 +1050,12 @@       ><span       > </span-      ><span id="line-28"+      ><span id="line-29"       ></span       ><span       > </span-      ><span id="line-29"+      ><span id="line-30"       ></span       ><span class="annot"       ><a href="Records.html#translate"@@ -1103,7 +1110,7 @@       ><span       > </span-      ><span id="line-30"+      ><span id="line-31"       ></span       ><span id="translate"       ><span class="annot"@@ -1162,7 +1169,7 @@       ><span       > </span-      ><span id="line-31"+      ><span id="line-32"       ></span       ><span       >    </span@@ -1189,7 +1196,7 @@       ><span       > </span-      ><span id="line-32"+      ><span id="line-33"       ></span       ><span       >  </span@@ -1198,7 +1205,7 @@       ><span       > </span-      ><span id="line-33"+      ><span id="line-34"       ></span       ><span       >    </span@@ -1267,7 +1274,7 @@       ><span       > </span-      ><span id="line-34"+      ><span id="line-35"       ></span       ><span       >    </span@@ -1433,7 +1440,7 @@       ><span       > </span-      ><span id="line-35"+      ><span id="line-36"       ></span       ></pre     ></body
hypsrc-test/ref/src/TemplateHaskellQuasiquotes.html view
@@ -7,17 +7,24 @@   ><body   ><pre     ><span class="hs-pragma"-      >{-# LANGUAGE TemplateHaskell #-}</span+      >{-# LANGUAGE Haskell2010 #-}</span       ><span       > </span       ><span id="line-2"       ></span+      ><span class="hs-pragma"+      >{-# LANGUAGE TemplateHaskell #-}</span       ><span       > </span       ><span id="line-3"       ></span+      ><span+      >+</span+      ><span id="line-4"+      ></span       ><span class="hs-keyword"       >module</span       ><span@@ -31,12 +38,12 @@       ><span       > </span-      ><span id="line-4"+      ><span id="line-5"       ></span       ><span       > </span-      ><span id="line-5"+      ><span id="line-6"       ></span       ><span class="hs-keyword"       >import</span@@ -49,12 +56,12 @@       ><span       > </span-      ><span id="line-6"+      ><span id="line-7"       ></span       ><span       > </span-      ><span id="line-7"+      ><span id="line-8"       ></span       ><span class="annot"       ><a href="TemplateHaskellQuasiquotes.html#aDecl"@@ -75,7 +82,7 @@       ><span       > </span-      ><span id="line-8"+      ><span id="line-9"       ></span       ><span id="aDecl"       ><span class="annot"@@ -99,7 +106,7 @@       ><span       > </span-      ><span id="line-9"+      ><span id="line-10"       ></span       ><span       >    </span@@ -111,8 +118,10 @@       >::</span       ><span       > </span-      ><span class=""-      >$aType</span+      ><span class="hs-special"+      >$</span+      ><span class="hs-identifier"+      >aType</span       ><span       > </span       ><span class="hs-glyph"@@ -142,7 +151,7 @@       ><span       > </span-      ><span id="line-10"+      ><span id="line-11"       ></span       ><span       >    </span@@ -150,20 +159,24 @@       >bar</span       ><span       > </span-      ><span class=""-      >$aPattern</span+      ><span class="hs-special"+      >$</span+      ><span class="hs-identifier"+      >aPattern</span       ><span       > </span       ><span class="hs-glyph"       >=</span       ><span       > </span-      ><span class=""-      >$anExpression</span+      ><span class="hs-special"+      >$</span+      ><span class="hs-identifier"+      >anExpression</span       ><span       > </span-      ><span id="line-11"+      ><span id="line-12"       ></span       ><span       >  </span@@ -172,12 +185,12 @@       ><span       > </span-      ><span id="line-12"+      ><span id="line-13"       ></span       ><span       > </span-      ><span id="line-13"+      ><span id="line-14"       ></span       ><span class="annot"       ><a href="TemplateHaskellQuasiquotes.html#aPattern"@@ -198,7 +211,7 @@       ><span       > </span-      ><span id="line-14"+      ><span id="line-15"       ></span       ><span id="aPattern"       ><span class="annot"@@ -222,7 +235,7 @@       ><span       > </span-      ><span id="line-15"+      ><span id="line-16"       ></span       ><span       >    </span@@ -235,7 +248,7 @@       ><span       > </span-      ><span id="line-16"+      ><span id="line-17"       ></span       ><span       >    </span@@ -248,7 +261,7 @@       ><span       > </span-      ><span id="line-17"+      ><span id="line-18"       ></span       ><span       >    </span@@ -271,7 +284,7 @@       ><span       > </span-      ><span id="line-18"+      ><span id="line-19"       ></span       ><span       >    </span@@ -283,9 +296,11 @@       >(</span       ><span       > </span-      ><span class=""-      >$aNumberPattern</span       ><span class="hs-special"+      >$</span+      ><span class="hs-identifier"+      >aNumberPattern</span+      ><span class="hs-special"       >,</span       ><span       > </span@@ -296,7 +311,7 @@       ><span       > </span-      ><span id="line-19"+      ><span id="line-20"       ></span       ><span       >    </span@@ -305,7 +320,7 @@       ><span       > </span-      ><span id="line-20"+      ><span id="line-21"       ></span       ><span       >  </span@@ -314,12 +329,12 @@       ><span       > </span-      ><span id="line-21"+      ><span id="line-22"       ></span       ><span       > </span-      ><span id="line-22"+      ><span id="line-23"       ></span       ><span class="annot"       ><a href="TemplateHaskellQuasiquotes.html#aNumberPattern"@@ -340,7 +355,7 @@       ><span       > </span-      ><span id="line-23"+      ><span id="line-24"       ></span       ><span id="aNumberPattern"       ><span class="annot"@@ -364,32 +379,24 @@       ><span       > </span-      ><span id="line-24"+      ><span id="line-25"       ></span       ><span       >    </span       ><span class="hs-identifier"       >w</span-      ><span-      > </span       ><span class="hs-glyph"       >@</span-      ><span-      > </span       ><span class="hs-identifier"       >v</span-      ><span-      > </span       ><span class="hs-glyph"       >@</span-      ><span-      > </span       ><span class="hs-number"       >4.5</span       ><span       > </span-      ><span id="line-25"+      ><span id="line-26"       ></span       ><span       >  </span@@ -398,12 +405,12 @@       ><span       > </span-      ><span id="line-26"+      ><span id="line-27"       ></span       ><span       > </span-      ><span id="line-27"+      ><span id="line-28"       ></span       ><span class="annot"       ><a href="TemplateHaskellQuasiquotes.html#anExpression"@@ -434,7 +441,7 @@       ><span       > </span-      ><span id="line-28"+      ><span id="line-29"       ></span       ><span id="anExpression"       ><span class="annot"@@ -458,7 +465,7 @@       ><span       > </span-      ><span id="line-29"+      ><span id="line-30"       ></span       ><span       >    </span@@ -476,9 +483,11 @@       >+</span       ><span       > </span-      ><span class=""-      >$anExpression2</span       ><span class="hs-special"+      >$</span+      ><span class="hs-identifier"+      >anExpression2</span+      ><span class="hs-special"       >,</span       ><span       > </span@@ -493,7 +502,7 @@       ><span       > </span-      ><span id="line-30"+      ><span id="line-31"       ></span       ><span       >  </span@@ -502,7 +511,7 @@       ><span       > </span-      ><span id="line-31"+      ><span id="line-32"       ></span       ><span id="anExpression2"       ><span class="annot"@@ -550,12 +559,12 @@       ><span       > </span-      ><span id="line-32"+      ><span id="line-33"       ></span       ><span       > </span-      ><span id="line-33"+      ><span id="line-34"       ></span       ><span class="annot"       ><a href="TemplateHaskellQuasiquotes.html#aType"@@ -576,7 +585,7 @@       ><span       > </span-      ><span id="line-34"+      ><span id="line-35"       ></span       ><span id="aType"       ><span class="annot"@@ -600,7 +609,7 @@       ><span       > </span-      ><span id="line-35"+      ><span id="line-36"       ></span       ><span       >    </span@@ -627,7 +636,7 @@       ><span       > </span-      ><span id="line-36"+      ><span id="line-37"       ></span       ><span       >  </span@@ -636,22 +645,22 @@       ><span       > </span-      ><span id="line-37"+      ><span id="line-38"       ></span       ><span       > </span-      ><span id="line-38"+      ><span id="line-39"       ></span       ><span       > </span-      ><span id="line-39"+      ><span id="line-40"       ></span       ><span       > </span-      ><span id="line-40"+      ><span id="line-41"       ></span       ></pre     ></body
hypsrc-test/ref/src/TemplateHaskellSplices.html view
@@ -7,12 +7,19 @@   ><body   ><pre     ><span class="hs-pragma"-      >{-# LANGUAGE TemplateHaskell #-}</span+      >{-# LANGUAGE Haskell2010 #-}</span       ><span       > </span       ><span id="line-2"       ></span+      ><span class="hs-pragma"+      >{-# LANGUAGE TemplateHaskell #-}</span+      ><span+      >+</span+      ><span id="line-3"+      ></span       ><span class="hs-keyword"       >module</span       ><span@@ -26,12 +33,12 @@       ><span       > </span-      ><span id="line-3"+      ><span id="line-4"       ></span       ><span       > </span-      ><span id="line-4"+      ><span id="line-5"       ></span       ><span class="hs-keyword"       >import</span@@ -46,37 +53,32 @@       ><span       > </span-      ><span id="line-5"+      ><span id="line-6"       ></span       ><span       > </span-      ><span id="line-6"+      ><span id="line-7"       ></span       ><span class="hs-special"-      >$(</span+      >$</span       ><span id="bar"-      ><span class="annot"-	><span class="annottext"-	  >[(Double, String)] -&gt; [(Int, String)]-</span-	  ><a href="TemplateHaskellSplices.html#bar"-	  ><span class="hs-identifier hs-type hs-var"-	    >aDecl</span-	    ></a-	  ></span-	></span       ><span class="hs-special"-      >)</span+	>(</span+	><span class="hs-identifier"+	>aDecl</span+	><span class="hs-special"+	>)</span+	></span       ><span       > </span-      ><span id="line-7"+      ><span id="line-8"       ></span       ><span       > </span-      ><span id="line-8"+      ><span id="line-9"       ></span       ><span id="foo"       ><span class="annot"@@ -106,29 +108,17 @@       ><span       > </span       ><span class="hs-special"-      >$(</span-      ><span class="annot"-      ><span class="annottext"-	>Double-Integer-Double -&gt; Integer-Integer -&gt; Integer -&gt; Integer-forall a. Floating a =&gt; a-forall a. Num a =&gt; a -&gt; a -&gt; a-forall a b. (RealFrac a, Integral b) =&gt; a -&gt; b-+ :: forall a. Num a =&gt; a -&gt; a -&gt; a-round :: forall a b. (RealFrac a, Integral b) =&gt; a -&gt; b-pi :: forall a. Floating a =&gt; a-</span-	><span class="hs-identifier hs-var hs-var hs-var"-	>anExpression2</span-	></span+      >$</span       ><span class="hs-special"+      >(</span+      ><span class="hs-identifier"+      >anExpression2</span+      ><span class="hs-special"       >)</span       ><span       > </span-      ><span id="line-9"+      ><span id="line-10"       ></span       ></pre     ></body
hypsrc-test/ref/src/Types.html view
@@ -7,12 +7,14 @@   ><body   ><pre     ><span class="hs-pragma"-      >{-# LANGUAGE TypeFamilies #-}</span+      >{-# LANGUAGE Haskell2010 #-}</span       ><span       > </span       ><span id="line-2"       ></span+      ><span class="hs-pragma"+      >{-# LANGUAGE TypeFamilies #-}</span       ><span       > </span@@ -23,6 +25,11 @@ </span       ><span id="line-4"       ></span+      ><span+      >+</span+      ><span id="line-5"+      ></span       ><span class="hs-keyword"       >module</span       ><span@@ -36,17 +43,17 @@       ><span       > </span-      ><span id="line-5"+      ><span id="line-6"       ></span       ><span       > </span-      ><span id="line-6"+      ><span id="line-7"       ></span       ><span       > </span-      ><span id="line-7"+      ><span id="line-8"       ></span       ><span class="hs-keyword"       >data</span@@ -91,12 +98,12 @@       ><span       > </span-      ><span id="line-8"+      ><span id="line-9"       ></span       ><span       > </span-      ><span id="line-9"+      ><span id="line-10"       ></span       ><span class="hs-keyword"       >newtype</span@@ -133,12 +140,12 @@       ><span       > </span-      ><span id="line-10"+      ><span id="line-11"       ></span       ><span       > </span-      ><span id="line-11"+      ><span id="line-12"       ></span       ><span class="hs-keyword"       >type</span@@ -181,7 +188,7 @@       ><span       > </span-      ><span id="line-12"+      ><span id="line-13"       ></span       ><span class="hs-keyword"       >type</span@@ -224,17 +231,17 @@       ><span       > </span-      ><span id="line-13"+      ><span id="line-14"       ></span       ><span       > </span-      ><span id="line-14"+      ><span id="line-15"       ></span       ><span       > </span-      ><span id="line-15"+      ><span id="line-16"       ></span       ><span class="hs-keyword"       >data</span@@ -275,12 +282,12 @@       ><span       > </span-      ><span id="line-16"+      ><span id="line-17"       ></span       ><span       > </span-      ><span id="line-17"+      ><span id="line-18"       ></span       ><span class="hs-keyword"       >data</span@@ -347,7 +354,7 @@       ><span       > </span-      ><span id="line-18"+      ><span id="line-19"       ></span       ><span class="hs-keyword"       >data</span@@ -414,17 +421,17 @@       ><span       > </span-      ><span id="line-19"+      ><span id="line-20"       ></span       ><span       > </span-      ><span id="line-20"+      ><span id="line-21"       ></span       ><span       > </span-      ><span id="line-21"+      ><span id="line-22"       ></span       ><span class="hs-keyword"       >type</span@@ -465,12 +472,12 @@       ><span       > </span-      ><span id="line-22"+      ><span id="line-23"       ></span       ><span       > </span-      ><span id="line-23"+      ><span id="line-24"       ></span       ><span class="hs-keyword"       >type</span@@ -533,7 +540,7 @@       ><span       > </span-      ><span id="line-24"+      ><span id="line-25"       ></span       ><span class="hs-keyword"       >type</span@@ -596,17 +603,17 @@       ><span       > </span-      ><span id="line-25"+      ><span id="line-26"       ></span       ><span       > </span-      ><span id="line-26"+      ><span id="line-27"       ></span       ><span       > </span-      ><span id="line-27"+      ><span id="line-28"       ></span       ><span class="annot"       ><a href="Types.html#norf1"@@ -655,7 +662,7 @@       ><span       > </span-      ><span id="line-28"+      ><span id="line-29"       ></span       ><span id="norf1"       ><span class="annot"@@ -699,8 +706,11 @@       ><span       > </span       ><span class="annot"-      ><a href="Types.html#Bar"-	><span class="hs-identifier hs-type"+      ><span class="annottext"+	>Quux+</span+	><a href="Types.html#Bar"+	><span class="hs-identifier hs-var" 	  >Bar</span 	  ></a 	></span@@ -722,7 +732,7 @@       ><span       > </span-      ><span id="line-29"+      ><span id="line-30"       ></span       ><span class="annot"       ><a href="Types.html#norf1"@@ -761,8 +771,11 @@       ><span       > </span       ><span class="annot"-      ><a href="Types.html#Baz"-	><span class="hs-identifier hs-type"+      ><span class="annottext"+	>Quux+</span+	><a href="Types.html#Baz"+	><span class="hs-identifier hs-var" 	  >Baz</span 	  ></a 	></span@@ -784,12 +797,12 @@       ><span       > </span-      ><span id="line-30"+      ><span id="line-31"       ></span       ><span       > </span-      ><span id="line-31"+      ><span id="line-32"       ></span       ><span class="annot"       ><a href="Types.html#norf2"@@ -838,7 +851,7 @@       ><span       > </span-      ><span id="line-32"+      ><span id="line-33"       ></span       ><span id="norf2"       ><span class="annot"@@ -864,8 +877,11 @@       ><span       > </span       ><span class="annot"-      ><a href="Types.html#Bar"-	><span class="hs-identifier hs-type"+      ><span class="annottext"+	>Quux+</span+	><a href="Types.html#Bar"+	><span class="hs-identifier hs-var" 	  >Bar</span 	  ></a 	></span@@ -905,7 +921,7 @@       ><span       > </span-      ><span id="line-33"+      ><span id="line-34"       ></span       ><span class="annot"       ><a href="Types.html#norf2"@@ -926,8 +942,11 @@       ><span       > </span       ><span class="annot"-      ><a href="Types.html#Baz"-	><span class="hs-identifier hs-type"+      ><span class="annottext"+	>Quux+</span+	><a href="Types.html#Baz"+	><span class="hs-identifier hs-var" 	  >Baz</span 	  ></a 	></span@@ -967,17 +986,17 @@       ><span       > </span-      ><span id="line-34"+      ><span id="line-35"       ></span       ><span       > </span-      ><span id="line-35"+      ><span id="line-36"       ></span       ><span       > </span-      ><span id="line-36"+      ><span id="line-37"       ></span       ><span class="annot"       ><a href="Types.html#norf1%27"@@ -1026,7 +1045,7 @@       ><span       > </span-      ><span id="line-37"+      ><span id="line-38"       ></span       ><span id="norf1%27"       ><span class="annot"@@ -1060,8 +1079,11 @@       ><span       > </span       ><span class="annot"-      ><a href="Types.html#Bar"-	><span class="hs-identifier hs-type"+      ><span class="annottext"+	>Quux+</span+	><a href="Types.html#Bar"+	><span class="hs-identifier hs-var" 	  >Bar</span 	  ></a 	></span@@ -1083,7 +1105,7 @@       ><span       > </span-      ><span id="line-38"+      ><span id="line-39"       ></span       ><span class="annot"       ><a href="Types.html#norf1%27"@@ -1112,8 +1134,11 @@       ><span       > </span       ><span class="annot"-      ><a href="Types.html#Baz"-	><span class="hs-identifier hs-type"+      ><span class="annottext"+	>Quux+</span+	><a href="Types.html#Baz"+	><span class="hs-identifier hs-var" 	  >Baz</span 	  ></a 	></span@@ -1135,12 +1160,12 @@       ><span       > </span-      ><span id="line-39"+      ><span id="line-40"       ></span       ><span       > </span-      ><span id="line-40"+      ><span id="line-41"       ></span       ><span class="annot"       ><a href="Types.html#norf2%27"@@ -1189,7 +1214,7 @@       ><span       > </span-      ><span id="line-41"+      ><span id="line-42"       ></span       ><span id="norf2%27"       ><span class="annot"@@ -1207,8 +1232,11 @@       ><span class="hs-special"       >(</span       ><span class="annot"-      ><a href="Types.html#Bar"-	><span class="hs-identifier hs-type"+      ><span class="annottext"+	>Quux+</span+	><a href="Types.html#Bar"+	><span class="hs-identifier hs-var" 	  >Bar</span 	  ></a 	></span@@ -1246,7 +1274,7 @@       ><span       > </span-      ><span id="line-42"+      ><span id="line-43"       ></span       ><span class="annot"       ><a href="Types.html#norf2%27"@@ -1259,8 +1287,11 @@       ><span class="hs-special"       >(</span       ><span class="annot"-      ><a href="Types.html#Baz"-	><span class="hs-identifier hs-type"+      ><span class="annottext"+	>Quux+</span+	><a href="Types.html#Baz"+	><span class="hs-identifier hs-var" 	  >Baz</span 	  ></a 	></span@@ -1298,7 +1329,7 @@       ><span       > </span-      ><span id="line-43"+      ><span id="line-44"       ></span       ></pre     ></body
hypsrc-test/ref/src/UsingQuasiquotes.html view
@@ -7,12 +7,19 @@   ><body   ><pre     ><span class="hs-pragma"-      >{-# LANGUAGE QuasiQuotes #-}</span+      >{-# LANGUAGE Haskell2010 #-}</span       ><span       > </span       ><span id="line-2"       ></span+      ><span class="hs-pragma"+      >{-# LANGUAGE QuasiQuotes #-}</span+      ><span+      >+</span+      ><span id="line-3"+      ></span       ><span class="hs-keyword"       >module</span       ><span@@ -26,12 +33,12 @@       ><span       > </span-      ><span id="line-3"+      ><span id="line-4"       ></span       ><span       > </span-      ><span id="line-4"+      ><span id="line-5"       ></span       ><span class="hs-keyword"       >import</span@@ -46,12 +53,12 @@       ><span       > </span-      ><span id="line-5"+      ><span id="line-6"       ></span       ><span       > </span-      ><span id="line-6"+      ><span id="line-7"       ></span       ><span id="baz"       ><span class="annot"@@ -96,7 +103,7 @@       ><span       > </span-      ><span id="line-10"+      ><span id="line-11"       ></span       ></pre     ></body
hypsrc-test/src/Bug1091.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE CPP #-} module Bug1091 where
hypsrc-test/src/CPP.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE CPP #-} module CPP where
hypsrc-test/src/Classes.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Classes where
hypsrc-test/src/Constructors.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Constructors where
hypsrc-test/src/Identifiers.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Identifiers where
hypsrc-test/src/LinkingIdentifiers.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} -- Tests that the identifers/operators are properly linked even when: -- --   * backquoted, parenthesized, vanilla
hypsrc-test/src/Literals.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Literals where
hypsrc-test/src/Operators.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Operators where
hypsrc-test/src/Polymorphism.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE ScopedTypeVariables #-}
hypsrc-test/src/PositionPragmas.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module PositionPragmas where  {-# LINE 8 "hypsrc-test/src/PositionPragmas.hs" #-}
hypsrc-test/src/Quasiquoter.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Quasiquoter ( string ) where  import Language.Haskell.TH.Quote
hypsrc-test/src/Records.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE NamedFieldPuns #-} {-# LANGUAGE RecordWildCards #-}
hypsrc-test/src/TemplateHaskellQuasiquotes.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TemplateHaskell #-}  module TemplateHaskellQuasiquotes where@@ -21,7 +22,7 @@  aNumberPattern :: PatQ aNumberPattern = [p|-    w @ v @ 4.5+    w@v@4.5   |]  anExpression, anExpression2 :: ExpQ
hypsrc-test/src/TemplateHaskellSplices.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TemplateHaskell #-} module TemplateHaskellSplices where
hypsrc-test/src/Types.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TypeFamilies #-}
hypsrc-test/src/UsingQuasiquotes.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE QuasiQuotes #-} module UsingQuasiquotes where
+ latex-test/ref/LinearTypes/LinearTypes.tex view
@@ -0,0 +1,30 @@+\haddockmoduleheading{LinearTypes}+\label{module:LinearTypes}+\haddockbeginheader+{\haddockverb\begin{verbatim}+module LinearTypes (+    unrestricted, linear, poly+  ) where\end{verbatim}}+\haddockendheader++\begin{haddockdesc}+\item[\begin{tabular}{@{}l}+unrestricted :: a -> b+\end{tabular}]+{\haddockbegindoc+Does something unrestricted.\par}+\end{haddockdesc}+\begin{haddockdesc}+\item[\begin{tabular}{@{}l}+linear :: a {\char '45}1 -> b+\end{tabular}]+{\haddockbegindoc+Does something linear.\par}+\end{haddockdesc}+\begin{haddockdesc}+\item[\begin{tabular}{@{}l}+poly :: a {\char '45}m -> b+\end{tabular}]+{\haddockbegindoc+Does something polymorphic.\par}+\end{haddockdesc}
+ latex-test/ref/LinearTypes/main.tex view
@@ -0,0 +1,11 @@+\documentclass{book}+\usepackage{haddock}+\begin{document}+\begin{titlepage}+\begin{haddocktitle}++\end{haddocktitle}+\end{titlepage}+\tableofcontents+\input{LinearTypes}+\end{document}
latex-test/ref/TypeFamilies3/TypeFamilies3.tex view
@@ -27,7 +27,7 @@ \end{haddockdesc} \begin{haddockdesc} \item[\begin{tabular}{@{}l}-type instance Bar Int = ()\\type instance Bar () = Int+type instance Bar () = Int\\type instance Bar Int = () \end{tabular}] \end{haddockdesc} \begin{haddockdesc}@@ -39,6 +39,6 @@ \end{haddockdesc} \begin{haddockdesc} \item[\begin{tabular}{@{}l}-newtype instance Baz Double\\data instance Baz Int\\data instance Baz ()+data instance Baz ()\\newtype instance Baz Double\\data instance Baz Int \end{tabular}] \end{haddockdesc}
latex-test/src/ConstructorArgs/ConstructorArgs.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE GADTs, PatternSynonyms #-}  module ConstructorArgs (Foo(..), Boo(Foo, Foa, Fo, Fo'), pattern Bo, pattern Bo') where
latex-test/src/DefaultSignatures/DefaultSignatures.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE DefaultSignatures #-}  module DefaultSignatures where
latex-test/src/Deprecated/Deprecated.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Deprecated where  -- | Docs for something deprecated
latex-test/src/Example/Example.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Example where  -- | Example use.
latex-test/src/GadtConstructorArgs/GadtConstructorArgs.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE GADTs, PatternSynonyms #-}  module GadtConstructorArgs (Boo(..)) where
+ latex-test/src/LinearTypes/LinearTypes.hs view
@@ -0,0 +1,15 @@+{-# LANGUAGE Haskell2010 #-}+{-# LANGUAGE LinearTypes #-}+module LinearTypes where++-- | Does something unrestricted.+unrestricted :: a -> b+unrestricted = undefined++-- | Does something linear.+linear :: a %1 -> b+linear = linear++-- | Does something polymorphic.+poly :: a %m -> b+poly = poly
latex-test/src/NamespacedIdentifier/NamespacedIdentifier.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module NamespacedIdentifiers where  -- | A link to:
latex-test/src/Simple/Simple.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} module Simple (foo) where  -- | This is foo.
latex-test/src/TypeFamilies3/TypeFamilies3.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE TypeFamilies #-}  module TypeFamilies3 where
latex-test/src/UnboxedStuff/UnboxedStuff.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE UnboxedSums, UnboxedTuples #-} module UnboxedStuff where