diff --git a/src/Foundation.hs b/src/Foundation.hs index 0e884c651..92e339f77 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -514,7 +514,6 @@ instance Yesod UniWorX where addStylesheet $ StaticR css_flatpickr_css addStylesheet $ StaticR css_tabber_css addStylesheet $ StaticR css_fonts_css - addStylesheet $ StaticR css_icons_css addStylesheet $ StaticR css_fontawesome_css $(widgetFile "default-layout") $(widgetFile "standalone/modal") @@ -835,19 +834,19 @@ defaultLinks = -- Define the menu items of the header. } , NavbarRight $ MenuItem { menuItemLabel = "Profile" - , menuItemIcon = Just "profile" + , menuItemIcon = Just "cogs" , menuItemRoute = ProfileR , menuItemAccessCallback' = isJust <$> maybeAuthPair } , NavbarSecondary $ MenuItem { menuItemLabel = "Login" - , menuItemIcon = Just "login" + , menuItemIcon = Just "sign-in-alt" , menuItemRoute = AuthR LoginR , menuItemAccessCallback' = isNothing <$> maybeAuthPair } , NavbarSecondary $ MenuItem { menuItemLabel = "Logout" - , menuItemIcon = Just "logout" + , menuItemIcon = Just "sign-out-alt" , menuItemRoute = AuthR LogoutR , menuItemAccessCallback' = isJust <$> maybeAuthPair } diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs index 852f4743d..7e8ce5b86 100644 --- a/src/Handler/Submission.hs +++ b/src/Handler/Submission.hs @@ -234,9 +234,6 @@ submissionHelper tid csh shn (SubmissionMode mcid) = do Just cID -> redirect $ CSubmissionR tid csh shn cID SubShowR Nothing -> return () - let pageTitle = MsgSubmissionEditHead tid csh shn - let formTitle = pageTitle - let formText = Nothing :: Maybe UniWorXMessage actionUrl <- Data.Maybe.fromJust <$> getCurrentRoute -- Maybe construct a table to display uploaded archive files let colonnadeFiles :: _ -> Colonnade Sortable _ (DBCell (WidgetT UniWorX IO) ()) @@ -266,19 +263,8 @@ submissionHelper tid csh shn (SubmissionMode mcid) = do mFileTable <- traverse (dbTable def) . fmap smid2ArchiveTable $ (,) <$> msmid <*> mcid defaultLayout $ do - setTitleI pageTitle - $(widgetFile "formPageI18n") - [whamlet| - $maybe cid <- mcid -