X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FFinder.lhs;h=63beae4e6a63e20c0e9c3d38d5070c2e67e7cddc;hb=601414c1ef664e0b9e4e45db46e115b3a9e8632d;hp=ca49aa2216b10ba1d83eadd0ce5781d823f8ecc2;hpb=ba9431759b4b753c214f346538a9148395afab92;p=ghc-hetmet.git diff --git a/compiler/main/Finder.lhs b/compiler/main/Finder.lhs index ca49aa2..63beae4 100644 --- a/compiler/main/Finder.lhs +++ b/compiler/main/Finder.lhs @@ -490,13 +490,13 @@ mkStubPaths dflags mod location stub_basename = stub_basename0 ++ "_stub" -- this is the filename we're going to use when - -- #including the stub_h file from the .hc file. + -- \#including the stub_h file from the .hc file. -- Without -stubdir, we just #include the basename -- (eg. for a module A.B, we #include "B_stub.h"), -- relying on the fact that we add an implicit -I flag -- for the directory in which the source file resides -- (see DriverPipeline.hs). With -stubdir, we - -- #include "A/B.h", assuming that the user has added + -- \#include "A/B.h", assuming that the user has added -- -I along with -stubdir . include_basename | Just _ <- stubdir = mod_basename