Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Modify some comments that steal haddock syntax #256

Merged
merged 1 commit into from
Aug 13, 2020
Merged

Modify some comments that steal haddock syntax #256

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion src/C2HS/C/Names.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -28,7 +28,7 @@
--
--- TODO ----------------------------------------------------------------------
--
-- * `defObjOrErr': currently, repeated declarations are completely ignored;
-- * `defObjOrErr': currently, repeated declarations are completely ignored;
-- eventually, the consistency of the declarations should be checked
--

Expand Down
2 changes: 1 addition & 1 deletion src/C2HS/C/Trav.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -54,7 +54,7 @@
--
--- TODO ----------------------------------------------------------------------
--
-- * `extractStruct' doesn't account for forward declarations that have no
-- * `extractStruct' doesn't account for forward declarations that have no
-- full declaration yet; if `extractStruct' is called on such a declaration,
-- we have a user error, but currently an internal error is raised
--
Expand Down
6 changes: 3 additions & 3 deletions src/C2HS/Gen/Bind.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1500,7 +1500,7 @@ accessPath (CHSRoot _ ide) = -- t
do
decl <- findAndChaseDecl ide False True
return (ide `simplifyDecl` decl, [BitSize 0 0])
accessPath (CHSDeref (CHSRoot _ ide) _) = -- *t
accessPath (CHSDeref (CHSRoot _ ide) _) = -- *t
do
decl <- findAndChaseDecl ide True True
return (ide `simplifyDecl` decl, [BitSize 0 0])
Expand Down Expand Up @@ -1529,7 +1529,7 @@ accessPath (CHSRef path ide) = -- a.m
case declr of
(Just (CDeclr _ [] _ _ _), _, _) -> return ()
_ -> structExpectedErr ide'
accessPath (CHSDeref path _pos) = -- *a
accessPath (CHSDeref path _pos) = -- *a
do
(decl, offsets) <- accessPath path
decl' <- derefOrErr decl
Expand Down Expand Up @@ -3142,7 +3142,7 @@ cCompiler = unsafePerformIO $ do
let mungedCc = mungePath topDir cc
writeIORef cCompilerRef $ Just mungedCc
return mungedCc
_ -> error "Failed to determine C compiler from 'ghc --info'!"
_ -> error "Failed to determine C compiler from 'ghc --info'!"

where
-- adapted from ghc/compiler/main/Packages.hs
Expand Down
2 changes: 1 addition & 1 deletion src/C2HS/Gen/Header.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -39,7 +39,7 @@
--
--- TODO ----------------------------------------------------------------------
--
-- * Ideally, `ghFrag[s]' should be tail recursive
-- * Ideally, `ghFrag[s]' should be tail recursive

module C2HS.Gen.Header (
genHeader
Expand Down