Eliminate deprecation warnings when building websockets sample.hs

yesodweb · Jan 8, 2019 · e1a3324 · e1a3324
1 parent c5268e3
commit e1a3324
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/yesod-websockets/sample.hs b/yesod-websockets/sample.hs
@@ -16,7 +16,7 @@ mkYesod "App" [parseRoutes|
 / HomeR GET
 |]
 
-timeSource :: MonadIO m => Source m TL.Text
+timeSource :: MonadIO m => ConduitT () TL.Text m ()
 timeSource = forever $ do
     now <- liftIO getCurrentTime
     yield $ TL.pack $ show now
@@ -25,8 +25,8 @@ timeSource = forever $ do
 getHomeR :: Handler Html
 getHomeR = do
     webSockets $ race_
-        (sourceWS $$ Data.Conduit.List.map TL.toUpper =$ sinkWSText)
-        (timeSource $$ sinkWSText)
+        (runConduit (sourceWS .| Data.Conduit.List.map TL.toUpper .| sinkWSText))
+        (runConduit (timeSource .| sinkWSText))
     defaultLayout $
         toWidget
             [julius|