getStub :: CodeType -> FilePath
getStub ct = case ct of
  CTLayout         -> layoutStub
  CTController     -> controllerStub
  CTView           -> viewStub
  CTComponentController -> controllerStub
  CTComponentView       -> viewStub
getStub :: CodeType -> FilePath
getStub ct = case ct of
  CTLayout         -> layoutStub
  CTController     -> controllerStub
  CTView           -> viewStub
  CTComponentController -> controllerStub
  CTComponentView       -> viewStub
getStub ct = case ct of
  CTLayout         -> layoutStub
  CTController     -> controllerStub
  CTView           -> viewStub
  CTComponentController -> controllerStub
  CTComponentView       -> viewStub