Mercurial > urweb

diff src/untangle.sml @ 1845:c1e3805e604e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make Scriptcheck catch more script/message-passing uses, and move the phase earlier in compilation
author Adam Chlipala <adam@chlipala.net>
date Fri, 15 Mar 2013 16:09:55 -0400
parents 25b28625d4df
children 25874084bf1f
line wrap: on
line diff
--- a/src/untangle.sml	Tue Mar 12 16:21:20 2013 -0400
+++ b/src/untangle.sml	Fri Mar 15 16:09:55 2013 -0400
@@ -43,7 +43,7 @@
 
       | _ => s
 
-fun untangle file =
+fun untangle (file : file) =
     let
         fun decl (dAll as (d, loc)) =
             case d of
@@ -208,7 +208,7 @@
                 end
               | _ => [dAll]
     in
-        ListUtil.mapConcat decl file
+        (ListUtil.mapConcat decl (#1 file), #2 file)
     end
 
 end