Cleanup

2022-06-08 13:43:37 +01:00
parent 4a5a643d46
commit 51c32e06ad
8 changed files with 60 additions and 82 deletions
@@ -105,7 +105,7 @@ combineModules = mergeA
        = ("WARNING:REMOVES":ss im1,im2)
    h _ _ im | im /= EMPTYMODULE = ([],im)
    h _ im _ = ([],im)
-    ss imt = [moduleName imt]
+    ss imt = [fromJust $ moduleName imt]

 toggleCombineInv :: World -> World
 toggleCombineInv w = case _hudElement (_hud w) of