diff options
| author | Lia Lenckowski <lialenck@protonmail.com> | 2023-07-22 21:17:15 +0200 |
|---|---|---|
| committer | Lia Lenckowski <lialenck@protonmail.com> | 2023-07-22 21:17:15 +0200 |
| commit | b5e131f3aefc3ac3d498991e57aa05cffd955044 (patch) | |
| tree | df876dab4f31f8ae2c9a70ce8815dd8a6d2a8f3b /src/Main.hs | |
| parent | a8f5ead1ca1f3cd9e0d8e4de3b0e4e5193627e98 (diff) | |
| download | fastbangs-b5e131f3aefc3ac3d498991e57aa05cffd955044.tar fastbangs-b5e131f3aefc3ac3d498991e57aa05cffd955044.tar.bz2 fastbangs-b5e131f3aefc3ac3d498991e57aa05cffd955044.tar.zst | |
different parser for duckduckgo's bang format, and our own
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index 997bbf5..1517ebd 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -2,10 +2,11 @@ module Main (main) where -import Yesod +import Data.Aeson import Data.ByteString (ByteString) import Data.IORef import Network.HTTP.Simple +import Yesod import Bangs @@ -17,5 +18,5 @@ data Search = Search { main :: IO () main = do - ans <- (httpJSON "https://duckduckgo.com/bang.v255.js") :: IO (Response Bangs) + ans <- (httpJSON "https://duckduckgo.com/bang.v255.js") :: IO (Response DDGBangs) print ans |