diff --git a/src/Data/String/Regex/Unsafe.purs b/src/Data/String/Regex/Unsafe.purs
index 0a982c6..dd7f7ea 100644
--- a/src/Data/String/Regex/Unsafe.purs
+++ b/src/Data/String/Regex/Unsafe.purs
@@ -1,14 +1,14 @@
-module Data.String.Regex.Unsafe
-( unsafeRegex
-) where
-
-import Data.Either (fromRight)
-import Data.String.Regex (Regex, regex)
-import Data.String.Regex.Flags (RegexFlags)
-
-import Partial.Unsafe (unsafePartial)
-
--- | Constructs a `Regex` from a pattern string and flags. Fails with
--- | an exception if the pattern contains a syntax error.
-unsafeRegex :: String -> RegexFlags -> Regex
-unsafeRegex s f = unsafePartial fromRight (regex s f)
+module Data.String.Regex.Unsafe
+  ( unsafeRegex
+  ) where
+
+import Prelude (identity)
+import Data.Either (either)
+import Data.String.Regex (Regex, regex)
+import Data.String.Regex.Flags (RegexFlags)
+import Partial.Unsafe (unsafeCrashWith)
+
+-- | Constructs a `Regex` from a pattern string and flags. Fails with
+-- | an exception if the pattern contains a syntax error.
+unsafeRegex :: String -> RegexFlags -> Regex
+unsafeRegex s f = either unsafeCrashWith identity (regex s f)