agocorona

C:\Users\magocoal\OneDrive\Haskell\devel\tryhplay>git push heroku master
Initializing repository, done.
Total 0 (delta 0), reused 0 (delta 0)

-----> Fetching custom git buildpack... done
-----> Haskell app detected

-----> Deploying with Haskell on Heroku
       BUILDPACK_URL:                            http://github.com/mietek/haskel
l-on-heroku

agocorona

In haskell, continuations have been right in front of your eyes all the time, Use then to undo actions by means of the backtracking effect added to the the hardworking programmer EDSL.

#A word on continuations# In Haskell, the continuation is the second parameter in the bind operation. While most languages that use imperative and eager execution have to resort to continuations to implement special kinds of flows -so the continuation play a central role in them- haskell has not such problem: It uses continuations natively; The monad instance define what each kind of computation has to do with these continuations.

a bind has two parameters: a closure and a continuation.

 x >>=(f1>>=(f2 >>=f3))

So at every moment you know what is the continuation. In any monad. You don't need any special Cont structure for this!!!. It is right there, in the monad instance:

agocorona

import Haste.HPlay.View
import Prelude hiding (div)

main= runBody $ do
 let id= atr "id"
     type_= atr "type"
     name= atr "name"
     value= atr "value"
 r <-div ! id "selectors" <<<( 
       ( button   "Form A" `pass` OnClick >> return True) <|>

agocorona

#Introduction

This tutorial:

  - Will show how the development of web applications, workflows, asynchronous tasks, Enterprise Application Integration(EAI), Service Integration and Business Process Management (BPM) face the same underlying problem, that may be called the integration problem. That is, in essence, a problem of inversion of control.

  - Will show how the traditional architecture that solves that problem, the state-transition system, end up in the creation of complex frameworks with excessive configurations, standards, APIs and development environments specialized for each particular problem that hides the commonalities and make the integration prohibitively expensive and difficult to program and maintain, while the language Haskell permits the implementation of a common underlying solution for all these problems that is vastly simpler and intuitive.
  
  - For a practical problem, you will learn how to program and test a long running task (a workflow) in a monadic sequence that will automatica

agocorona

module Main where

import MFlow.Wai.Blaze.Html.All hiding( page)
import qualified MFlow.Wai.Blaze.Html.All  as MF(page)

main= runNavigation "" $ transientNav testNav

testNav= do

agocorona

-- normally to be used with autoRefresh and pageFlow when used with other widgets.
authenticateWidget ::  View Html IO ()
authenticateWidget=  wform $ do
   username <- getCurrentUser
   if username /= anonymous
         then do
           private; noCache;noStore
           return username   -- if it is logged alredy, return username to the first wcallback 
         else do             -- if not it tries to get the user/pass from the paramenters and log in if the user sent login/passw
          (name, pass) <- (,) <$> (getString Nothing <! hint "login name"

agocorona

module Main where

import Network
import Network.Socket hiding (listen, accept)

import System.IO
import Control.Concurrent
import Control.Monad
import Control.Monad.IO.Class

agocorona

--
-- Hello-World of the cordova/phonegap application using Haskell.
--
-- here is the screenshoot
--
-- https://twitter.com/AGoCorona/status/532948528621178880
--
-- So that Haste-Haskell can be used to create hybrid smartphone applications
--
-- The original cordova JavaScript hello world is installed following the instructions of this page

agocorona

in chrome console:

JavaScript exception: ReferenceError: h$closeWebSocket is not defined
rts.js:9543 user error (If you can read this, shutdownHaskellAndExit did not exit.)
rts.js:9543 user error (If you can read this, shutdownHaskellAndExit did not exit.)
rts.js:9543 user error (If you can read this, shutdownHaskellAndExit did no
....
....

agocorona

#ifndef ghcjs_HOST_OS
static= id
dynamic= id
strip= id
inputInt :: Maybe Int -> TransIO Int
inputInt _ = empty

inputSubmit :: String -> TransIO String