{-# LANGUAGE OverloadedStrings #-}
module Config.Site (
    siteName
  , baseUrl
  , timeZoneJST
  , defaultTimeLocale'
  , GSuite (..)
  , gSuiteConf
) where

import           Data.Time.Format    (TimeLocale (..), defaultTimeLocale)
import           Data.Time.LocalTime (TimeZone (..))

siteName :: String
siteName :: String
siteName = String
"roki.dev"

baseUrl :: String
baseUrl :: String
baseUrl = String
"https://" String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
siteName

timeZoneJST :: TimeZone
timeZoneJST :: TimeZone
timeZoneJST = Int -> Bool -> String -> TimeZone
TimeZone (Int
9 Int -> Int -> Int
forall a. Num a => a -> a -> a
* Int
60) Bool
False String
"JST"

defaultTimeLocale' :: TimeLocale
defaultTimeLocale' :: TimeLocale
defaultTimeLocale' = TimeLocale
defaultTimeLocale {
    knownTimeZones = knownTimeZones defaultTimeLocale <> [timeZoneJST]
  }

data GSuite = GSuite {
    GSuite -> String
gCxPrefix      :: String
  , GSuite -> String
gSiteVerifyKey :: String
  } deriving Int -> GSuite -> String -> String
[GSuite] -> String -> String
GSuite -> String
(Int -> GSuite -> String -> String)
-> (GSuite -> String)
-> ([GSuite] -> String -> String)
-> Show GSuite
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> GSuite -> String -> String
showsPrec :: Int -> GSuite -> String -> String
$cshow :: GSuite -> String
show :: GSuite -> String
$cshowList :: [GSuite] -> String -> String
showList :: [GSuite] -> String -> String
Show

gSuiteConf :: GSuite
gSuiteConf :: GSuite
gSuiteConf = GSuite {
    gCxPrefix :: String
gCxPrefix = String
"002573853708615501531"
  , gSiteVerifyKey :: String
gSiteVerifyKey = String
"13X5cycw11yFEsfZrhsQ0m_cSI90r7HucdErNDQ8Za8"
  }