--- a/src/sigcheck.sml	Sun Sep 13 16:02:45 2015 -0400
+++ b/src/sigcheck.sml	Sun Sep 13 17:02:17 2015 -0400
@@ -16,7 +16,7 @@
  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
- * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
@@ -32,7 +32,7 @@
 structure IS = IntBinarySet
 structure E = ErrorMsg
 
-fun check (ds, sl) =
+fun check (file : file) =
     let
         fun isSiggy siggers =
             MonoUtil.Decl.exists {typ = fn _ => false,
@@ -89,9 +89,9 @@
                     (sigify sigdecs d, (siggers, sigdecs))
               | _ => (sigify sigdecs d, (siggers, sigdecs))
 
-        val (ds, _) = ListUtil.foldlMap doDecl (IS.empty, IS.empty) ds
+        val (ds, _) = ListUtil.foldlMap doDecl (IS.empty, IS.empty) (#decls file)
     in
-        (ds, sl)
+        {decls = ds, sideInfo = #sideInfo file}
     end
 
 end