Use custom Prelude based on relude.relude

The Prelude now longer exports partial functions, so
a large number of uses of these functions in the
code base have been rewritten.

A .ghci file has been added; this is necessary for
ghci to work properly with the custom Prelude.

Currently there are lots of compiler warnings.
We should either fix these or go to using a custom
Prelude that changes less than relude.

1 files changed, 9 insertions, 4 deletions

diff --git a/src/Text/Pandoc/Error.hs b/src/Text/Pandoc/Error.hs
index 8102f04cc..281b2714f 100644
--- a/src/Text/Pandoc/Error.hs
+++ b/src/Text/Pandoc/Error.hs
@@ -26,7 +26,7 @@ import Data.Text (Text)
 import qualified Data.Text as T
 import GHC.Generics (Generic)
 import Network.HTTP.Client (HttpException)
-import System.Exit (ExitCode (..), exitWith)
+import System.Exit (ExitCode (..))
 import System.IO (stderr)
 import qualified Text.Pandoc.UTF8 as UTF8
 import Text.Printf (printf)
@@ -34,6 +34,7 @@ import Text.Parsec.Error
 import Text.Parsec.Pos hiding (Line)
 import Text.Pandoc.Shared (tshow)
 import Citeproc (CiteprocError, prettyCiteprocError)
+import System.IO.Error (IOError, ioError)
 
 type Input = Text
 
@@ -87,9 +88,13 @@ renderError e =
             errColumn = sourceColumn errPos
             ls = T.lines input <> [""]
             errorInFile = if length ls > errLine - 1
-                            then T.concat ["\n", ls !! (errLine - 1)
-                                          ,"\n", T.replicate (errColumn - 1) " "
-                                          ,"^"]
+                            then
+                              case ls !!? (errLine - 1) of
+                                Nothing -> ""
+                                Just x  ->
+                                  T.concat ["\n", x, "\n",
+                                            T.replicate (errColumn - 1) " ",
+                                           "^"]
                         else ""
         in  "\nError at " <> tshow  err' <>
                      -- if error comes from a chunk or included file,