added a Brave search API example

Author: mark-watson

BraveSearch/BraveSearch.hs

@@ -0,0 +1,92 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+
+module BraveSearch
+  ( getSearchSuggestions
+  ) where
+
+import Network.HTTP.Simple
+import Data.Aeson
+import qualified Data.Text as T
+import Control.Exception (try)
+import Network.HTTP.Client (HttpException)
+import qualified Data.ByteString.Char8 as BS
+import qualified Data.ByteString.Lazy.Char8 as LBS
+
+data SearchResponse = SearchResponse
+  { query :: QueryInfo
+  , web :: WebResults
+  } deriving (Show)
+
+data QueryInfo = QueryInfo
+  { original :: T.Text
+  } deriving (Show)
+
+data WebResults = WebResults
+  { results :: [WebResult]
+  } deriving (Show)
+
+data WebResult = WebResult
+  { type_ :: T.Text
+  , index :: Maybe Int
+  , all :: Maybe Bool
+  , title :: Maybe T.Text
+  , url :: Maybe T.Text
+  , description :: Maybe T.Text
+  } deriving (Show)
+
+instance FromJSON SearchResponse where
+  parseJSON = withObject "SearchResponse" $ \v -> SearchResponse
+    <$> v .: "query"
+    <*> v .: "web"
+
+instance FromJSON QueryInfo where
+  parseJSON = withObject "QueryInfo" $ \v -> QueryInfo
+    <$> v .: "original"
+
+instance FromJSON WebResults where
+  parseJSON = withObject "WebResults" $ \v -> WebResults
+    <$> v .: "results"
+
+instance FromJSON WebResult where
+  parseJSON = withObject "WebResult" $ \v -> WebResult
+    <$> v .: "type"
+    <*> v .:? "index"
+    <*> v .:? "all"
+    <*> v .:? "title"
+    <*> v .:? "url"
+    <*> v .:? "description"
+
+getSearchSuggestions :: String -> String -> IO (Either String [T.Text])
+getSearchSuggestions apiKey query = do
+  let url = "https://api.search.brave.com/res/v1/web/search?q=" ++ query ++ "&country=US&count=5"
+  
+  request <- parseRequest url
+  let requestWithHeaders = setRequestHeader "Accept" ["application/json"]
+                         $ setRequestHeader "X-Subscription-Token" [BS.pack apiKey]
+                         $ request
+  
+  result <- try $ httpLBS requestWithHeaders
+  
+  case result of
+    Left e -> return $ Left $ "Network error: " ++ show (e :: HttpException)
+    Right response -> do
+      let statusCode = getResponseStatusCode response
+      if statusCode /= 200
+        then return $ Left $ "HTTP error: " ++ show statusCode
+        else do
+          let body = getResponseBody response
+          case eitherDecode body of
+            Left err -> return $ Left $ "JSON parsing error: " ++ err
+            Right searchResponse@SearchResponse{..} -> do
+              let originalQuery = original query
+                  webResults = results web
+              let suggestions = "Original Query: " <> originalQuery : map formatResult webResults
+              return $ Right suggestions
+
+formatResult :: WebResult -> T.Text
+formatResult WebResult{..} =
+  let titleText = maybe "N/A" ("Title: " <>) title
+      urlText = maybe "N/A" ("URL: " <>) url
+      descText = maybe "N/A" ("Description: " <>) (fmap (T.take 100) description)
+  in T.intercalate " | " [titleText, urlText, descText]

BraveSearch/Main.hs

@@ -0,0 +1,26 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Main where
+
+import BraveSearch (getSearchSuggestions)
+import System.Environment (getEnv)
+import qualified Data.Text as T
+import qualified Data.Text.IO as TIO
+
+main :: IO ()
+main = do
+  -- Get the API key from the environment variable
+  apiKey <- getEnv "BRAVE_SEARCH_API_KEY"
+  
+  -- Prompt the user for a search query
+  TIO.putStrLn "Enter a search query:"
+  query <- TIO.getLine
+  
+  -- Call the function to get search suggestions
+  result <- getSearchSuggestions apiKey (T.unpack query)
+  
+  case result of
+    Left err -> TIO.putStrLn $ "Error: " <> T.pack err
+    Right suggestions -> do
+      TIO.putStrLn "Search suggestions:"
+      mapM_ (TIO.putStrLn . ("- " <>)) suggestions

BraveSearch/brave-search-client.cabal

@@ -0,0 +1,15 @@
+name:                brave-search-client
+version:             0.1.0.0
+build-type:          Simple
+cabal-version:       >=1.10
+
+executable brave-search-client
+  main-is:             Main.hs
+  other-modules:       BraveSearch
+  build-depends:       base >=4.7 && <5
+                     , http-conduit
+                     , aeson
+                     , text
+                     , bytestring
+                     , http-client
+  default-language:    Haskell2010