pursuit-client-0.1.0: app/Main.hs

{-# Language OverloadedStrings, LambdaCase #-}

module Main where

import qualified Data.Text as T
import qualified Data.Text.IO as T
import System.Environment (getArgs)
import Web.Pursuit.Client

main :: IO ()
main =
    getArgs >>= \case
        [] -> putStrLn "usage: pursuit-search \"<search-string>\""
        xs -> T.putStrLn . either T.pack showResults =<< search (unwords xs)


showResults :: [Result] -> T.Text
showResults =
    T.unlines . map showResult