From b5e131f3aefc3ac3d498991e57aa05cffd955044 Mon Sep 17 00:00:00 2001 From: Lia Lenckowski Date: Sat, 22 Jul 2023 21:17:15 +0200 Subject: different parser for duckduckgo's bang format, and our own --- src/Main.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/Main.hs') 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 -- cgit v1.2.3-70-g09d2