diff options
| author | Alec Theriault <alec.theriault@gmail.com> | 2018-12-12 08:34:57 -0800 | 
|---|---|---|
| committer | Alec Theriault <alec.theriault@gmail.com> | 2018-12-12 08:42:09 -0800 | 
| commit | d66a17f3d7552ccd82b5b4b491013f9ac9498966 (patch) | |
| tree | 76a65bf920e126674b82fde59da94f6a52f43355 /haddock-library/src/Documentation/Haddock | |
| parent | 6414b46e1ac8b63cad20d662311788a80e3b29bb (diff) | |
Fix warnings, accept output
* remove redundant imports (only brought to light due to recent work for
  improving redundant import detection)
* fix a bug that was casuing exports to appear in reverse order
* fix something in haddock-library that prevented compilation on old GHC's
Diffstat (limited to 'haddock-library/src/Documentation/Haddock')
| -rw-r--r-- | haddock-library/src/Documentation/Haddock/Markup.hs | 2 | ||||
| -rw-r--r-- | haddock-library/src/Documentation/Haddock/Parser.hs | 2 | 
2 files changed, 2 insertions, 2 deletions
| diff --git a/haddock-library/src/Documentation/Haddock/Markup.hs b/haddock-library/src/Documentation/Haddock/Markup.hs index b44fef80..365041ee 100644 --- a/haddock-library/src/Documentation/Haddock/Markup.hs +++ b/haddock-library/src/Documentation/Haddock/Markup.hs @@ -75,7 +75,7 @@ plainMarkup plainMod plainIdent = Markup {    markupEmpty                = "",    markupString               = id,    markupParagraph            = id, -  markupAppend               = (<>), +  markupAppend               = (++),    markupIdentifier           = plainIdent,    markupIdentifierUnchecked  = plainMod,    markupModule               = id, diff --git a/haddock-library/src/Documentation/Haddock/Parser.hs b/haddock-library/src/Documentation/Haddock/Parser.hs index f6c12d46..82d65a0a 100644 --- a/haddock-library/src/Documentation/Haddock/Parser.hs +++ b/haddock-library/src/Documentation/Haddock/Parser.hs @@ -28,7 +28,7 @@ import           Control.Applicative  import           Control.Arrow (first)  import           Control.Monad  import           Data.Char (chr, isUpper, isAlpha, isAlphaNum, isSpace) -import           Data.List (intercalate, unfoldr, elemIndex, notElem) +import           Data.List (intercalate, unfoldr, elemIndex)  import           Data.Maybe (fromMaybe, mapMaybe)  import           Data.Monoid  import qualified Data.Set as Set | 
