Main.purs

import Control.Monad.Except.Trans
import Data.HTTP.Method
import Network.HTTP.Affjax
import Network.HTTP.ResponseHeader
import Network.HTTP.StatusCode
import Prelude
import Control.Plus

import Control.Monad.Aff.Console (log)
import Control.Monad.Eff.Class (liftEff)
import Data.Either (Either(..))
import Data.Argonaut.Core

type Resp = {
  status :: StatusCode,
  headers :: Array ResponseHeader,
  response :: Json
}

fn1 :: forall eff. Aff (ajax :: AJAX | eff) Resp
fn1 = affjax $ defaultRequest { url = "https://api.github.com/users/octocat", method = Left GET }

fn2 :: forall eff. Aff (ajax :: AJAX | eff) Resp
fn2 = affjax $ defaultRequest { url = "https://api.github.com/users/", method = Left GET }

ffn1 = ExceptT $ do
    res <- fn1
    case res.status of
      StatusCode 200 -> pure $ (Right "Hello")
      StatusCode _ -> pure $ (Left "InCorrect")

ffn2 = ExceptT $ do
    res <- fn2
    case res.status of
      StatusCode 200 -> pure $ (Right "Correct")
      StatusCode _ -> pure $ (Left "InCorrect")

main = launchAff $ do
   x <- runExceptT $ ffn1 <|> ffn2
   case x of
     Left err -> log err
     Right res -> log res