graninas/Hydra
1
1
Fork 0
mirror of https://github.com/graninas/Hydra.git synced 2024-12-26 02:23:36 +03:00
Code Issues Projects Releases Wiki Activity

warnings discard monad resutl

Browse Source
This commit is contained in:
Daneel Yaitskov 2020-05-09 17:37:57 -07:00
parent 6fb58bcc05
commit e6c631a125
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Hydra/src/Hydra/Language/Extra.hs
View File

@ -24,7 +24,7 @@ getOrInitSqlConn cfg = do
-- TODO: rework it
foreverAppFree :: L.AppL a -> L.AppL ()
foreverAppFree app = do
app
_ <- app
awaitVar <- L.newVarIO (1 :: Int)
L.process $ do
L.delay 10000000000
@ -36,7 +36,7 @@ foreverAppFree app = do
-- TODO: rework it
foreverAppChurch :: CL.AppL a -> CL.AppL ()
foreverAppChurch app = do
app
_ <- app
awaitVar <- CL.newVarIO (1 :: Int)
CL.process $ do
CL.delay 10000000000