diff options
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 |