Biz/App.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE NoImplicitPrelude #-}

-- | General utils for apps
module Biz.App (CSS (..), Manifest (..)) where

import Alpha
import Data.Aeson (ToJSON)
import qualified Data.Text.Lazy as Lazy
import qualified Data.Text.Lazy.Encoding as Lazy
import Network.HTTP.Media
  ( (//),
    (/:),
  )
import Servant

newtype CSS = CSS
  { unCSS :: Text
  }

instance Accept CSS where
  contentType _ = "text" // "css" /: ("charset", "utf-8")

instance MimeRender CSS Text where
  mimeRender _ = Lazy.encodeUtf8 . Lazy.fromStrict

-- | The manifest describes your app for web app thumbnails, iPhone tiles, etc.
data Manifest = Manifest
  { name :: Text,
    short_name :: Text,
    start_url :: Text,
    display :: Text,
    theme_color :: Text,
    description :: Text
  }
  deriving (Show, Eq, Generic)

instance ToJSON Manifest