@@ -62,14 +62,13 @@ displayOpResult (DisplayRelationResult rel) = do
6262 let randomlySortedRel = evalRand (randomizeTupleOrder rel) gen
6363 TIO.putStrLn (showRelation randomlySortedRel)
6464displayOpResult (DisplayParseErrorResult mPromptLength err) = do
65− let
66− #if __GLASGOW_HASKELL__ >= 806
67− errorIndent = errorOffset . NE.head . bundleErrors $ err
65+#if __GLASGOW_HASKELL__ >= 806
66+ let errorIndent = errorOffset . NE.head . bundleErrors $ err
6867 errString = T.pack (parseErrorPretty . NE.head . bundleErrors $ err)
69− #else
70− errorIndent = unPos (sourceColumn (NE.head (errorPos err)))
68+#else
69+ let errorIndent = unPos (sourceColumn (NE.head (errorPos err)))
7170 errString = T.pack (parseErrorPretty err)
72− #endif
71+#endif
7372 pointyString len = T.justifyRight (len + fromIntegral errorIndent) '_' "^"
7473 maybe (pure ()) (TIO.putStrLn . pointyString) mPromptLength
7574 TIO.putStr ("ERR:" <> errString)