diamondBtn :: H.Attribute -> Text -> H.Html
diamondBtn attribute label = 
    H.a ! attribute ! A.class_ "l-square h-m-border m-border r315 black-border f f-row f-center fi-center b-up" $
        H.div ! A.class_ "m-square s-arrow f f-row f-center" $
            H.div ! A.class_ "f f-col f-center r45" $
                H.span ! A.class_ "center" ! A.style "font-size: 1rem;" $ H.toHtml label
diamondBtn :: H.Attribute -> Text -> H.Html
diamondBtn attribute label = 
    H.a ! attribute ! A.class_ "l-square h-m-border m-border r315 black-border f f-row f-center fi-center b-up" $
        H.div ! A.class_ "m-square s-arrow f f-row f-center" $
            H.div ! A.class_ "f f-col f-center r45" $
                H.span ! A.class_ "center" ! A.style "font-size: 1rem;" $ H.toHtml label
diamondBtn attribute label = 
    H.a ! attribute ! A.class_ "l-square h-m-border m-border r315 black-border f f-row f-center fi-center b-up" $
        H.div ! A.class_ "m-square s-arrow f f-row f-center" $
            H.div ! A.class_ "f f-col f-center r45" $
                H.span ! A.class_ "center" ! A.style "font-size: 1rem;" $ H.toHtml label