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

Fix dashboard config `develop-assets` option

This commit is contained in:
Vladimir Krutkin 2024-10-11 14:40:17 +03:00 committed by voidlizard
parent 9640543924
commit 85f3053d85
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hbs2-git-dashboard/app/GitDashBoard.hs
View File

@ -394,8 +394,6 @@ runDashboardWeb WebOptions{..} = do
runScotty :: DashBoardPerks m => DashBoardM m () runScotty :: DashBoardPerks m => DashBoardM m ()
runScotty = do runScotty = do
pno <- getHttpPortNumber
wo <- WebOptions <$> getDevAssets
env <- ask env <- ask
@ -407,6 +405,9 @@ runScotty = do
run theDict conf run theDict conf
pno <- getHttpPortNumber
wo <- WebOptions <$> getDevAssets
flip runContT pure do flip runContT pure do
void $ ContT $ withAsync updateIndexPeriodially void $ ContT $ withAsync updateIndexPeriodially
void $ ContT $ withAsync runRPC void $ ContT $ withAsync runRPC
@ -659,7 +660,8 @@ theDict = do
developAssetsEntry = do developAssetsEntry = do
entry $ bindMatch "develop-assets" $ nil_ \case entry $ bindMatch "develop-assets" $ nil_ \case
[StringLike s] -> do [StringLike s] -> do
pure () devAssTVar <- lift $ asks _dashBoardDevAssets
atomically $ writeTVar devAssTVar (Just s)
_ -> none _ -> none