@@ -15,7 +15,7 @@ import Network.Wai
1515import Data.Text.Lazy (pack)
1616import Data.Text.Lazy.Encoding (encodeUtf8)
1717import qualified Data.ByteString.Lazy.Char8 as L8
18−import Control.Exception (Exception, SomeException, toException)
18+import Control.Exception (Exception, SomeException, toException, fromException)
1919import qualified Control.Exception as E
2020import Control.Concurrent (forkIO, threadDelay)
2121
@@ -151,7 +151,10 @@ loadingApp err f =
151151 ) $ toMessage err
152152 where
153153 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')
155158
156159charsToLBS :: String -> L8.ByteString
157160charsToLBS = encodeUtf8 . pack