Sample of authenticated Issue report from private repo

Author: paulrzcz

samples/Issues/IssueReport/Issues.hs

@@ -0,0 +1,44 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Main where
+
+import qualified Github.Issues as Github
+import qualified Data.ByteString as B
+import Report
+import Text.PrettyPrint.Leijen
+
+auth :: Maybe (B.ByteString, B.ByteString)
+auth = Just ("yourgithub id", "somepassword")
+
+mkIssue :: ReportedIssue -> Doc
+mkIssue (Issue n t h) = hsep [
+ fill 5 (text ("#" ++ (show n))),
+ fill 50 (text t),
+ fill 5 (text (show h))]
+
+vissues :: ([Doc], [Doc], [Doc]) -> Doc
+vissues (x, y, z) = hsep [(vcat x), align (vcat y), align (vcat z)] 
+
+mkDoc :: Report -> Doc
+mkDoc (Report issues total) = vsep [
+ text "Report for the milestone",
+ (vsep . map mkIssue) issues, 
+ text ("Total hours : " ++ (show total) ++" hours")
+ ]
+
+mkFullDoc :: [Github.Issue] -> Doc
+mkFullDoc = mkDoc . prepareReport
+
+-- The public repo is used as private are quite sensitive for this report
+-- 
+-- The main idea is to use labels like 1h, 2h etc for man-hour estimation of issues
+-- on private repos for development "on hire"
+--
+-- This tool is used to generate report on work done for the customer
+--
+main :: IO ()
+main = do
+ let limitations = [Github.OnlyClosed, Github.MilestoneId 4]
+ possibleIssues <- Github.issuesForRepo' auth "paulrzcz" "hquantlib" limitations
+ case possibleIssues of
+ (Left err) -> putStrLn $ "Error: " ++ show err
+ (Right issues) -> putDoc $ mkFullDoc issues 

samples/Issues/IssueReport/Report.hs

@@ -0,0 +1,62 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Report (
+ ReportedIssue (..),
+ Report (..),
+ prepareReport,
+ convertLabels
+ ) where
+
+import Text.Regex.Posix
+import qualified Github.Issues as Github
+
+data ReportedIssue = Issue {
+ riNumber :: Int,
+ riTitle :: String,
+ riHour :: Double
+ } deriving (Show)
+
+data Report = Report {
+ rIssues :: [ReportedIssue],
+ rTotal :: Double
+ } deriving (Show)
+
+convertIssue :: Github.Issue -> ReportedIssue
+convertIssue issue = Issue {
+ riNumber = Github.issueNumber issue,
+ riTitle = Github.issueTitle issue,
+ riHour = convertLabels issue
+ }
+
+convertLabels :: Github.Issue -> Double
+convertLabels = sumUp . toNames . Github.issueLabels
+
+prepareReport :: [Github.Issue] -> Report
+prepareReport issues = Report {
+ rIssues = reportedIssues,
+ rTotal = foldl summator 0 reportedIssues
+ } where reportedIssues = map convertIssue issues
+ summator z x = z + (riHour x)
+
+-- Helper functions to construct a sum of hour labels
+
+sumUp :: [Maybe Double] -> Double
+sumUp = foldl s 0.0
+ where s z Nothing = z
+ s z (Just x) = z+x
+
+toNames :: [Github.IssueLabel] -> [Maybe Double]
+toNames = map (toValue . Github.labelName) 
+
+isValue :: String -> Bool
+isValue label = (label =~ ("^[0-9]h" :: String)) :: Bool
+
+convert :: Read a => [Char] -> a
+convert label = read $ take len label
+ where len = (length label) - 1
+
+toValue :: Read a => String -> Maybe a
+toValue label
+ | isValue label = Just (convert label)
+ | otherwise = Nothing
+
+