diff options
| author | Chris Wells <chris@mathematicaster.org> | 2025-02-25 12:11:31 -0600 |
|---|---|---|
| committer | Chris Wells <chris@mathematicaster.org> | 2025-02-25 12:11:31 -0600 |
| commit | ed300e0b45bb46adec77b85474544f8908445a14 (patch) | |
| tree | 70ba794888475baafd2f433a075aa18193fdf03e /src/Data/Name.hs | |
| parent | e914e77f87a51c25141ab297d11344118a6f6e20 (diff) | |
| download | main-ed300e0b45bb46adec77b85474544f8908445a14.tar main-ed300e0b45bb46adec77b85474544f8908445a14.tar.gz main-ed300e0b45bb46adec77b85474544f8908445a14.tar.bz2 main-ed300e0b45bb46adec77b85474544f8908445a14.tar.lz main-ed300e0b45bb46adec77b85474544f8908445a14.tar.xz main-ed300e0b45bb46adec77b85474544f8908445a14.tar.zst main-ed300e0b45bb46adec77b85474544f8908445a14.zip | |
Writing utils for parsing and formatting my papers
Diffstat (limited to 'src/Data/Name.hs')
| -rw-r--r-- | src/Data/Name.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |