linden-0: src/Linden/TH.hs

module Linden.TH (
   makeCamel
 ) where

import Data.Char

makeCamel :: Int -> String -> String
makeCamel d = (\l -> (toLower . head $ l):(tail l))  . drop d