Fix the colour of code blocks in light mode (#196)

flora-pm · Sep 10, 2022 · 24250a1 · 24250a1
1 parent 5c6a322
commit 24250a1
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 4 deletions.
diff --git a/assets/css/package-readme.css b/assets/css/package-readme.css
@@ -100,15 +100,25 @@
     border-radius: 6px;
     overflow: auto;
     font-size: 90%;
-    background-color: #354561;
+    background-color: #dbdde3;
     margin-bottom: 16px;
   }
 
   code {
     padding: 0.2em 0.4em;
     margin: 0;
     font-size: 85%;
-    background-color: #354561;
+    background-color: #dbdde3;
     border-radius: 6px;
   }
+
+  .dark {
+    pre {
+      background-color: #354561;
+    }
+
+    code {
+      background-color: #354561;
+    }
+  }
 }
diff --git a/src/Flora/OddJobs.hs b/src/Flora/OddJobs.hs
@@ -106,7 +106,7 @@ checkIfIndexImportJobIsNotRunning = do
       pure False
 
 makeReadme :: ReadmePayload -> JobsRunner ()
-makeReadme pay@MkReadmePayload{..} = localDomain ("for-package " <> display mpPackage) $ do
+makeReadme pay@MkReadmePayload{..} = localDomain "fetch-readme" $ do
   logInfo "Fetching README" pay
   let payload = VersionedPackage mpPackage mpVersion
   gewt <- Hackage.request $ Hackage.getPackageReadme payload
@@ -158,6 +158,7 @@ fetchNewIndex = localDomain "index-import" $ do
   System.runProcess_ "cp ~/.cabal/packages/hackage.haskell.org/01-index.tar 01-index/"
   System.runProcess_ "cd 01-index && tar -xf 01-index.tar"
   System.runProcess_ "make import-from-hackage"
+  logInfo_ "New index processed"
   pool <- getPool
   liftIO $ void $ scheduleIndexImportJob pool
 

diff --git a/src/Flora/ThirdParties/Hackage/API.hs b/src/Flora/ThirdParties/Hackage/API.hs
@@ -23,7 +23,7 @@ data PlainerText
   deriving (Typeable)
 
 instance Accept PlainerText where
-  contentTypes _ = "plain" // "text" :| ["plain" // "text" /: ("charset", "utf-8")]
+  contentTypes _ = "text" // "plain" /: ("charset", "utf-8") :| ["text" // "plain"]
 
 instance MimeUnrender PlainerText Text where
   mimeUnrender _ = Bifunctor.first show . Text.decodeUtf8' . ByteString.toStrict