a1fc89847ddcca2bc6707f02d4fa7f858d36e3bb — Jack Kelly 21 days ago 150bd99 master
Hlints
1 files changed, 3 insertions(+), 3 deletions(-)

M src/Navigation.hs
M src/Navigation.hs => src/Navigation.hs +3 -3
@@ 42,7 42,7 @@ navigationItemContext navs
 
     context :: Context NavItem
     context = mconcat
-      [ boolField "selected" $ isSelected
+      [ boolField "selected" isSelected
       , field "label" $ pure . fst . itemBody
       , field "url" $ pure . unUrl . snd . itemBody
       ]


@@ 54,8 54,8 @@ navigationItemContext navs
 
 select :: String -> Navigation -> Navigation
 select key nav = Navigation befores chosen afters where
-  befores = takeWhile ((key /=) . fst) $ navItems
-  (chosen, afters) = case dropWhile ((key /=) . fst) $ navItems of
+  befores = takeWhile ((key /=) . fst) navItems
+  (chosen, afters) = case dropWhile ((key /=) . fst) navItems of
     [] -> (Nothing, [])
     (n:ns) -> (Just n, ns)