31 lines
821 B
Haskell
31 lines
821 B
Haskell
|
{-# 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)
|
||
|
import System.Directory (createDirectoryIfMissing)
|
||
|
|
||
|
mkYesodDispatch "DataIdClient" resourcesDataIdClient
|
||
|
|
||
|
main :: IO ()
|
||
|
main = getStaticDir "/tmp/data-id" >>= warp 3000 . DataIdClient
|
||
|
|
||
|
getStaticDir :: FilePath -> IO Static
|
||
|
getStaticDir dir = createDirectoryIfMissing True dir >> static dir
|