From 95149c9f252b4ee678b4d7b766c9c4830b548d07 Mon Sep 17 00:00:00 2001 From: metamuffin Date: Sun, 15 Oct 2023 16:24:21 +0200 Subject: apply some linter suggestions --- src/Data/Bang.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Data') diff --git a/src/Data/Bang.hs b/src/Data/Bang.hs index 42a5d06..5788bbe 100644 --- a/src/Data/Bang.hs +++ b/src/Data/Bang.hs @@ -22,7 +22,7 @@ singletonBangs :: Text -> Text -> Text -> Bangs singletonBangs bn bu bdp = Bangs $ M.singleton bn (bu, bdp) instance FromJSON Bangs where - parseJSON b = parseJSON b >>= fmap Bangs . sequence . fmap getInfo + parseJSON b = parseJSON b >>= fmap Bangs . mapM getInfo where getInfo v = (,) <$> v .: "url" <*> v .: "name" instance ToJSON Bangs where -- cgit v1.2.3-70-g09d2