Fix incomplete patterns.

digitallyinduced · Nov 22, 2020 · ec49d94 · ec49d94
1 parent 6df35ac
commit ec49d94
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/IHP/AutoRefresh.hs b/IHP/AutoRefresh.hs
@@ -79,6 +79,7 @@ autoRefresh runAction = do
                             registerNotificationTrigger ?touchedTables autoRefreshServer
 
                             throw exception
+                        _   -> error "Unimplemented WAI response type."
 
                 runAction `Exception.catch` handleResponse
         AutoRefreshEnabled {} -> do
@@ -109,6 +110,7 @@ instance WSApp AutoRefreshWSApp where
                         when (html /= lastResponse) do
                             updateSession sessionId (\session -> session { lastResponse = html })
                             sendTextData html
+                    _   -> error "Unimplemented WAI response type."
 
             async $ forever do
                 MVar.takeMVar event

diff --git a/IHP/WebSocket.hs b/IHP/WebSocket.hs
@@ -48,6 +48,7 @@ startWSApp connection = do
     let
         handleException Websocket.ConnectionClosed = onClose @state
         handleException (Websocket.CloseRequest {}) = onClose @state
+        handleException e = error ("Unhandled Websocket exception: " <> show e)
     result <- Exception.try ((Websocket.withPingThread connection 30 (onPing @state) (run @state)) `Exception.catch` handleException)
     case result of
         Left (Exception.SomeException e) -> putStrLn (tshow e)