Add non-custom version of bootstrap for rest of pages

Foundation.hs

@@ -99,8 +99,6 @@ instance Yesod App where
         pc <- widgetToPageContent $ do
             $(combineStylesheets 'StaticR
                 [ css_normalize_css
-                , css_bootstrap_css
-                , css_bootstrap_responsive_css
                 ])
             $((combineScripts 'StaticR
                               [ js_jquery_js

Handler/Home.hs

@@ -32,6 +32,10 @@ getHomeR = do
     restLatest    <- linkFor "unstable-ghc78-inclusive"
     defaultLayout $ do
         setTitle "Stackage Server"
+        $(combineStylesheets 'StaticR
+            [ css_bootstrap_modified_css
+            , css_bootstrap_responsive_modified_css
+            ])
         $(widgetFile "homepage")
   where
       linkFor name =

Handler/Package.hs

@@ -30,4 +30,8 @@ getPackageR pn = do
         return (latestVersion, packages, downloads, recentDownloads)
     defaultLayout $ do
         setTitle $ toHtml pn
+        $(combineStylesheets 'StaticR
+            [ css_bootstrap_css
+            , css_bootstrap_responsive_css
+            ])
         $(widgetFile "package")

Handler/PackageList.hs

@@ -12,6 +12,10 @@ getPackageListR = do
         return $ u E.^. UploadedName
     defaultLayout $ do
         setTitle "Package list"
+        $(combineStylesheets 'StaticR
+            [ css_bootstrap_css
+            , css_bootstrap_responsive_css
+            ])
         cachedWidget (5 * 60) "package-list" $(widgetFile "package-list")
 
 -- FIXME move somewhere else, maybe even yesod-core

Handler/Profile.hs

@@ -26,6 +26,10 @@ getProfileR = do
         <*> selectList [AliasUser ==. uid] [Asc AliasName]
     defaultLayout $ do
         setTitle "Your Profile"
+        $(combineStylesheets 'StaticR
+            [ css_bootstrap_css
+            , css_bootstrap_responsive_css
+            ])
         $(widgetFile "profile")
 
 aliasToText :: Entity Alias -> Text

Handler/Progress.hs

@@ -9,6 +9,10 @@ getProgressR key = do
     case lookup key m of
         Nothing -> notFound
         Just (ProgressWorking text) -> defaultLayout $ do
+            $(combineStylesheets 'StaticR
+                [ css_bootstrap_css
+                , css_bootstrap_responsive_css
+                ])
             addHeader "Refresh" "1"
             setTitle "Working..."
             [whamlet|<p>#{text}|]

Handler/Snapshots.hs

@@ -26,4 +26,8 @@ getAllSnapshotsR = do
             )
     defaultLayout $ do
         setTitle "Stackage Server"
+        $(combineStylesheets 'StaticR
+            [ css_bootstrap_css
+            , css_bootstrap_responsive_css
+            ])
         $(widgetFile "all-snapshots")

Handler/StackageHome.hs

@@ -22,6 +22,10 @@ getStackageHomeR ident = do
         base = maybe 0 (const 1) minclusive :: Int
     defaultLayout $ do
         setTitle $ toHtml $ stackageTitle stackage
+        $(combineStylesheets 'StaticR
+            [ css_bootstrap_css
+            , css_bootstrap_responsive_css
+            ])
         $(widgetFile "stackage-home")
 
 getStackageMetadataR :: PackageSetIdent -> Handler TypedContent

Handler/UploadStackage.hs

@@ -28,6 +28,10 @@ getUploadStackageR = do
     _ <- requireAuth
     defaultLayout $ do
         setTitle "Upload"
+        $(combineStylesheets 'StaticR
+            [ css_bootstrap_css
+            , css_bootstrap_responsive_css
+            ])
         $(widgetFile "upload-stackage")
 
 putUploadStackageR :: Handler TypedContent

templates/package.lucius

@@ -0,0 +1,3 @@
+h3 {
+  color: #777;
+}