Web app using Transient/Axiom

webapp.hs

-- Build instructions: It's complicated

{-# LANGUAGE CPP #-}

module Main where

import Prelude hiding (div, id, span)
import GHCJS.HPlay.View
import Transient.Move
import Control.Monad.IO.Class

main :: IO ()
main = simpleWebApp 8080 fileReader

fileReader :: Cloud ()
fileReader = do
  -- Render an input box and a button in the *browser*
  fileName <- local . render $
    inputString Nothing <* inputSubmit "read" `fire` OnClick

  -- Control flow reaches here when button is clicked

  teleport    -- Go to the server

  -- Read the file in the *server*
  contents <- local (liftIO (readFile fileName))

  teleport    -- Back to browser

  -- Render the result in the *browser*
  local . render . rawHtml $ pre contents