module Language.Fay.Yesod where
import Prelude
#ifdef FAY
import FFI
#else
import Language.Fay.FFI
#endif
import Data.Data
#ifdef FAY
data Text = Text
deriving (Show, Read, Eq, Typeable, Data)
fromString :: String -> Text
fromString = ffi "%1"
toString :: Text -> String
toString = ffi "%1"
#else
import qualified Data.Text as T
type Text = T.Text
fromString :: String -> Text
fromString = T.pack
toString :: Text -> String
toString = T.unpack
#endif
data Returns a = Returns
deriving (Show, Read, Data, Typeable)
call :: (Returns a -> command)
-> (a -> Fay ())
-> Fay ()
call f g = ajaxCommand (f Returns) g
callWithErrorHandling
:: (Returns a -> command)
-> (a -> Fay ())
-> (Fay ())
-> Fay ()
callWithErrorHandling f g h = ajaxCommandWithErrorHandling (f Returns) g h
ajaxCommand :: Automatic command
-> (Automatic a -> Fay ())
-> Fay ()
ajaxCommand = ffi "jQuery['ajax']({ url: window['yesodFayCommandPath'], type: 'POST', data: { json: JSON.stringify(%1) }, dataType: 'json', success : %2})"
ajaxCommandWithErrorHandling
:: Automatic command
-> (Automatic a -> Fay ())
-> (Fay ())
-> Fay ()
ajaxCommandWithErrorHandling = ffi "jQuery['ajax']({ url: window['yesodFayCommandPath'], type: 'POST', data: { json: JSON.stringify(%1) }, dataType: 'json', success : %2, error: %3})"