From 780ec2ff85736836f1d5d5ead3eb8fc5b145654c Mon Sep 17 00:00:00 2001
From: Lia Lenckowski <lialenck@protonmail.com>
Date: Sun, 30 Jul 2023 17:33:19 +0200
Subject: bang accept/reject api

---
 src/Data/Bang.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/Data')

diff --git a/src/Data/Bang.hs b/src/Data/Bang.hs
index 2bf0966..d6c3bd3 100644
--- a/src/Data/Bang.hs
+++ b/src/Data/Bang.hs
@@ -3,7 +3,8 @@
 module Data.Bang (
     DDGBangs,
     toBangs,
-    Bangs
+    Bangs,
+    singletonBangs
 ) where
 
 import GHC.Prim
@@ -17,6 +18,9 @@ newtype Bangs = Bangs {
     unBangs :: M.Map Text (Text, Text)
 } deriving (Show, Generic)
 
+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
       where getInfo v = (,) <$> v .: "url" <*> v .: "name"
-- 
cgit v1.2.3-70-g09d2