module Main where

import Affjax (Error, printError)
import Client.Stac (getCollection, getCollectionItems, getCollections, getConformance, getLandingPage)
import Data.Either (Either(..))
import Data.String.NonEmpty (NonEmptyString, unsafeFromString)
import Effect (Effect)
import Effect.Aff (launchAff_)
import Effect.Class.Console (info)
import Partial.Unsafe (unsafePartial)
import Prelude (class Show, Unit, bind, show, ($), (<<<), (<>), (>>=))

apiHost :: String
apiHost = "http://localhost:9090"

collectionId :: NonEmptyString
collectionId = unsafePartial $ unsafeFromString "a-nice-collection-id-in-your-api"

showResp :: forall a. Show a => String -> Either Error a -> String
showResp tag (Right _) = show $ "Request successful for " <> tag

showResp tag (Left err) = printError err

main :: Effect Unit
main = do
  collectionsResp <- launchAff_ $ getCollections apiHost >>= (info <<< showResp "collections")
  collectionResp <- launchAff_ $ getCollection apiHost collectionId >>= (info <<< showResp "single collection")
  collectionItemsResp <- launchAff_ $ getCollectionItems apiHost collectionId >>= (info <<< showResp "collection items")
  landingPage <- launchAff_ $ getLandingPage apiHost >>= (info <<< showResp "landing page")
  conformance <- launchAff_ $ getConformance apiHost >>= (info <<< showResp "conformance")
  info "All done!"