diff options
| author | Lia Lenckowski <lialenck@protonmail.com> | 2023-08-01 01:29:48 +0200 |
|---|---|---|
| committer | Lia Lenckowski <lialenck@protonmail.com> | 2023-08-01 01:29:48 +0200 |
| commit | 7c933642730dd5b935281f2cc938f2998e3a4114 (patch) | |
| tree | 490558edab65a7d70f50e2141356716f99be2d11 /src | |
| parent | 180ca78de50195a176b8125bd364838e905cc241 (diff) | |
| download | fastbangs-7c933642730dd5b935281f2cc938f2998e3a4114.tar fastbangs-7c933642730dd5b935281f2cc938f2998e3a4114.tar.bz2 fastbangs-7c933642730dd5b935281f2cc938f2998e3a4114.tar.zst | |
more up-to-date-bangs (still not the most recent, but the most recent i could find without crawling duckduckgo a bunch)
Diffstat (limited to 'src')
| -rw-r--r-- | src/BangState.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/BangState.hs b/src/BangState.hs index fabd9e7..328a57e 100644 --- a/src/BangState.hs +++ b/src/BangState.hs @@ -70,7 +70,7 @@ loadOwnBangs = eitherDecodeFileStrict "bangs.json" <|> return (Left "") >>= \cas initBangState :: IO BangState initBangState = do -- TODO error handling for ddg bang polling, as well as regular polling - ans <- (httpJSON "https://duckduckgo.com/bang.v255.js") :: IO (Response DDGBangs) + ans <- (httpJSON "https://duckduckgo.com/bang.v260.js") :: IO (Response DDGBangs) s <- BangState <$> (loadOwnBangs >>= newTVarIO) <*> newTVarIO (toBangs $ getResponseBody ans) |