Skip to content

Commit bbf5fb4

Browse files
authored
Merge pull request #256 from georgefst/master
Modify some comments that steal haddock syntax
2 parents 48158b9 + e457b27 commit bbf5fb4

File tree

4 files changed

+6
-6
lines changed

4 files changed

+6
-6
lines changed

src/C2HS/C/Names.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -28,7 +28,7 @@
2828
--
2929
--- TODO ----------------------------------------------------------------------
3030
--
31-
-- * `defObjOrErr': currently, repeated declarations are completely ignored;
31+
-- * `defObjOrErr': currently, repeated declarations are completely ignored;
3232
-- eventually, the consistency of the declarations should be checked
3333
--
3434

src/C2HS/C/Trav.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -54,7 +54,7 @@
5454
--
5555
--- TODO ----------------------------------------------------------------------
5656
--
57-
-- * `extractStruct' doesn't account for forward declarations that have no
57+
-- * `extractStruct' doesn't account for forward declarations that have no
5858
-- full declaration yet; if `extractStruct' is called on such a declaration,
5959
-- we have a user error, but currently an internal error is raised
6060
--

src/C2HS/Gen/Bind.hs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1500,7 +1500,7 @@ accessPath (CHSRoot _ ide) = -- t
15001500
do
15011501
decl <- findAndChaseDecl ide False True
15021502
return (ide `simplifyDecl` decl, [BitSize 0 0])
1503-
accessPath (CHSDeref (CHSRoot _ ide) _) = -- *t
1503+
accessPath (CHSDeref (CHSRoot _ ide) _) = -- *t
15041504
do
15051505
decl <- findAndChaseDecl ide True True
15061506
return (ide `simplifyDecl` decl, [BitSize 0 0])
@@ -1529,7 +1529,7 @@ accessPath (CHSRef path ide) = -- a.m
15291529
case declr of
15301530
(Just (CDeclr _ [] _ _ _), _, _) -> return ()
15311531
_ -> structExpectedErr ide'
1532-
accessPath (CHSDeref path _pos) = -- *a
1532+
accessPath (CHSDeref path _pos) = -- *a
15331533
do
15341534
(decl, offsets) <- accessPath path
15351535
decl' <- derefOrErr decl
@@ -3142,7 +3142,7 @@ cCompiler = unsafePerformIO $ do
31423142
let mungedCc = mungePath topDir cc
31433143
writeIORef cCompilerRef $ Just mungedCc
31443144
return mungedCc
3145-
_ -> error "Failed to determine C compiler from 'ghc --info'!"
3145+
_ -> error "Failed to determine C compiler from 'ghc --info'!"
31463146

31473147
where
31483148
-- adapted from ghc/compiler/main/Packages.hs

src/C2HS/Gen/Header.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -39,7 +39,7 @@
3939
--
4040
--- TODO ----------------------------------------------------------------------
4141
--
42-
-- * Ideally, `ghFrag[s]' should be tail recursive
42+
-- * Ideally, `ghFrag[s]' should be tail recursive
4343

4444
module C2HS.Gen.Header (
4545
genHeader

0 commit comments

Comments
 (0)