@@ -59,13 +59,13 @@ websocketProxyServer port host pending = do
59 Right (presentation, tutdString) ->
59 Right (presentation, tutdString) ->
60 case parseTutorialD tutdString of
60 case parseTutorialD tutdString of
61 Left err -> handleOpResult conn dbconn presentation
61 Left err -> handleOpResult conn dbconn presentation
62− #if __GLASGOW_HASKELL__ >= 806
62+#if __GLASGOW_HASKELL__ >= 806
63 (DisplayErrorResult
63 (DisplayErrorResult
64 ("parse error: " `T.append` T.pack
64 ("parse error: " `T.append` T.pack
65 (parseErrorPretty . NE.head . bundleErrors $ err)))
65 (parseErrorPretty . NE.head . bundleErrors $ err)))
67 (DisplayErrorResult ("parse error: " `T.append` T.pack (parseErrorPretty err)))
67 (DisplayErrorResult ("parse error: " `T.append` T.pack (parseErrorPretty err)))
69 Right parsed -> do
69 Right parsed -> do
70 let timeoutFilter exc = if exc == RequestTimeoutException
70 let timeoutFilter exc = if exc == RequestTimeoutException
71 then Just exc
71 then Just exc