diff --git a/src/PullWatch/PullWatch.hs b/src/PullWatch/PullWatch.hs index ebce74a..063a2d0 100644 --- a/src/PullWatch/PullWatch.hs +++ b/src/PullWatch/PullWatch.hs @@ -47,6 +47,14 @@ data PullRequest = PR { } deriving (Show) +instance Default PullRequest where + def = PR { + prText = "" + , prTitle = "" + , prRepo = "" + , prOwner = "" + , prID = 0 + } tenMinutes = 300000000*2