diff --git a/Foundation.hs b/Foundation.hs
index b1df6e2..7a8b9c0 100644
--- a/Foundation.hs
+++ b/Foundation.hs
@@ -11,6 +11,7 @@ import Settings (widgetFile, Extra (..), GoogleAuth (..))
import Settings.Development (development)
import Settings.StaticFiles
import qualified System.Random.MWC as MWC
+import Text.Blaze
import Text.Hamlet (hamletFile)
import Text.Jasmine (minifym)
import Types
@@ -153,6 +154,12 @@ instance Yesod App where
maximumContentLength _ (Just UploadHaddockR{}) = Just 100000000
maximumContentLength _ _ = Just 2000000
+instance ToMarkup (Route App) where
+ toMarkup c = case c of
+ AllSnapshotsR{} -> "Snapshots"
+ UploadStackageR{} -> "Upload"
+ AuthR (LoginR{}) -> "Login"
+
-- How to run database actions.
instance YesodPersist App where
type YesodPersistBackend App = SqlBackend
diff --git a/Handler/Home.hs b/Handler/Home.hs
index 469f4e2..97a5873 100644
--- a/Handler/Home.hs
+++ b/Handler/Home.hs
@@ -13,8 +13,8 @@ import Yesod.GitRepo (grContent)
-- The majority of the code you will write in Yesod lives in these handler
-- functions. You can spread them across multiple files if you are so
-- inclined, or create a single monolithic file.
-getHomeR' :: Handler Html
-getHomeR' = contentHelper "Stackage Server" wcHomepage
+getHomeR :: Handler Html
+getHomeR = contentHelper "Stackage Server" wcHomepage
getAuthorsR :: Handler Html
getAuthorsR = contentHelper "Library Authors" wcAuthors
@@ -27,15 +27,11 @@ contentHelper title accessor = do
homepage <- getYesod >>= fmap accessor . liftIO . grContent . websiteContent
defaultLayout $ do
setTitle title
- $(combineStylesheets 'StaticR
- [ css_bootstrap_modified_css
- , css_bootstrap_responsive_modified_css
- ])
toWidget homepage
-- FIXME remove this and switch to above getHomeR' when new homepage is ready
-getHomeR :: Handler Html
-getHomeR = do
+getHomeR' :: Handler Html
+getHomeR' = do
windowsLatest <- linkFor "unstable-ghc78hp-inclusive"
restLatest <- linkFor "unstable-ghc78-inclusive"
defaultLayout $ do
diff --git a/design/logo.svg b/design/logo.svg
index c3872c5..2099c1a 100644
--- a/design/logo.svg
+++ b/design/logo.svg
@@ -597,9 +597,9 @@
borderopacity="1"
inkscape:pageopacity="1"
inkscape:pageshadow="2"
- inkscape:zoom="1.4142136"
- inkscape:cx="506.30836"
- inkscape:cy="262.58608"
+ inkscape:zoom="1"
+ inkscape:cx="86.502676"
+ inkscape:cy="171.32119"
inkscape:document-units="px"
inkscape:current-layer="layer1"
showgrid="false"
@@ -607,7 +607,7 @@
fit-margin-left="0"
fit-margin-right="0"
fit-margin-bottom="0"
- inkscape:window-width="2880"
+ inkscape:window-width="1440"
inkscape:window-height="1760"
inkscape:window-x="0"
inkscape:window-y="40"
@@ -620,7 +620,7 @@
- #{display} (#{handle}) +
+ #{display} (#{handle}) diff --git a/templates/default-layout-wrapper.hamlet b/templates/default-layout-wrapper.hamlet index 869806c..c82e16d 100644 --- a/templates/default-layout-wrapper.hamlet +++ b/templates/default-layout-wrapper.hamlet @@ -28,9 +28,6 @@ $newline never