Fix stylesheet on all pages

Handler/Package.hs

@@ -64,9 +64,7 @@ getPackageR pn = do
     defaultLayout $ do
         setTitle $ toHtml pn
         $(combineStylesheets 'StaticR
-            [ css_bootstrap_css
+            [ css_font_awesome_min_css
-            , css_bootstrap_responsive_css
-            , css_font_awesome_min_css
             ])
         $(widgetFile "package")
   where enumerate = zip [0::Int ..]

Handler/PackageList.hs

@@ -16,10 +16,6 @@ getPackageListR = do
                    ,m E.^. MetadataSynopsis)
     defaultLayout $ do
         setTitle "Package list"
-        $(combineStylesheets 'StaticR
-            [ css_bootstrap_css
-            , css_bootstrap_responsive_css
-            ])
         cachedWidget (5 * 60) "package-list" $(widgetFile "package-list")
   where strip x = fromMaybe x (stripSuffix "." x)
         uniqueByKey = sortBy (comparing fst) . M.toList . M.fromList

Handler/Profile.hs

@@ -26,10 +26,6 @@ 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,10 +9,6 @@ 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

@@ -31,10 +31,6 @@ getAllSnapshotsR = do
               )
     defaultLayout $ do
         setTitle "Stackage Server"
-        $(combineStylesheets 'StaticR
-            [ css_bootstrap_css
-            , css_bootstrap_responsive_css
-            ])
         $(widgetFile "all-snapshots")
   where uncrapify now c =
             let (E.Value ident, E.Value title, E.Value uploaded, E.Value display, E.Value handle) = c

Handler/StackageHome.hs

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