diff --git a/Handler/Package.hs b/Handler/Package.hs index b2e7e2c..73dffb4 100644 --- a/Handler/Package.hs +++ b/Handler/Package.hs @@ -64,9 +64,7 @@ getPackageR pn = do defaultLayout $ do setTitle $ toHtml pn $(combineStylesheets 'StaticR - [ css_bootstrap_css - , css_bootstrap_responsive_css - , css_font_awesome_min_css + [ css_font_awesome_min_css ]) $(widgetFile "package") where enumerate = zip [0::Int ..] diff --git a/Handler/PackageList.hs b/Handler/PackageList.hs index 76630d1..af08c61 100644 --- a/Handler/PackageList.hs +++ b/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 diff --git a/Handler/Profile.hs b/Handler/Profile.hs index 9300c72..75ffc9c 100644 --- a/Handler/Profile.hs +++ b/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 diff --git a/Handler/Progress.hs b/Handler/Progress.hs index 2f4ceee..fcbde35 100644 --- a/Handler/Progress.hs +++ b/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|
#{text}|] diff --git a/Handler/Snapshots.hs b/Handler/Snapshots.hs index 565e0e5..4f8e710 100644 --- a/Handler/Snapshots.hs +++ b/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 diff --git a/Handler/StackageHome.hs b/Handler/StackageHome.hs index a15a9ae..e768675 100644 --- a/Handler/StackageHome.hs +++ b/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 diff --git a/Handler/UploadStackage.hs b/Handler/UploadStackage.hs index ad24b2a..cad802e 100644 --- a/Handler/UploadStackage.hs +++ b/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