diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-11-08 16:56:59 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-11-08 16:56:59 -0800 |
| commit | c423dbb5a34c2d1195020e0f0ca3aae883d0749b (patch) | |
| tree | a118d6561e1886fe019f51599c5c1258606eadd4 /src/Text/Pandoc/Readers/Haddock.hs | |
| parent | da056191182777c4e4e951d3aae49c6428677fc7 (diff) | |
| download | pandoc-c423dbb5a34c2d1195020e0f0ca3aae883d0749b.tar.gz | |
Use -XNoImplicitPrelude and 'import Prelude' explicitly.
This is needed for ghci to work with pandoc, given that we
now use a custom prelude.
Closes #2503.
Diffstat (limited to 'src/Text/Pandoc/Readers/Haddock.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Haddock.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Haddock.hs b/src/Text/Pandoc/Readers/Haddock.hs index 2b74f5f62..578a89d21 100644 --- a/src/Text/Pandoc/Readers/Haddock.hs +++ b/src/Text/Pandoc/Readers/Haddock.hs @@ -14,6 +14,7 @@ module Text.Pandoc.Readers.Haddock ( readHaddock ) where +import Prelude import Text.Pandoc.Builder (Blocks, Inlines) import qualified Text.Pandoc.Builder as B import Text.Pandoc.Shared (trim, splitBy) @@ -129,7 +130,7 @@ makeExample prompt expression result = <> (mconcat $ intersperse B.linebreak $ map coder result') where -- 1. drop trailing whitespace from the prompt, remember the prefix - prefix = takeWhile (`elem` " \t") prompt + prefix = takeWhile (`elem` [' ','\t']) prompt -- 2. drop, if possible, the exact same sequence of whitespace -- characters from each result line |