From dabcd5d4e2f8b8d6e4883697b3c63c30c00742f7 Mon Sep 17 00:00:00 2001 From: Nathaniel Wesley Filardo Date: Thu, 11 Jul 2013 14:04:12 -0400 Subject: [PATCH] Minor haddock fixups --- Makefile | 2 +- src/Dyna/Backend/BackendDefn.hs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Makefile b/Makefile index c4c2c6d..552f643 100644 --- 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 ef87f95..1b11cab 100644 --- 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 -- 2.50.1