Generator.Normalize: Use new Regex API

dillonkearns · Aug 12, 2018 · e2b015b · e2b015b
1 parent d74a5c6
commit e2b015b
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/Graphqelm/Generator/Normalize.elm b/src/Graphqelm/Generator/Normalize.elm
@@ -16,7 +16,11 @@ normalizeIfElmReserved name =
 
 underscores : String -> { leading : String, trailing : String, remaining : String }
 underscores string =
-    case Regex.find Regex.All (Regex.regex "^(_*)([^_]?.*[^_]?)(_*)$") string |> List.head |> Maybe.map .submatches of
+    let
+        regexFromString =
+            Regex.fromString >> Maybe.withDefault Regex.never
+    in
+    case Regex.find (regexFromString "^(_*)([^_]?.*[^_]?)(_*)$") string |> List.head |> Maybe.map .submatches of
         Just [ Just leading, Just remaining, Just trailing ] ->
             { leading = leading
             , trailing = trailing