From c4fc27235a0b176bccfa92dade678631d0462a83 Mon Sep 17 00:00:00 2001
From: Matthew Fluet <matthew.fluet@gmail.com>
Date: Sat, 18 Jul 2020 18:04:53 -0400
Subject: [PATCH] Fix for change to `structure RegExpSyntax: REGEXP_SYNTAX`
 from SML/NJ Library

---
 mlnlffigen/main.sml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/mlnlffigen/main.sml b/mlnlffigen/main.sml
index 0be3d85907..407830a4b1 100644
--- 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 =>