@@ -7,6 +7,7 @@ module Network.Wai.Handler.WebSockets
77 , runWebSockets
88 ) where
99
10+import Control.Exception (finally)
1011import Data.ByteString (ByteString)
1112import qualified Data.ByteString.Char8 as BC
1213import qualified Data.ByteString.Lazy as BL
@@ -110,4 +111,4 @@ runWebSockets opts req app src sink = do
110111 , WS.pendingStream = stream
111112 }
112113
113− app pc
114+ app pc `finally` WS.close stream