diff options
author | Benjamin Barenblat <bbaren@mit.edu> | 2015-11-22 10:39:36 -0500 |
---|---|---|
committer | Benjamin Barenblat <bbaren@mit.edu> | 2015-11-22 10:39:36 -0500 |
commit | bf037ce78c2c76a34ecca0fb8bafa5d5be38968a (patch) | |
tree | 3e91b0d0e8e0fb704c7df444283b6c8c63351f95 /src/explify.sml | |
parent | 7d861ea0debf944cb8e3e38d73a8c0197de574b3 (diff) | |
parent | 638e838a81e1ccc6594fda1920df441eb21577ae (diff) |
Merge branch 'upstream' into dfsg_clean20151122+dfsg
Diffstat (limited to 'src/explify.sml')
-rw-r--r-- | src/explify.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/explify.sml b/src/explify.sml index fd0f3277..f38151d2 100644 --- a/src/explify.sml +++ b/src/explify.sml @@ -150,7 +150,7 @@ fun explifySgi (sgi, loc) = SOME (L'.SgiDatatypeImp (x, n, m1, ms, s, xs, map (fn (x, n, co) => (x, n, Option.map explifyCon co)) xncs), loc) | L.SgiVal (x, n, c) => SOME (L'.SgiVal (x, n, explifyCon c), loc) - | L.SgiStr (x, n, sgn) => SOME (L'.SgiStr (x, n, explifySgn sgn), loc) + | L.SgiStr (_, x, n, sgn) => SOME (L'.SgiStr (x, n, explifySgn sgn), loc) | L.SgiSgn (x, n, sgn) => SOME (L'.SgiSgn (x, n, explifySgn sgn), loc) | L.SgiConstraint _ => NONE | L.SgiClassAbs (x, n, k) => SOME (L'.SgiConAbs (x, n, (L'.KArrow (explifyKind k, (L'.KType, loc)), loc)), loc) |