{-# LANGUAGE NoImplicitPrelude #-} module Bamboo.Model.Helper where import Bamboo.Helper.Env import Bamboo.Helper.StateHelper import qualified Bamboo.Config.Global as G import Bamboo.Type.Reader import Bamboo.Type.Plugin (apply_plugin) get_body id = id.id_to_path .read_file >>= apply_plugin_for_resource id get_reader id = id.take_extension.guess_reader.fromMaybe G.default_reader apply_plugin_for_resource id | id.id_to_type.belongs_to [G.post_id, G.static_id] = apply_plugin | otherwise = return