@@ -84,9 +84,9 @@ handleAction (ToggleGrouping groupingMode) = do
8484 window <- HTML.window
8585 localStorage <- Window.localStorage window
8686
87− if groupingMode == GroupByPackage
88− then Storage.setItem config.groupModulesItem "true" localStorage
89− else Storage.removeItem config.groupModulesItem localStorage
87+ if groupingMode == DontGroup
88+ then Storage.setItem config.groupModulesItem "false" localStorage
89+ else Storage.removeItem config.groupModulesItem localStorage
9090
9191
9292handleQuery
@@ -156,8 +156,8 @@ loadGroupingModeFromLocalStorage :: Effect GroupingMode
156156loadGroupingModeFromLocalStorage = do
157157 window <- HTML.window
158158 localStorage <- Window.localStorage window
159− mbGroupModules <- Storage.getItem config.groupModulesItem localStorage
160− pure $ if isJust mbGroupModules then GroupByPackage else DontGroup
159+ mbDontGroupModules <- Storage.getItem config.groupModulesItem localStorage
160+ pure $ if isJust mbDontGroupModules then DontGroup else GroupByPackage
161161
162162
163163-- | Convert checkbox status to sidebar mode