Utils.hs

{-# LANGUAGE OverloadedStrings #-}

module Snap.Snaplet.OAuth.Internal.Utils where

import           Control.Applicative
import           Data.Aeson
import qualified Data.ByteString                 as BS
import qualified Data.ByteString.Lazy            as LBS
import           Data.Maybe                      (fromMaybe)
import qualified Data.Text                       as T
import qualified Data.Text.Encoding              as T
import           Network.OAuth.OAuth2
import           Network.OAuth.OAuth2.HttpClient
import           Snap                            hiding (Response)
import qualified Text.Show.ByteString            as TSB

----------------------------------------------------------------------

intToByteString :: Integer -> BS.ByteString
intToByteString = toStrickBS' . TSB.show

sToText :: Show s => s -> T.Text
sToText = T.pack . show

toStrickBS' :: LBS.ByteString -> BS.ByteString
toStrickBS' = BS.concat . LBS.toChunks

sToBS :: String -> BS.ByteString
sToBS = T.encodeUtf8 . T.pack

lbsToText :: LBS.ByteString -> T.Text
lbsToText = T.decodeUtf8 . toStrickBS'

textToBS :: T.Text -> BS.ByteString
textToBS = T.encodeUtf8

decodedParam :: MonadSnap m => BS.ByteString -> m BS.ByteString
decodedParam p = fromMaybe "" <$> getParam p

----------------------------------------------------------------------

apiRequestOAuth :: FromJSON a
              => BS.ByteString     -- ^ API URL
              -> OAuth2            -- ^ For append access token
              -> IO (Maybe a)
apiRequestOAuth uri oa = doJSONGetRequest $ appendAccessToken uri oa