Fix for change to structure RegExpSyntax: REGEXP_SYNTAX from SML/NJ…

… Library
MLton · Jul 18, 2020 · c4fc272 · c4fc272
1 parent 5bed4c9
commit c4fc272
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/mlnlffigen/main.sml b/mlnlffigen/main.sml
@@ -1,4 +1,5 @@
-(* Copyright (C) 2005-2008 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 2020 Matthew Fluet.
+ * Copyright (C) 2005-2008 Henry Cejtin, Matthew Fluet, Suresh
  *    Jagannathan, and Stephen Weeks.
  *
  * MLton is released under a HPND-style license.
@@ -65,8 +66,7 @@ fun makeOptions {usage} =
                       let
                          val regexp =
                             SOME (RE.compileString re)
-                            handle RegExpSyntax.CannotParse => NONE
-                                 | RegExpSyntax.CannotCompile => NONE
+                            handle RegExpSyntax.CannotCompile => NONE
                       in
                          case regexp of
                             SOME regexp =>