77 lines
1.8 KiB
Haskell
77 lines
1.8 KiB
Haskell
|
{-# LANGUAGE DataKinds #-}
|
||
|
|
{-# LANGUAGE QuasiQuotes #-}
|
||
|
|
{-# LANGUAGE TypeOperators #-}
|
||
|
|
{-# LANGUAGE FlexibleInstances #-}
|
||
|
|
-----------------------------------------------------------------------------
|
||
|
|
-- |
|
||
|
|
-- Module : Servant.JQuery
|
||
|
|
-- Copyright : (C) 2014 Alp Mestanogullari
|
||
|
|
-- License : BSD3
|
||
|
|
-- Maintainer : Alp Mestanogullari <alpmestan@gmail.com>
|
||
|
|
-- Stability : experimental
|
||
|
|
-- Portability : non-portable
|
||
|
|
--
|
||
|
|
-- Usage:
|
||
|
|
module Servant.JQuery where
|
||
|
|
|
||
|
|
import Control.Lens
|
||
|
|
import Data.List
|
||
|
|
import Data.Proxy
|
||
|
|
import Data.String.Interpolate
|
||
|
|
import Servant.JQuery.Internal
|
||
|
|
|
||
|
|
jquery :: HasJQ layout => Proxy layout -> JQ layout
|
||
|
|
jquery p = jqueryFor p defReq
|
||
|
|
|
||
|
|
-- js codegen
|
||
|
|
generateJS :: AjaxReq -> String
|
||
|
|
generateJS req =
|
||
|
|
[i|
|
||
|
|
function #{fname}(#{argsStr})
|
||
|
|
{
|
||
|
|
$.ajax(
|
||
|
|
{ url: #{url}
|
||
|
|
, success: onSuccess #{dataBody}
|
||
|
|
, error: onError
|
||
|
|
, type: '#{method}'
|
||
|
|
});
|
||
|
|
}
|
||
|
|
|]
|
||
|
|
|
||
|
|
where argsStr = intercalate ", " args
|
||
|
|
args = captures
|
||
|
|
++ map (view argName) queryparams
|
||
|
|
++ body
|
||
|
|
++ ["onSuccess", "onError"]
|
||
|
|
|
||
|
|
captures = map captureArg
|
||
|
|
. filter isCapture
|
||
|
|
$ req ^. reqUrl.path
|
||
|
|
|
||
|
|
queryparams = req ^.. reqUrl.queryStr.traverse
|
||
|
|
|
||
|
|
body = if req ^. reqBody
|
||
|
|
then ["body"]
|
||
|
|
else []
|
||
|
|
|
||
|
|
dataBody =
|
||
|
|
if req ^. reqBody
|
||
|
|
then "\n , data: JSON.stringify(body)"
|
||
|
|
else ""
|
||
|
|
|
||
|
|
fname = req ^. funcName
|
||
|
|
method = req ^. reqMethod
|
||
|
|
url = "'"
|
||
|
|
++ urlArgs
|
||
|
|
++ queryArgs
|
||
|
|
|
||
|
|
urlArgs = jsSegments
|
||
|
|
$ req ^.. reqUrl.path.traverse
|
||
|
|
|
||
|
|
queryArgs = if null queryparams
|
||
|
|
then ""
|
||
|
|
else " + '?" ++ jsParams queryparams
|
||
|
|
|
||
|
|
printJS :: AjaxReq -> IO ()
|
||
|
|
printJS = putStrLn . generateJS
|