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

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

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

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 -> ShowS
[GSuite] -> ShowS
GSuite -> String
(Int -> GSuite -> ShowS)
-> (GSuite -> String) -> ([GSuite] -> ShowS) -> Show GSuite
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> GSuite -> ShowS
showsPrec :: Int -> GSuite -> ShowS
$cshow :: GSuite -> String
show :: GSuite -> String
$cshowList :: [GSuite] -> ShowS
showList :: [GSuite] -> ShowS
Show

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