You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
402 B
19 lines
402 B
{-# LANGUAGE ImplicitParams #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
module Main where
|
|
|
|
import PullWatch.PullWatch (getLatestPRs, getLatest, toNote, prID)
|
|
import PullWatch.Environment (getPAT)
|
|
|
|
import Control.Applicative
|
|
|
|
main :: IO ()
|
|
main = do
|
|
-- Set up authentication token from environment
|
|
pat <- getPAT
|
|
let ?pat = pat
|
|
|
|
prIDs <- getLatestPRs [("racket", "racket")]
|
|
print prIDs
|
|
|
|
return ()
|
|
|