diff options
| author | metamuffin <metamuffin@disroot.org> | 2023-10-15 16:24:21 +0200 |
|---|---|---|
| committer | metamuffin <metamuffin@disroot.org> | 2023-10-15 16:24:21 +0200 |
| commit | 95149c9f252b4ee678b4d7b766c9c4830b548d07 (patch) | |
| tree | 1802f90e946cec9d67b99ebba9eb0b419249b95f /src/Data/Bang.hs | |
| parent | c2f56de490704e3fd6e5d2633e03dab20cce33ff (diff) | |
| download | fastbangs-95149c9f252b4ee678b4d7b766c9c4830b548d07.tar fastbangs-95149c9f252b4ee678b4d7b766c9c4830b548d07.tar.bz2 fastbangs-95149c9f252b4ee678b4d7b766c9c4830b548d07.tar.zst | |
apply some linter suggestions
Diffstat (limited to 'src/Data/Bang.hs')
| -rw-r--r-- | src/Data/Bang.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |