Cleanup

2022-07-21 18:26:48 +01:00
parent b58444f931
commit 14f3c8bc52
4 changed files with 1 additions and 12 deletions
@@ -10,3 +10,4 @@ doWorldEffect we = case we of
    SetTrigger bool tid -> triggers . ix tid .~ bool
    SetLSCol col lsid -> lightSources . ix lsid . lsParam . lsCol .~ col
    AccessTerminal mtmid -> accessTerminal mtmid
+    WorldEffects wes -> \w -> foldr doWorldEffect w wes