Apply suggestions

klntsky · klntsky · commit 622c2e5ea819 · 2020-08-09T18:56:39.000+03:00
diff --git a/src/Docs/Search/App.purs b/src/Docs/Search/App.purs
@@ -77,10 +77,10 @@ main = do
 
           resultsComponent =
             SearchResults.mkComponent
-            initialSearchEngineState
-            pageContents
-            markdownIt
-            meta
+              initialSearchEngineState
+              pageContents
+              markdownIt
+              meta
 
       sfio <- runUI SearchField.component unit searchField
       srio <- runUI resultsComponent unit searchResults
diff --git a/src/Docs/Search/App/Sidebar.purs b/src/Docs/Search/App/Sidebar.purs
@@ -158,8 +158,8 @@ render state@{ groupingMode, moduleNames, localPackageName } =
             case package of
               Package packageName -> unwrap packageName
               LocalPackage -> unwrap localPackageName
-              Builtin -> "Built-in"
-              UnknownPackage -> "Unknown package"
+              Builtin -> "<builtins>"
+              UnknownPackage -> "<unknown>"
           ]
         , HH.ul_ $ Set.toUnfoldable modules <#> renderModuleName
         ]

Original file line number	Diff line number	Diff line change
`@@ -158,8 +158,8 @@ render state@{ groupingMode, moduleNames, localPackageName } =`
`158`	`158`	`case package of`
`159`	`159`	`Package packageName -> unwrap packageName`
`160`	`160`	`LocalPackage -> unwrap localPackageName`
`161`		`- Builtin -> "Built-in"`
`162`		`- UnknownPackage -> "Unknown package"`
	`161`	`+ Builtin -> "<builtins>"`
	`162`	`+ UnknownPackage -> "<unknown>"`
`163`	`163`	`]`
`164`	`164`	`, HH.ul_ $ Set.toUnfoldable modules <#> renderModuleName`
`165`	`165`	`]`