gistfile1.txt

module Main where

import Prelude
import Control.Monad.Eff.Class
import Network.HTTP.StatusCode
import Network.HTTP.Affjax as Ajax
import Control.Monad.Aff (Aff, Canceler(..), attempt, launchAff, makeAff)
import Control.Monad.Aff.Console (CONSOLE, log)
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.Exception ( Error, try)
import Data.Either (Either(..), either)
import Network.HTTP.Affjax (AJAX, get)


getDeviceDetails (Right x) =  Right ("hello" <> x)
getDeviceDetails (Left _) =  Left "Error"
 
api1 = do
  e <- attempt $ (get "https://gitter.im/purescript/purescript" )
  case e of
    Right resp -> pure (Right resp.response)
    Left error -> pure (Left "Error") 

main = launchAff do
  x <- api1 
  let y =  getDeviceDetails x
   
  case y of
    Right resp -> log resp
    Left error -> log error