Change quotes-api url

This commit is contained in:
Dhananjay Balan 2024-03-28 15:43:51 +01:00
parent ae7ba0141e
commit e8192495da
2 changed files with 2 additions and 1 deletions

View File

@ -77,6 +77,7 @@
devShells.default = pkgs.mkShell { devShells.default = pkgs.mkShell {
buildInputs = with pkgs; [ buildInputs = with pkgs; [
haskellPackages.haskell-language-server # you must build it with your ghc to work haskellPackages.haskell-language-server # you must build it with your ghc to work
haskellPackages.hoogle
ghcid ghcid
hlint hlint
ghc ghc

View File

@ -43,7 +43,7 @@ instance ToMarkup Quote where
HS.title "random quote" HS.title "random quote"
HS.link ! HSA.rel "stylesheet" ! HSA.type_ "text/css" ! HSA.href "https://unpkg.com/tachyons@4.12.0/css/tachyons.min.css" HS.link ! HSA.rel "stylesheet" ! HSA.type_ "text/css" ! HSA.href "https://unpkg.com/tachyons@4.12.0/css/tachyons.min.css"
HS.body ! HSA.class_ "w-100 sans-serif" $ do HS.body ! HSA.class_ "w-100 sans-serif" $ do
HS.div ! HSA.class_ "fl f5 pa4 w-100" $ HS.a ! HSA.href "https://git.planet-express.in/dbalan/quotes-api" $ "built with quotes-api" HS.div ! HSA.class_ "fl f5 pa4 w-100" $ HS.a ! HSA.href "https://code.planet-express.in/dbalan/quotes-api" $ "built with quotes-api"
HS.div ! HSA.class_ "fl center pa4" $ do HS.div ! HSA.class_ "fl center pa4" $ do
HS.div ! HSA.class_ "f2 f1-ns measure fw7 lh-title mt0" $ HS.toHtml (qQuote q) HS.div ! HSA.class_ "f2 f1-ns measure fw7 lh-title mt0" $ HS.toHtml (qQuote q)
HS.div ! HSA.class_ "f3 fl w-80" $ HS.toHtml (qAuthor q) HS.div ! HSA.class_ "f3 fl w-80" $ HS.toHtml (qAuthor q)