DSL.hs

module Network.Loli.DSL where

import Control.Monad.State
import Data.ByteString.Lazy.UTF8 (fromString)
import Hack
import Hack.Contrib.Constants
import Hack.Contrib.Middleware.Static
import Hack.Contrib.Response
import MPS
import Network.Loli.Engine
import Network.Loli.Config
import Prelude hiding ((.), (>), (^))
import qualified Control.Monad.State as State


app :: Application -> AppUnit
app f = do
  get_env >>= (f > io) >>= set_response

text :: String -> AppUnit
text x = do
  update_response $ set_content_type _TextPlain
  update_response $ set_body (x.fromString)

html :: String -> AppUnit
html x = do
  update_response $ set_content_type _TextHtml
  update_response $ set_body (x.fromString)

get, put, delete, post :: String -> AppUnit -> Unit
get    = route GET
put    = route PUT
delete = route DELETE
post   = route POST

middleware :: Middleware -> Unit
middleware x = add_middleware x .update

mime :: String -> String -> Unit
mime k v = add_mime k v .update

public :: Maybe String -> [String] -> Unit
public r xs = middleware $ static r xs

io :: (MonadIO m) => IO a -> m a
io = liftIO

captured :: AppUnitT [(String, String)]
captured = get_env ^ hackHeaders ^ filter_captured
  where
    filter_captured =
        select (fst > starts_with loli_captures_prefix)
      > map_fst (drop (loli_captures_prefix.length))