remove obsolete fatal

AmpersandTarski · May 6, 2023 · 0c2b8b5 · 0c2b8b5
1 parent c90cb3b
commit 0c2b8b5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Ampersand/Basics/Name.hs b/src/Ampersand/Basics/Name.hs
@@ -80,10 +80,10 @@ instance Named Name where
 instance GVP.PrintDot Name where
   unqtDot = GVP.text . TL.fromStrict . text1ToText . tName
 
--- | toNamePartUnsafe will convert a Text to a NamePart. The Text must be a proper ID. (See checkProperId)
+-- | toNamePart will convert a Text to a NamePart, iff the Text is a proper ID. (See checkProperId)
 toNamePart :: Text -> Maybe NamePart
 toNamePart txt = case T.uncons txt of
-  Nothing -> fatal "toText1Unsafe must not be used unless you are certain that it is safe!"
+  Nothing -> Nothing
   Just (h, tl) -> toNamePart1 $ Text1 h tl
 
 -- | toNamePart1 will convert a Text1 to a NamePart, iff the Text1 is a proper ID. (See checkProperId)