From a6158fb22b5414f1a24708b8a78929ef3a47adcd Mon Sep 17 00:00:00 2001
From: Willem Van Onsem <vanonsem.willem@gmail.com>
Date: Mon, 17 Jun 2024 10:40:25 +0200
Subject: [PATCH] underscore as word separator, fixing #5

---
 src/Text/Slugify.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Text/Slugify.hs b/src/Text/Slugify.hs
index fea0b9a..c4d3641 100644
--- a/src/Text/Slugify.hs
+++ b/src/Text/Slugify.hs
@@ -48,6 +48,7 @@ isWordSeparator '\x1d' = True
 isWordSeparator '\x1f' = True
 isWordSeparator '\x1e' = True
 isWordSeparator '\n' = True
+isWordSeparator '_' = True
 isWordSeparator c = case generalCategory c of
     LineSeparator -> True         -- Zl
     ParagraphSeparator -> True    -- Zp