{-|
Module      : Configuration
Description : IP2Location.io Haskell package
Copyright   : (c) IP2Location, 2025
License     : MIT
Maintainer  : sales@ip2location.com
Stability   : experimental

This module configures the API key.

IP2Location.io API subscription at https://www.ip2location.io
-}
module Configuration (Config(..), open) where

-- | Contains the API configuration.

data Config = Config {
    -- | API key

    Config -> String
apiKey :: String,
    -- | Source SDK

    Config -> String
source :: String,
    -- | Version

    Config -> String
version :: String
} deriving (Int -> Config -> ShowS
[Config] -> ShowS
Config -> String
(Int -> Config -> ShowS)
-> (Config -> String) -> ([Config] -> ShowS) -> Show Config
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Config -> ShowS
showsPrec :: Int -> Config -> ShowS
$cshow :: Config -> String
show :: Config -> String
$cshowList :: [Config] -> ShowS
showList :: [Config] -> ShowS
Show, Config -> Config -> Bool
(Config -> Config -> Bool)
-> (Config -> Config -> Bool) -> Eq Config
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Config -> Config -> Bool
== :: Config -> Config -> Bool
$c/= :: Config -> Config -> Bool
/= :: Config -> Config -> Bool
Eq)

{-|
    The 'open' function initializes the API configuration.
    It takes 1 argument; the API key.
-}
open :: String -> IO Config
open :: String -> IO Config
open String
apikey = do
    Config -> IO Config
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (String -> String -> String -> Config
Config String
apikey String
"sdk-haskell-iplio" String
"1.0.0")