MeetingGrid: instead of erroring on unknown users or times, just drop…

… them silently
urweb · Feb 10, 2015 · 41d36d0 · 41d36d0
1 parent 465cd4a
commit 41d36d0
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/meetingGrid.ur b/meetingGrid.ur
@@ -621,13 +621,13 @@ functor Make(M : sig
                 let
                     fun tweakUses uses =
                         case uses of
-                            [] => error <xml>FullGrid.tweakMeeting: unknown us</xml>
+                            [] => return ()
                           | (us', _, tms) :: uses' =>
                             if us' = us then
                                 let
                                     fun addTimes tms =
                                         case tms of
-                                            [] => error <xml>FullGrid.tweakMeeting: unknown time</xml>
+                                            [] => return ()
                                           | (tm', _, ths) :: tms' =>
                                             if tm' = tm then
                                                 v <- get ths;
@@ -757,7 +757,7 @@ functor Make(M : sig
                 let
                     fun addTimes tms =
                         case tms of
-                            [] => error <xml>One.tweakMeeting: unknown time</xml>
+                            [] => return ()
                           | (tm', ths) :: tms' =>
                             if tm' = tm then
                                 v <- get ths;