bamboo-2009.5.18: src/Bamboo/Type/Extension.hs

{-# LANGUAGE NoImplicitPrelude #-}
module Bamboo.Type.Extension where

import Bamboo.Helper.Env hiding (body)

data Extension = 
    Comment
  | Search
  | Analytics
  | Counter
  deriving (Show, Read, Eq)


read_data s   = s.camel_case.read
read_data_list xs = xs.map read_data