{-# LANGUAGE OverloadedStrings #-}

module Main (main) where

import Data.Aeson
import Data.ByteString (ByteString)
import Data.IORef
import Network.HTTP.Simple
import Yesod

import Bangs

data Search = Search {
    ddgBangs :: IORef Bangs,
    ownBangs :: IORef Bangs,
    serializedBangs :: IORef ByteString
}

main :: IO ()
main = do
    ans <- (httpJSON "https://duckduckgo.com/bang.v255.js") :: IO (Response DDGBangs)
    print ans