@@ -59,13 +59,13 @@ websocketProxyServer port host pending = do
5959 Right (presentation, tutdString) ->
6060 case parseTutorialD tutdString of
6161 Left err -> handleOpResult conn dbconn presentation
62− #if __GLASGOW_HASKELL__ >= 806
62+#if __GLASGOW_HASKELL__ >= 806
6363 (DisplayErrorResult
6464 ("parse error: " `T.append` T.pack
6565 (parseErrorPretty . NE.head . bundleErrors $ err)))
66− #else
66+#else
6767 (DisplayErrorResult ("parse error: " `T.append` T.pack (parseErrorPretty err)))
68− #endif
68+#endif
6969 Right parsed -> do
7070 let timeoutFilter exc = if exc == RequestTimeoutException
7171 then Just exc