diff options
| author | Lia Lenckowski <lialenck@protonmail.com> | 2023-07-26 21:05:27 +0200 |
|---|---|---|
| committer | Lia Lenckowski <lialenck@protonmail.com> | 2023-07-26 21:05:43 +0200 |
| commit | 25699e2d089ab21072e6894c098efea98fc14fa9 (patch) | |
| tree | 24987ac38faa74f45630f90407f70e9c5655c407 /src/BangState.hs | |
| parent | 07611aa3a79e49e39b2a8a9e93d00df2a6a080d2 (diff) | |
| download | fastbangs-25699e2d089ab21072e6894c098efea98fc14fa9.tar fastbangs-25699e2d089ab21072e6894c098efea98fc14fa9.tar.bz2 fastbangs-25699e2d089ab21072e6894c098efea98fc14fa9.tar.zst | |
insert submitted bangs into a database
Diffstat (limited to 'src/BangState.hs')
| -rw-r--r-- | src/BangState.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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" |