@@ -15,7 +15,7 @@ import Network.Wai
15import Data.Text.Lazy (pack)
15import Data.Text.Lazy (pack)
16import Data.Text.Lazy.Encoding (encodeUtf8)
16import Data.Text.Lazy.Encoding (encodeUtf8)
17import qualified Data.ByteString.Lazy.Char8 as L8
17import qualified Data.ByteString.Lazy.Char8 as L8
18−import Control.Exception (Exception, SomeException, toException)
18+import Control.Exception (Exception, SomeException, toException, fromException)
19import qualified Control.Exception as E
19import qualified Control.Exception as E
20import Control.Concurrent (forkIO, threadDelay)
20import Control.Concurrent (forkIO, threadDelay)
@@ -151,7 +151,10 @@ loadingApp err f =
151 ) $ toMessage err
151 ) $ toMessage err
153 toMessage Nothing = "Loading code changes, please wait"
153 toMessage Nothing = "Loading code changes, please wait"
154− toMessage (Just err') = charsToLBS $ "Error loading code: " ++ show err'
154+ toMessage (Just err') = charsToLBS $ "Error loading code: " ++
155+ (case fromException err' of
156+ Just e -> showInterpError e
157+ Nothing -> show err')
156charsToLBS :: String -> L8.ByteString
159charsToLBS :: String -> L8.ByteString
157charsToLBS = encodeUtf8 . pack
160charsToLBS = encodeUtf8 . pack