module Buffet.Document.Document
  ( get
  ) where

import qualified Buffet.Document.Configuration as Configuration
import qualified Buffet.Document.DocumentInternal as DocumentInternal
import qualified Buffet.Parse.ParseInternal as ParseInternal
import qualified Control.Monad as Monad
import qualified Data.Text as T
import Prelude (FilePath, IO)

get :: Configuration.Configuration -> FilePath -> IO T.Text
get :: Configuration -> FilePath -> IO Text
get Configuration
configuration =
  FilePath -> IO Buffet
ParseInternal.get (FilePath -> IO Buffet)
-> (Buffet -> IO Text) -> FilePath -> IO Text
forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
Monad.>=> Configuration -> Buffet -> IO Text
DocumentInternal.get Configuration
configuration