From ed300e0b45bb46adec77b85474544f8908445a14 Mon Sep 17 00:00:00 2001
From: Chris Wells <chris@mathematicaster.org>
Date: Tue, 25 Feb 2025 12:11:31 -0600
Subject: Writing utils for parsing and formatting my papers

---
 src/Data/Name.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Data/Name.hs')

diff --git a/src/Data/Name.hs b/src/Data/Name.hs
index 88e5bda..647c285 100644
--- a/src/Data/Name.hs
+++ b/src/Data/Name.hs
@@ -51,7 +51,7 @@ instance (StringConv s StrictText, ToJSON s) => ToJSONKey (Name s) where
     toJSONKey = showNameLFM . fmap toSL >$< toJSONKey
 
 instance StringConv StrictText s => FromJSONKey (Name s) where
-    fromJSONKey = FromJSONKeyTextParser $ \t -> toSL <<$>> (readNameLFM t <|> readNameFML t)
+    fromJSONKey = FromJSONKeyTextParser $ \t -> toSL <<$>> parseName t
 
 
 
-- 
cgit v1.2.3