gistfile1.txt

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 Network.HTTP.Affjax as Ajax
import Network.HTTP.StatusCode
import Data.Either (Either(..), either)
import Data.Maybe

api1 = do
  e <- attempt $ Ajax.get "https://wwwogle.co.in/?q="
  case e of
    Right resp -> pure (Just (Right resp.status))
    Left error -> pure (Nothing) 
     
 
main = launchAff do
  x <- api1 
  
  case x of
    Just (Right (StatusCode statusCode)) -> log $ "Right " <> (show statusCode)
    Just (Left _) -> log "Left"
    Nothing -> log "Left "