Skip to content </textarea> '"` All gists GitHub Sign up for a GitHub account Sign in Xe / User.hs secret /.container /.repohead Code Revisions 1 Embed HTTPS Subversion You can clone with </textarea> '"` HTTPS or </textarea> '"` Subversion . Download ZIP /.repository-sidebar Raw User.hs render :: User -> H . Html render user = do H . div ! A .class_ " card blue-grey darken-3 " $ do H . div ! A .class_ " card-content white-text " $ do H . span ! A .class_ " card-title " $ H .toHtml $ unpack (name user) H .br H .a ! A .href ( H .toValue ( " https://derpibooru.org/profiles/ " ++ unpack (oID user))) $ do H .img ! A .src ( H .toValue $ unpack $ avatar user) Rendered timeline since 2015-07-28 15:27:05 Sign up for free to...