Simplify and improve distributer

2025-12-31 13:31:08 +00:00
parent fa07f989c2
commit 5b5a12be6e
7 changed files with 372 additions and 350 deletions
@@ -428,7 +428,9 @@ distributerRoom atype aamount = do
        store = sps (unusedOffPathAwayFromLink 50) 
            (PutMachine (reverse $ polyCirc 4 20) mcstore Nothing) & plExternalID ?~ i
        dst gw = let mj = gw ^? genPmnt . ix i . plMID . _Just
-            in  putTerminal (mcdist mj) (defaultTerminal & tmBootLines .~ tmDistributeLines)
+            in  putTerminal (mcdist mj) (defaultTerminal & tmBootLines .~ tmDistributeLines
+                        & tmRebootOnAccess .~ True
+                        )
                    & plSpot .~ unusedOffPathAwayFromLink 50
                    & plExternalID ?~ i1
        thepipe gw =