Fix dashboard config `develop-assets` option

hbs2-git-dashboard/app/GitDashBoard.hs

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