module Configuration.Dotenv.Text (parseFile) where
import qualified Configuration.Dotenv
import Control.Arrow ((***))
import qualified Data.Text as T
import Control.Monad (liftM)
import Control.Monad.IO.Class (MonadIO (..))
parseFile ::
MonadIO m =>
FilePath
-> m [(T.Text, T.Text)]
parseFile :: forall (m :: * -> *). MonadIO m => FilePath -> m [(Text, Text)]
parseFile FilePath
f = forall a b. (a -> b) -> [a] -> [b]
map (FilePath -> Text
T.pack forall (a :: * -> * -> *) b c b' c'.
Arrow a =>
a b c -> a b' c' -> a (b, b') (c, c')
*** FilePath -> Text
T.pack) forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
`liftM` forall (m :: * -> *).
MonadIO m =>
FilePath -> m [(FilePath, FilePath)]
Configuration.Dotenv.parseFile FilePath
f