bamboo-2009.6.9: src/Bamboo/Model/Helper.hs

{-# LANGUAGE NoImplicitPrelude #-}

module Bamboo.Model.Helper where

import Bamboo.Env
import Bamboo.Helper.StateHelper
import Bamboo.Type.Reader
import Data.ByteString (ByteString)

get_body :: String -> IO ByteString
get_body id = id.id_to_path .read_bytestring

get_reader :: String -> Reader
get_reader id = 
  id
    .take_extension
    .guess_reader
    .fromMaybe (static_config.default_reader)

meta :: String -> String
meta = (++ ".meta")

spaced_url :: String -> String
spaced_url = gsub "/" " / "