From: Clinton Ebadi <clinton@unknownlamer.org>
Date: Mon, 6 Oct 2014 03:44:32 +0000 (-0400)
Subject: reset error state before generating basis library
X-Git-Tag: release_20141005^2
X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/commitdiff_plain/5e7777d45db50241a334cb52c0aafc29b2ee6618?hp=fb9aeb18e3091035c1d82484a4348418f2f32adf

reset error state before generating basis library

Errors occuring during publishing in the dispatcher can leak into the
next run. Reset the error state in basis to avoid returning an empty
basis library now that it is evaluated at each MsgConfig.

This may be the wrong solution -- not sure why errors get to hang
around after a run anyway.
---

diff --git a/src/main.sml b/src/main.sml
index 1816f78..475d1aa 100644
--- a/src/main.sml
+++ b/src/main.sml
@@ -56,6 +56,7 @@ fun check' G fname =
 
 fun basis () =
     let
+	val _ = ErrorMsg.reset ()
 	val dir = Posix.FileSys.opendir Config.libRoot
 
 	fun loop files =