getDir :: CodeType -> FilePath
getDir ct = case ct of
  CTLayout         -> layoutDir
  CTController     -> controllerDir
  CTView           -> viewDir
  CTComponentController -> componentControllerDir
  CTComponentView       -> componentViewDir
getDir :: CodeType -> FilePath
getDir ct = case ct of
  CTLayout         -> layoutDir
  CTController     -> controllerDir
  CTView           -> viewDir
  CTComponentController -> componentControllerDir
  CTComponentView       -> componentViewDir
getDir ct = case ct of
  CTLayout         -> layoutDir
  CTController     -> controllerDir
  CTView           -> viewDir
  CTComponentController -> componentControllerDir
  CTComponentView       -> componentViewDir