From ad6b448ac92b8b649dd5b7171d98fa20130911d5 Mon Sep 17 00:00:00 2001
From: Sean Collins <sean.collins@buildr.com>
Date: Wed, 15 Mar 2023 14:28:02 -0600
Subject: [PATCH] Fix dasherize adding leading dash

Fixes #23
---
 src/String/Extra.elm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/String/Extra.elm b/src/String/Extra.elm
index 6f5a9ec..d4d854e 100644
--- a/src/String/Extra.elm
+++ b/src/String/Extra.elm
@@ -353,10 +353,8 @@ The final string will be lowercased.
 dasherize : String -> String
 dasherize string =
     string
-        |> String.trim
-        |> Regex.replace (regexFromString "([A-Z])") (.match >> String.append "-")
-        |> Regex.replace (regexFromString "[_-\\s]+") (always "-")
-        |> String.toLower
+        |> underscored
+        |> String.replace "_" "-"
 
 
 {-| Separate a string into parts of a given width, using a given separator.