diff options
Diffstat (limited to 'Network/Wai/Middleware')
| -rw-r--r-- | Network/Wai/Middleware/Braid.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Network/Wai/Middleware/Braid.hs b/Network/Wai/Middleware/Braid.hs index 339313f..c14e099 100644 --- a/Network/Wai/Middleware/Braid.hs +++ b/Network/Wai/Middleware/Braid.hs @@ -235,7 +235,7 @@ streamUpdates chan topic client keepAlive write flush = do update <- case keepAlive of Just t -> timeout (t * 1000000) (readChan src) - Nothing -> Just <$> readChan src + Nothing -> Just </ readChan src case update of Just u -> case updateToBuilder topic client u of |