Extension.hs

module Panda.Type.Extension where

import Panda.Helper.Env hiding (body)
import Prelude hiding ((.), (/), (^), id, readFile)


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


to_extension s   = s.camel_case.read :: Extension
to_extensions xs = xs.map to_extension