Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
18 lines (13 sloc) 400 Bytes
module Main
where
import Data.List (intersperse)
import System.Environment (getArgs)
import Lambdabot.Pointful (pointful)
printUsage :: IO ()
printUsage = putStrLn "Usage: pointful QUERY"
main :: IO ()
main = do query <- getArgs
if null query
then printUsage
else let query' = concat $ intersperse " " query
in putStrLn $ pointful query'
Something went wrong with that request. Please try again.