ebook-manager/src/API.hs

45 lines
1.3 KiB
Haskell
Raw Normal View History

2018-08-02 22:11:11 +03:00
{-# Language DataKinds #-}
{-# Language TypeFamilies #-}
{-# Language TypeOperators #-}
{-# Language NoImplicitPrelude #-}
{-# Language MultiParamTypeClasses #-}
{-# Language OverloadedStrings #-}
{-# Language TemplateHaskell #-}
{-# Language QuasiQuotes #-}
{-# Language RecordWildCards #-}
{-# Language DeriveGeneric #-}
{-# Language FlexibleInstances #-}
module API (API, handler) where
import ClassyPrelude hiding (Handler, Index)
import Servant
import Servant.HTML.Lucid (HTML)
import Lucid (HtmlT, ToHtml(..))
import qualified Lucid.Html5 as H
2018-08-02 22:32:23 +03:00
import Types
2018-08-02 22:11:11 +03:00
data Index = Index
bulma :: Monad m => HtmlT m ()
bulma = H.doctypehtml_ $ do
H.meta_ [ H.name_ "viewport", H.content_ "width=device-width, initial-scale=1" ]
H.meta_ [ H.charset_ "utf-8" ]
H.title_ "Hello bulma!"
H.link_ [ H.rel_ "stylesheet", H.href_ "/static/css/bulma.min.css" ]
H.script_ [ H.defer_ "", H.src_ "https://use.fontawesome.com/releases/v5.1.0/js/all.js" ] ("" :: String)
H.body_ $ do
H.section_ [ H.class_ "section" ] $ do
H.div_ [ H.class_ "container" ] $ do
H.h1_ [ H.class_ "title" ] "Hello world"
H.p_ [ H.class_ "subtitle" ] "My first website with bulma"
instance ToHtml Index where
toHtml _ = bulma
toHtmlRaw = toHtml
type API = Get '[HTML] Index
2018-08-02 22:32:23 +03:00
handler :: ServerT API AppM
2018-08-02 22:11:11 +03:00
handler = return Index