webdriver-0: Test/WebDriver/Chrome/Extension.hs

{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Test.WebDriver.Chrome.Extension 
       ( ChromeExtension
       , loadExtension
       , loadRawExtension 
       ) where
import Data.ByteString as BS
import Data.ByteString.Base64 as B64
import Data.Aeson
import Control.Applicative
import Control.Monad.IO.Class

-- |An opaque type representing a Google Chrome extension. 
newtype ChromeExtension = ChromeExtension ByteString
                        deriving (Eq, Show, Read, ToJSON, FromJSON)

-- |Load a .crx file as a ChromeExtension
loadExtension :: MonadIO m => FilePath -> m ChromeExtension
loadExtension path = liftIO $ loadRawExtension <$> BS.readFile path

-- |Load raw .crx data as a ChromeExtension
loadRawExtension :: ByteString -> ChromeExtension
loadRawExtension = ChromeExtension . B64.encode