git.iko.soy/rowtype-yoga/purescript-docs-search
on master help sign in
Group modules by default (#39)
6350561klntsky
src/Docs/Search/App/Sidebar.purs+5−5
compare with master
unifiedsplit
@@ -84,9 +84,9 @@ handleAction (ToggleGrouping groupingMode) = do
84 window <- HTML.window
84 window <- HTML.window
85 localStorage <- Window.localStorage window
85 localStorage <- Window.localStorage window
86
86
87− if groupingMode == GroupByPackage
87+ if groupingMode == DontGroup
88− then Storage.setItem config.groupModulesItem "true" localStorage
88+ then Storage.setItem config.groupModulesItem "false" localStorage
89− else Storage.removeItem config.groupModulesItem localStorage
89+ else Storage.removeItem config.groupModulesItem localStorage
90
90
91
91
92handleQuery
92handleQuery
@@ -156,8 +156,8 @@ loadGroupingModeFromLocalStorage :: Effect GroupingMode
156loadGroupingModeFromLocalStorage = do
156loadGroupingModeFromLocalStorage = do
157 window <- HTML.window
157 window <- HTML.window
158 localStorage <- Window.localStorage window
158 localStorage <- Window.localStorage window
159− mbGroupModules <- Storage.getItem config.groupModulesItem localStorage
159+ mbDontGroupModules <- Storage.getItem config.groupModulesItem localStorage
160− pure $ if isJust mbGroupModules then GroupByPackage else DontGroup
160+ pure $ if isJust mbDontGroupModules then DontGroup else GroupByPackage
161
161
162
162
163-- | Convert checkbox status to sidebar mode
163-- | Convert checkbox status to sidebar mode