[MLton-commit] r6068

[Vesa Karvonen]

Fixed to adhere to the new signature of CloseCases.

----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/generic/unstable/with/close.sml

----------------------------------------------------------------------

Modified: mltonlib/trunk/com/ssh/generic/unstable/with/close.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/with/close.sml	2007-10-11 12:49:54 UTC (rev 6067)
+++ mltonlib/trunk/com/ssh/generic/unstable/with/close.sml	2007-10-13 20:42:59 UTC (rev 6068)
@@ -5,6 +5,6 @@
  *)
 
 structure Generic = struct
-   structure Rep = CloseCases (Generic.Open)
+   structure Rep = CloseCases (Generic)
    open Generic Rep
 end