openexchangerates (empty) → 0.1.0.0

raw patch · 4 files changed

+92/−0 lines, 4 filesdep +HTTPdep +aesondep +basesetup-changed

Dependencies added: HTTP, aeson, base, containers, currency, errors, network, text

Files

• COPYING +13/−0
• Currency/OpenExchangeRates.hs +42/−0
• Setup.hs +2/−0
• openexchangerates.cabal +35/−0

@@ -0,0 +1,13 @@+Copyright © 2011, Stephen Paul Weber <singpolyma.net>++Permission to use, copy, modify, and/or distribute this software for any+purpose with or without fee is hereby granted, provided that the above+copyright notice and this permission notice appear in all copies.++THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES+WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF+MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR+ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN+ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF+OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

@@ -0,0 +1,42 @@+module Currency.OpenExchangeRates (fetchRates) where++import Control.Error (readZ, syncIO, fmapLT, hoistEither, throwT, EitherT)+import Data.String (fromString)+import qualified Data.Map as Map+import qualified Data.Text as T++import Data.Aeson ((.:))+import qualified Data.Aeson as Aeson++import qualified Network.HTTP as HTTP+import qualified Network.Stream as HTTP+import qualified Network.URI as URI++import Currency+import Currency.Rates++newtype OERs = OERs (Rates Currency Double)++instance Aeson.FromJSON OERs where+	parseJSON (Aeson.Object o) = do+		ref <- readZ =<< (o .: (T.pack "base"))+		rs <- fmap Map.toList (o .: (T.pack "rates"))+		let rs' = map (\(k,v) -> (fromString k, v)) rs+		return $ OERs $ Rates ref (Map.fromList rs')+	parseJSON _ = fail "OpenExchangeRates data is an object."++-- | Fetch exchange rates from OpenExchangeRates.org+fetchRates ::+	String -- ^ AppID+	-> EitherT HTTP.ConnError IO (Rates Currency Double)+fetchRates appid = do+	resp <- hoistEither =<< (tryHTTP $ HTTP.simpleHTTP req)+	case resp of+		(HTTP.Response { HTTP.rspCode = (2,0,0), HTTP.rspBody = body }) -> do+			OERs rs <- fmapLT HTTP.ErrorMisc $ hoistEither (Aeson.eitherDecode body)+			return rs+		_ -> throwT (HTTP.ErrorMisc "Bad HTTP response code.")+	where+	tryHTTP = fmapLT (HTTP.ErrorMisc . show) . syncIO+	req = HTTP.mkRequest HTTP.GET uri+	Just uri = URI.parseURI $ "http://openexchangerates.org/api/latest.json?app_id=" ++ appid

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,35 @@+name:            openexchangerates+version:         0.1.0.0+cabal-version:   >=1.8+license:         OtherLicense+license-file:    COPYING+copyright:       © 2013 Stephen Paul Weber+category:        Data+author:          Stephen Paul Weber <singpolyma@singpolyma.net>+maintainer:      Stephen Paul Weber <singpolyma@singpolyma.net>+stability:       experimental+build-type:      Simple+homepage:        https://github.com/singpolyma/openexchangerates-haskell+bug-reports:     http://github.com/singpolyma/openexchangerates-haskell/issues+synopsis:        Fetch exchange rates from OpenExchangeRates.org+description:+        This package wraps up the process of fetching exchange rates from+        OpenExchangeRates.org.  You will need an AppID.++library+        exposed-modules:+                Currency.OpenExchangeRates++        build-depends:+                base == 4.*,+                containers,+                currency,+                text,+                aeson >= 0.6.1.0,+                network,+                HTTP,+                errors >= 1.4.2++source-repository head+        type:     git+        location: git://github.com/singpolyma/openexchangerates-haskell.git