{-# LANGUAGE OverloadedStrings #-}
module Contexts.Field.RokiLog.PowertedBy (
    haskellJpLogo
) where

import           Lucid.Base  (Html)
import           Lucid.Html5

haskellJpLogo :: Html ()
haskellJpLogo :: HtmlT Identity ()
haskellJpLogo =
    [Attribute] -> HtmlT Identity () -> HtmlT Identity ()
forall arg result. Term arg result => arg -> result
a_ [ Text -> Attribute
href_ Text
"https://haskell.jp/blog/posts/links.html#roki.dev/roki.log/" ] (HtmlT Identity () -> HtmlT Identity ())
-> HtmlT Identity () -> HtmlT Identity ()
forall a b. (a -> b) -> a -> b
$
        [Attribute] -> HtmlT Identity ()
forall (m :: * -> *). Applicative m => [Attribute] -> HtmlT m ()
img_ [
            Text -> Attribute
width_ Text
"234"
          , Text -> Attribute
class_ Text
"mt-1"
          , Text -> Attribute
src_ Text
"https://haskell.jp/img/supported-by-haskell-jp.svg"
          , Text -> Attribute
alt_Text
"Supported By Haskell-jp."
          ]