Skip to content

Commit d07a9f9

Browse files
andreasabelandreasabel
committed
Fix whitespace in {*hs, *.md} files
1 parent 83acdf8 commit d07a9f9

File tree

14 files changed

+22
-23
lines changed

14 files changed

+22
-23
lines changed

‎CHANGELOG.md‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,7 @@
66
[#455](https://github.com/phadej/github/pull/455)
77
- Update RepoWebhookEvent
88
[#461](https://github.com/phadej/github/pull/461)
9-
- PullRequest Reviews may not have submitted_at field
9+
- PullRequest Reviews may not have submitted_at field
1010
[#450](https://github.com/phadej/github/pull/450)
1111

1212
## Changes for 0.26
@@ -23,7 +23,7 @@
2323
[#417](https://github.com/phadej/github/pull/417)
2424
- Add deleteReference endpoint
2525
[#388](https://github.com/phadej/github/pull/388)
26-
26+
2727
## Changes for 0.25
2828

2929
- Add `executeRequestWithMgrAndRes`
@@ -145,7 +145,7 @@ This reduces symbol bloat in the library.
145145
[#307](https://github.com/phadej/github/pull/307)
146146
- Make "repo" in PullRequestCommit nullable (repository can be gone)
147147
[#311](https://github.com/phadej/github/pull/311)
148-
- Add read-only emails endpoint
148+
- Add read-only emails endpoint
149149
[#313](https://github.com/phadej/github/pull/313)
150150
- Organisation membership API
151151
[#312](https://github.com/phadej/github/pull/312)

‎samples/GitData/References/GitCreateReference.hs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -13,7 +13,7 @@ main = do
1313
case newlyCreatedGitRef of
1414
(Left err) -> putStrLn $ "Error: " ++ show err
1515
(Right newRef) -> putStrLn . formatReference $ newRef
16-
16+
1717
formatReference :: GitReference -> String
1818
formatReference ref =
1919
(gitObjectSha $ gitReferenceObject ref) ++ "\t" ++ (gitReferenceRef ref)

‎samples/Issues/IssueReport/Issues.hs‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -18,20 +18,20 @@ mkIssue (Issue n t h) = hsep [
1818
fill 5 (text (show h))]
1919

2020
vissues :: ([Doc], [Doc], [Doc]) -> Doc
21-
vissues (x, y, z) = hsep [(vcat x), align (vcat y), align (vcat z)]
21+
vissues (x, y, z) = hsep [(vcat x), align (vcat y), align (vcat z)]
2222

2323
mkDoc :: Report -> Doc
2424
mkDoc (Report issues total) = vsep [
2525
text "Report for the milestone",
26-
(vsep . map mkIssue) issues,
26+
(vsep . map mkIssue) issues,
2727
text ("Total hours : " ++ (show total) ++" hours")
2828
]
2929

3030
mkFullDoc :: [Github.Issue] -> Doc
3131
mkFullDoc = mkDoc . prepareReport
3232

3333
-- The public repo is used as private are quite sensitive for this report
34-
--
34+
--
3535
-- The main idea is to use labels like 1h, 2h etc for man-hour estimation of issues
3636
-- on private repos for development "on hire"
3737
--
@@ -43,4 +43,4 @@ main = do
4343
possibleIssues <- Github.issuesForRepo' auth "paulrzcz" "hquantlib" limitations
4444
case possibleIssues of
4545
(Left err) -> putStrLn $ "Error: " ++ show err
46-
(Right issues) -> putDoc $ mkFullDoc issues
46+
(Right issues) -> putDoc $ mkFullDoc issues

‎samples/Issues/IssueReport/IssuesEnterprise.hs‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -20,20 +20,20 @@ mkIssue (Issue n t h) = hsep [
2020
fill 5 (text (show h))]
2121

2222
vissues :: ([Doc], [Doc], [Doc]) -> Doc
23-
vissues (x, y, z) = hsep [(vcat x), align (vcat y), align (vcat z)]
23+
vissues (x, y, z) = hsep [(vcat x), align (vcat y), align (vcat z)]
2424

2525
mkDoc :: Report -> Doc
2626
mkDoc (Report issues total) = vsep [
2727
text "Report for the milestone",
28-
(vsep . map mkIssue) issues,
28+
(vsep . map mkIssue) issues,
2929
text ("Total hours : " ++ (show total) ++" hours")
3030
]
3131

3232
mkFullDoc :: [Github.Issue] -> Doc
3333
mkFullDoc = mkDoc . prepareReport
3434

3535
-- The public repo is used as private are quite sensitive for this report
36-
--
36+
--
3737
-- The main idea is to use labels like 1h, 2h etc for man-hour estimation of issues
3838
-- on private repos for development "on hire"
3939
--
@@ -45,4 +45,4 @@ main = do
4545
possibleIssues <- Github.issuesForRepo' auth "paulrzcz" "hquantlib" limitations
4646
case possibleIssues of
4747
(Left err) -> putStrLn $ "Error: " ++ show err
48-
(Right issues) -> putDoc $ mkFullDoc issues
48+
(Right issues) -> putDoc $ mkFullDoc issues

‎samples/Issues/IssueReport/Report.hs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -45,7 +45,7 @@ sumUp = foldl s 0.0
4545
s z (Just x) = z+x
4646

4747
toNames :: [Github.IssueLabel] -> [Maybe Double]
48-
toNames = map (toValue . Github.labelName)
48+
toNames = map (toValue . Github.labelName)
4949

5050
isValue :: String -> Bool
5151
isValue label = (label =~ ("^[0-9]h" :: String)) :: Bool

‎samples/Repos/Commits/GitShow.hs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -18,7 +18,7 @@ formatCommit commit =
1818
patches
1919
where author = Github.gitCommitAuthor gitCommit
2020
gitCommit = Github.commitGitCommit commit
21-
patches =
21+
patches =
2222
intercalate "\n" $ map Github.filePatch $ Github.commitFiles commit
2323

2424
formatAuthor :: Github.GitUser -> String

‎samples/Repos/DeployKeys/ShowDeployKey.hs‎

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,4 +17,3 @@ main = do
1717
formatRepoDeployKey :: DK.RepoDeployKey -> String
1818
formatRepoDeployKey = show
1919

20-

‎samples/Search/SearchCode.hs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -30,4 +30,4 @@ formatCode r =
3030
in intercalate "\n" $ map fmt fields
3131
where fmt (s,f) = fill 12 (s ++ ":") ++ " " ++ f r
3232
fill n s = s ++ replicate n' ' '
33-
where n' = max 0 (n - length s)
33+
where n' = max 0 (n - length s)

‎samples/Search/SearchRepos.hs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -52,7 +52,7 @@ formatRepo r =
5252
where fmt (s,f) = fill 12 (s ++ ":") ++ " " ++ f r
5353
orEmpty = fromMaybe ""
5454
fill n s = s ++ replicate n' ' '
55-
where n' = max 0 (n - length s)
55+
where n' = max 0 (n - length s)
5656

5757

5858
formatMaybeDate :: Maybe UTCTime -> String

‎samples/Users/Followers/ListFollowers.hs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -9,7 +9,7 @@ import qualified GitHub
99
main :: IO ()
1010
main = do
1111
auth <- getAuth
12-
possibleUsers <- GitHub.executeRequestMaybe auth $ GitHub.usersFollowingR "mike-burns" GitHub.FetchAll
12+
possibleUsers <- GitHub.executeRequestMaybe auth $ GitHub.usersFollowingR "mike-burns" GitHub.FetchAll
1313
putStrLn $ either (("Error: " <>) . tshow)
1414
(foldMap ((<> "\n") . formatUser))
1515
possibleUsers

0 commit comments

Comments
 (0)