Specify host for database connections

[hcoop/portal.git] / quotas.sml

diff --git a/quotas.sml b/quotas.sml
index a667846..84515b5 100644 (file)
--- a/quotas.sml
+++ b/quotas.sml
@@ -43,7 +43,7 @@ struct
                        else
                            (eatUntilBlankLine ();
                             loop acc)
-                     | _ => acc
+                     | _ => loop acc
 
            val _ = TextIO.inputLine inf
        in