Initial version

Author: wuest

Setup.hs

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

extralife.cabal

@@ -0,0 +1,35 @@
+name:                extralife
+version:             0.1.0.0
+synopsis:            API Client for ExtraLife team and user data
+description:         Provides types and helper functions for fetching data from ExtraLife about donation drives (participants, teams, donations)
+homepage:            https://github.com/wuest/haskell-extralife-api
+license:             BSD3
+license-file:        LICENSE
+author:              Tina Wuest
+maintainer:          [email protected]
+copyright:           (c) 2017 Tina Wuest
+category:            Web
+build-type:          Simple
+cabal-version:       >= 1.10
+
+source-repository head
+  type: git
+  location: https://github.com/wuest/haskell-extralife-api.git
+
+library
+  default-language:    Haskell2010
+  hs-source-dirs:      src
+  ghc-options:         -static -Wall -fwarn-implicit-prelude -fwarn-monomorphism-restriction
+  exposed-modules:     ExtraLife.API,
+                       ExtraLife.Donation,
+                       ExtraLife.Team,
+                       ExtraLife.TeamMember,
+                       ExtraLife.User
+  build-depends:
+    base            >= 4.8 && < 5.0,
+    http-client     >= 0.5 && < 0.6,
+    http-client-tls >= 0.3 && < 0.4,
+    aeson           >= 1.0 && < 1.1,
+    bytestring      >= 0.10 && < 0.11,
+    time            >= 1.6 && < 1.7,
+    text            >= 1.2 && < 1.3

src/ExtraLife/API.hs

@@ -0,0 +1,68 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module ExtraLife.API ( userInfo, recentDonations, teamInfo, teamMembers ) where
+
+import Network.HTTP.Client     as HC
+import Network.HTTP.Client.TLS as TLS
+import Data.Aeson              as Aeson
+import Data.ByteString.Lazy             (ByteString)
+import Prelude
+
+import ExtraLife.User                   (User)
+import ExtraLife.Donation               (Donation)
+import ExtraLife.Team                   (Team)
+import ExtraLife.TeamMember             (TeamMember)
+
+elRoot :: String
+elRoot = "https://www.extra-life.org/index.cfm?fuseaction=donorDrive."
+
+fetchFor :: Request -> IO ByteString
+fetchFor req = do
+    let settings = HC.managerSetProxy (proxyEnvironment Nothing) tlsManagerSettings
+    manager <- HC.newManager settings
+    response <- httpLbs req manager
+    return $ responseBody response
+
+userInfoRaw :: Int -> String
+userInfoRaw = (((elRoot ++ "participant&participantID=") ++) . (++ "&format=json")) . show
+
+userInfo' :: Int -> Request
+userInfo' = parseRequest_ . userInfoRaw
+
+teamInfoRaw :: Int -> String
+teamInfoRaw = (((elRoot ++ "team&teamID=") ++) . (++ "&format=json")) . show
+
+teamInfo' :: Int -> Request
+teamInfo' = parseRequest_ . teamInfoRaw
+
+recentDonationsRaw :: Int -> String
+recentDonationsRaw = (((elRoot ++ "participantDonations&participantID=") ++) . (++ "&format=json")) . show
+
+recentDonations' :: Int -> Request
+recentDonations' = parseRequest_ . recentDonationsRaw
+
+teamMembersRaw :: Int -> String
+teamMembersRaw = (((elRoot ++ "teamParticipants&teamID=") ++) . (++ "&format=json")) . show
+
+teamMembers' :: Int -> Request
+teamMembers' = parseRequest_ . teamMembersRaw
+
+userInfo :: Int -> IO (Maybe User)
+userInfo u = do
+    user <- fetchFor $ userInfo' u
+    return (Aeson.decode user :: Maybe User)
+
+recentDonations :: Int -> IO (Maybe [Donation])
+recentDonations u = do
+    user <- fetchFor $ recentDonations' u
+    return (Aeson.decode user :: Maybe [Donation])
+
+teamInfo :: Int -> IO (Maybe Team)
+teamInfo t = do
+    team <- fetchFor $ teamInfo' t
+    return (Aeson.decode team :: Maybe Team)
+
+teamMembers :: Int -> IO (Maybe [TeamMember])
+teamMembers t = do
+    team <- fetchFor $ teamMembers' t
+    return (Aeson.decode team :: Maybe [TeamMember])

src/ExtraLife/Donation.hs

@@ -0,0 +1,18 @@
+{-# LANGUAGE DeriveGeneric #-}
+
+module ExtraLife.Donation where
+
+import Data.Aeson   as Aeson
+import Data.Time    as Time
+import Data.Text             (Text)
+import GHC.Generics          (Generic)
+import Prelude
+
+data Donation = Donation { message :: Maybe Text
+                         , createdOn :: !Time.UTCTime
+                         , donorName :: Maybe Text
+                         , avatarImageURL :: !String
+                         , donationAmount :: Float
+                         } deriving ( Show, Generic )
+instance FromJSON Donation
+instance ToJSON Donation

src/ExtraLife/Team.hs

@@ -0,0 +1,19 @@
+{-# LANGUAGE DeriveGeneric #-}
+
+module ExtraLife.Team where
+
+import Data.Aeson   as Aeson
+import Data.Time    as Time
+import Data.Text             (Text)
+import GHC.Generics          (Generic)
+import Prelude
+
+data Team = Team { totalRaisedAmount :: Float
+                 , fundraisingGoal   :: Float
+                 , createdOn         :: !Time.UTCTime
+                 , avatarImageURL    :: !String
+                 , teamID            :: Int
+                 , name              :: !Text
+                 } deriving ( Show, Generic )
+instance FromJSON Team
+instance ToJSON Team

src/ExtraLife/TeamMember.hs

@@ -0,0 +1,19 @@
+{-# LANGUAGE DeriveGeneric #-}
+
+module ExtraLife.TeamMember where
+
+import Data.Aeson   as Aeson
+import Data.Time    as Time
+import Data.Text             (Text)
+import GHC.Generics          (Generic)
+import Prelude
+
+data TeamMember =
+    TeamMember { displayName    :: !Text
+               , participantID  :: Int
+               , createdOn      :: !Time.UTCTime
+               , avatarImageURL :: !String
+               , isTeamCaptain  :: Bool
+               } deriving ( Show, Generic )
+instance FromJSON TeamMember
+instance ToJSON TeamMember

src/ExtraLife/User.hs

@@ -0,0 +1,21 @@
+{-# LANGUAGE DeriveGeneric #-}
+
+module ExtraLife.User where
+
+import Data.Aeson   as Aeson
+import Data.Time    as Time
+import Data.Text             (Text)
+import GHC.Generics          (Generic)
+import Prelude
+
+data User = User { displayName       :: !Text
+                 , totalRaisedAmount :: Float
+                 , fundraisingGoal   :: Float
+                 , participantID     :: Int
+                 , createdOn         :: !Time.UTCTime
+                 , avatarImageURL    :: !String
+                 , teamID            :: Maybe Int
+                 , isTeamCaptain     :: Bool
+                 } deriving ( Show, Generic )
+instance FromJSON User
+instance ToJSON User