voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

debug

This commit is contained in:
Dmitry Zuikov 2024-04-10 07:19:08 +03:00
parent ff330ba24c
commit 91bdc03515
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
hbs2-fixer/app/Main.hs
View File

@ -56,6 +56,8 @@ import System.Exit qualified as Exit
import Data.Cache qualified as Cache import Data.Cache qualified as Cache
import Data.Cache (Cache) import Data.Cache (Cache)
import System.Exit
{- HLINT ignore "Functor law" -} {- HLINT ignore "Functor law" -}
@ -166,7 +168,9 @@ withApp cfgPath action = do
client <- lift $ race (pause @'Seconds 1) (newMessagingUnix False 1.0 soname) client <- lift $ race (pause @'Seconds 1) (newMessagingUnix False 1.0 soname)
>>= orThrowUser ("can't connect to" <+> pretty soname) >>= orThrowUser ("can't connect to" <+> pretty soname)
void $ ContT $ withAsync $ runMessagingUnix client mess <- ContT $ bracket (async $ runMessagingUnix client) $ \_ -> error "FUCK!" >> liftIO exitFailure
link mess
peerAPI <- makeServiceCaller @PeerAPI (fromString soname) peerAPI <- makeServiceCaller @PeerAPI (fromString soname)
refLogAPI <- makeServiceCaller @RefLogAPI (fromString soname) refLogAPI <- makeServiceCaller @RefLogAPI (fromString soname)
@ -181,10 +185,12 @@ withApp cfgPath action = do
void $ ContT $ withAsync $ liftIO $ runReaderT (runServiceClientMulti endpoints) client void $ ContT $ withAsync $ liftIO $ runReaderT (runServiceClientMulti endpoints) client
let o = [MUWatchdog 20, MUDontRetry] let o = [MUWatchdog 20]
clientN <- newMessagingUnixOpts o False 1.0 soname clientN <- newMessagingUnixOpts o False 1.0 soname
void $ ContT $ withAsync $ runMessagingUnix clientN notif <- ContT $ bracket (async $ runMessagingUnix clientN) (\_ -> error "FUCK2" >> liftIO exitFailure)
link notif
sink <- newNotifySink sink <- newNotifySink