module Buffet.Assemble.Assemble
  ( get
  ) where

import qualified Buffet.Assemble.AssembleInternal as AssembleInternal
import qualified Buffet.Parse.ParseInternal as ParseInternal
import qualified Data.Text as T
import Prelude (FilePath, IO, (.), fmap)

get :: FilePath -> IO T.Text
get :: FilePath -> IO Text
get = (Buffet -> Text) -> IO Buffet -> IO Text
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap Buffet -> Text
AssembleInternal.get (IO Buffet -> IO Text)
-> (FilePath -> IO Buffet) -> FilePath -> IO Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FilePath -> IO Buffet
ParseInternal.get