Cleanup, fix menu lock on restarting level after game over

2021-12-06 23:44:10 +00:00
parent 19540bd19e
commit 763b771928
18 changed files with 88 additions and 119 deletions
@@ -16,7 +16,7 @@ singletonTrie (k:ks) x = Trie Nothing $ singleton k $ singletonTrie ks x
 singletonTrie [] x = Trie (Just x) empty

 insertInTrie :: Ord a => [a] -> b -> Trie a b -> Trie a b
-insertInTrie [] x      = trieMVal .~ Just x
+insertInTrie [] x      = trieMVal ?~ x
 insertInTrie (k:ks) x  = trieChildren %~ insertWith f k (singletonTrie ks x)
  where
    f _ = insertInTrie ks x