gistfile1.purs

module Main where

import Prelude
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.Class
import Control.Monad.Aff (launchAff, Aff, makeAff, attempt)
import Control.Monad.Aff.Console (CONSOLE, log)
import Control.Monad.Eff.Exception (Error, try)
import Control.Monad.Except.Trans (ExceptT(..), runExceptT)
import Network.HTTP.Affjax as Ajax
import Data.Either (Either(..), either)

api1 = map _.response $ ExceptT $ attempt $ Ajax.get "/api1"    
api2 x = map _.response $ ExceptT $ attempt $ Ajax.get ("/api" <> x)
main = launchAff $ map (either log log) $ runExceptT (api1 >>= api2)