Changeset 2497 for src/Pugs/External

Timestamp:

04/29/05 23:42:50 (4 years ago)

Author:

theorbtwo

svk:copy_cache_prev:

4052

Message:

We have haddockability! (There's not yet a makefile rule for it -- I still
need to figure out the best options for it. In the meantime, try find src
-name \*.hs|perl -pe 's/hs$/hpp/'|xargs make && haddock find src -name \*.hpp)

Files:

• src/Pugs/External/Haskell.hs (modified) (3 diffs)

src/Pugs/External/Haskell.hs

@@ -68 +68 @@
 
 externalizeHaskell :: String -> String -> IO String
+#ifndef HADDOCK
 externalizeHaskell mod code = do
     let names = map snd exports
@@ -92 +93 @@
         ParseOk (HsModule _ _ _ _ decls) -> decls
         ParseFailed _ err -> error err
+#endif
 
 wrap :: String -> IO Dec
+#ifndef HADDOCK
 wrap fun = do
     [quoted] <- runQ [d|
@@ -101 +104 @@
         |]
     return $ munge quoted ("extern__" ++ fun)
+#endif
 
 munge (ValD _ x y) name = ValD (VarP (mkName name)) x y