2023-01-20 09:20:06 +02:00
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
|
|
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
{-# LANGUAGE TypeFamilies #-}
|
|
|
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
|
|
{-# LANGUAGE RankNTypes #-}
|
|
|
|
{-# LANGUAGE FlexibleContexts #-}
|
|
|
|
{-# LANGUAGE DeriveGeneric #-}
|
|
|
|
{-# LANGUAGE ViewPatterns #-}
|
|
|
|
|
|
|
|
{-# LANGUAGE NoImplicitPrelude #-}
|
|
|
|
|
|
|
|
import Relude hiding (get)
|
|
|
|
|
|
|
|
import Yesod
|
|
|
|
import Yesod.Auth
|
|
|
|
import Client.Types
|
|
|
|
import Client.Handlers
|
|
|
|
import Client.Auth ()
|
|
|
|
import Yesod.Static (static, Static)
|
2023-09-09 17:43:32 +03:00
|
|
|
import Server (runMigrations)
|
2023-01-20 09:20:06 +02:00
|
|
|
import System.Directory (createDirectoryIfMissing)
|
|
|
|
|
|
|
|
mkYesodDispatch "DataIdClient" resourcesDataIdClient
|
|
|
|
|
|
|
|
main :: IO ()
|
2023-09-09 17:43:32 +03:00
|
|
|
main = runMigrations >> getStaticDir "/tmp/data-id" >>= warp 3000 . DataIdClient
|
2023-01-20 09:20:06 +02:00
|
|
|
|
|
|
|
getStaticDir :: FilePath -> IO Static
|
|
|
|
getStaticDir dir = createDirectoryIfMissing True dir >> static dir
|