Minor haddock fixups

diff --git a/Makefile b/Makefile
index c4c2c6d7f7c40a912f87fc099dc82258e402894b..552f643162d4dd6f0c609a63e42087dda1a3fd8f 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -55,7 +55,7 @@ HADDOCK_HTML ?= "../\\$$pkgid/html"
 haddock:
        mkdir -p dist/alldoc
        haddock --html -o dist/alldoc \
-        --ignore-all-exports -w --optghc=-isrc \
+        --ignore-all-exports -w --optghc=-isrc --optghc=-idist/build/autogen \
         -t "Dyna -- GIT `git describe --always`" \
         `runghc -imisc HaddockPaths "$(HADDOCK_HTML)"` \
         `grep -ie '^\( \|\t\)*main-is:' dyna.cabal | sed -e "s/^.*Is: */src\//"`

diff --git a/src/Dyna/Backend/BackendDefn.hs b/src/Dyna/Backend/BackendDefn.hs
index ef87f95d56fed455e33ff4c5a35efb3a038b0440..1b11cab32d254b82084034cce8ab9d1a381f07f4 100644 (file)
--- a/src/Dyna/Backend/BackendDefn.hs
+++ b/src/Dyna/Backend/BackendDefn.hs
@@ -22,8 +22,8 @@ import qualified Text.PrettyPrint.Free            as PP
 -- answer, of course, is to use update mode information, once we have it.
 
 type BackendDriver bs = AggMap                       -- ^ Aggregation
-                      -> [(Rule,[(Int,Maybe DFunctAr -- ^ Rule update
-                                 , Cost, DVar, DVar, Actions bs)])]
+                      -> [(Rule,[(Int,Maybe DFunctAr
+                                 , Cost, DVar, DVar, Actions bs)])] -- ^ Rule update
                       -> [(Rule,Cost,Actions bs)] -- ^ Initializers
                       -> S.Set DFunctAr           -- ^ Ground backchains
                       -> [(DFunctAr,Rule,([DVar],(Cost,Actions bs)))] -- ^ GBC plans