Get Started With IP2Location Haskell Module

import IP2Location
import qualified Data.ByteString.Lazy as BS

main :: IO ()
main = do
 let myfile = "IPV6-COUNTRY-REGION-CITY-LATITUDE-LONGITUDE-ZIPCODE-TIMEZONE-ISP-DOMAIN-NETSPEED-AREACODE-WEATHER-MOBILE-ELEVATION-USAGETYPE-ADDRESSTYPE-CATEGORY-DISTRICT-ASN.BIN"
 contents <- BS.readFile myfile -- load BIN once
 meta <- doInitBS contents
 result <- doQueryBS contents meta "8.8.8.8"
 putStrLn $ "country_short: " ++ (show (country_short result))
 putStrLn $ "country_long: " ++ (show (country_long result))
 putStrLn $ "region: " ++ (show (region result))
 putStrLn $ "city: " ++ (show (city result))
 putStrLn $ "isp: " ++ (show (isp result))
 putStrLn $ "latitude: " ++ (show (latitude result))
 putStrLn $ "longitude: " ++ (show (longitude result))
 putStrLn $ "domain: " ++ (show (domain result))
 putStrLn $ "zipcode: " ++ (show (zipcode result))
 putStrLn $ "timezone: " ++ (show (timezone result))
 putStrLn $ "netspeed: " ++ (show (netspeed result))
 putStrLn $ "iddcode: " ++ (show (iddcode result))
 putStrLn $ "areacode: " ++ (show (areacode result))
 putStrLn $ "weatherstationcode: " ++ (show (weatherstationcode result))
 putStrLn $ "weatherstationname: " ++ (show (weatherstationname result))
 putStrLn $ "mcc: " ++ (show (mcc result))
 putStrLn $ "mnc: " ++ (show (mnc result))
 putStrLn $ "mobilebrand: " ++ (show (mobilebrand result))
 putStrLn $ "elevation: " ++ (show (elevation result))
 putStrLn $ "usagetype: " ++ (show (usagetype result))
 putStrLn $ "addresstype: " ++ (show (addresstype result))
 putStrLn $ "category: " ++ (show (category result))
 putStrLn $ "district: " ++ (show (district result))
 putStrLn $ "asn: " ++ (show (asn result))
 putStrLn $ "as: " ++ (show (as result))
 putStrLn $ "asdomain: " ++ (show (asdomain result))
 putStrLn $ "asusagetype: " ++ (show (asusagetype result))
 putStrLn $ "ascidr: " ++ (show (ascidr result))