Something resembling of a front page

This commit is contained in:
Mats Rauhala 2018-08-02 22:11:11 +03:00
parent 0579b6d3e1
commit 1e088afce4
5 changed files with 77 additions and 1 deletions

View File

@ -18,6 +18,8 @@ cabal-version: >=1.10
executable ebook-manager executable ebook-manager
main-is: Main.hs main-is: Main.hs
other-modules: Devel.Main other-modules: Devel.Main
, Server
, API
-- other-extensions: -- other-extensions:
build-depends: base >=4.10 && <4.11 build-depends: base >=4.10 && <4.11
, servant , servant

43
src/API.hs Normal file
View File

@ -0,0 +1,43 @@
{-# 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
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
handler :: ServerT API Handler
handler = return Index

View File

@ -1,7 +1,10 @@
module Main where module Main where
import Server (server)
import Network.Wai.Handler.Warp (run)
defaultMain :: IO () defaultMain :: IO ()
defaultMain = putStrLn "Hello haskell" defaultMain = run 8080 server
main :: IO () main :: IO ()
main = defaultMain main = defaultMain

27
src/Server.hs Normal file
View File

@ -0,0 +1,27 @@
{-# Language DataKinds #-}
{-# Language TypeFamilies #-}
{-# Language TypeOperators #-}
{-# Language NoImplicitPrelude #-}
{-# Language MultiParamTypeClasses #-}
{-# Language OverloadedStrings #-}
{-# Language TemplateHaskell #-}
{-# Language QuasiQuotes #-}
{-# Language RecordWildCards #-}
{-# Language DeriveGeneric #-}
{-# Language FlexibleInstances #-}
module Server where
import qualified API as API
import Servant
type API = API.API :<|> "static" :> Raw
handler :: ServerT API Handler
handler = API.handler :<|> serveDirectoryFileServer "static"
server :: Application
server = serve api handler
where
api :: Proxy API
api = Proxy

1
static/css/bulma.min.css vendored Normal file

File diff suppressed because one or more lines are too long