hlint
This commit is contained in:
parent
028b0d8961
commit
dfdaa649d0
13 changed files with 38 additions and 34 deletions
|
@ -38,7 +38,7 @@ firstRunNavBar :: [NavBarItem]
|
|||
firstRunNavBar = [Configuration, About]
|
||||
|
||||
selectNavBar :: Handler [NavBarItem]
|
||||
selectNavBar = ifM (inFirstRun) (return firstRunNavBar, return defaultNavBar)
|
||||
selectNavBar = ifM inFirstRun (return firstRunNavBar, return defaultNavBar)
|
||||
|
||||
{- A standard page of the webapp, with a title, a sidebar, and that may
|
||||
- be highlighted on the navbar. -}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue