Unify inventory sections further (slow?)

2023-02-11 13:10:10 +00:00
parent 286c84e50d
commit 24825728f5
7 changed files with 58 additions and 174 deletions
@@ -57,7 +57,7 @@ startLoading ic cr = case ic ^? laProgress . _Just . ix 0 of
    Just la -> cr & startLoadingStep la
    Nothing -> case ic ^? laCycle of
        Nothing -> cr
-        Just [] -> error ("item has empty load cycle")
+        Just [] -> error "item has empty load cycle"
        Just _ | _laLoaded ic >= _laMax ic -> cr
        Just (la : las) -> fromMaybe (error "item loading error") $ do
            i <- cr ^? crInvSel . isel . ispItem