From 25699e2d089ab21072e6894c098efea98fc14fa9 Mon Sep 17 00:00:00 2001 From: Lia Lenckowski Date: Wed, 26 Jul 2023 21:05:27 +0200 Subject: insert submitted bangs into a database --- src/BangState.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/BangState.hs') diff --git a/src/BangState.hs b/src/BangState.hs index b091532..fd3bbaa 100644 --- a/src/BangState.hs +++ b/src/BangState.hs @@ -56,7 +56,7 @@ spawnFileSyncThread s = do loadOwnBangs :: IO Bangs loadOwnBangs = eitherDecodeFileStrict "bangs.json" <|> return (Left "") >>= \case - Left e -> return mempty + Left _ -> return mempty Right b -> return b -- also spawns a thread for disk synchronization @@ -79,5 +79,5 @@ getBangsJSON s = readTVarIO $ serializedBangs s getBangsBrotli :: BangState -> IO ByteString getBangsBrotli s = readTVarIO $ brotliBangs s -addBang :: Text -> Text -> BangState -> IO () -addBang bang url s = error "TODO" +addBang :: Text -> Text -> Text -> BangState -> IO () +addBang _ _ _ _ = error $ "TODO" -- cgit v1.2.3-70-g09d2