[start adding ConsultProfile to data model
thomashartman1@gmail.com**20080916125313] hunk ./src/UserState.hs 14
+data ConsultantProfile = ConsultantProfile {
+ resume :: Maybe String, -- link to an online resume for now. should verify that starts with http://
+ websites_created :: Maybe [String],
+
+ -- tell something about yourself. Edited via a text area. should replace newlines with
when displayed.
+ blurb :: Maybe String,
+
+ billing_rate :: Maybe String, -- eg "$30-$50/hour", "40-50 Euro/hour", "it depends on the project", etc.
+ education :: Maybe String
+} deriving (Show,Read,Ord, Eq, Typeable,Data)
+instance Version ConsultantProfile
+$(deriveSerialize ''ConsultantProfile)
+
+-- Users should also have Maybe a consultant profile, Maybe [list of jobs they want done]
hunk ./src/UserState.hs 30
- password :: String
-} deriving (Show,Read,Ord, Eq, Typeable,Data)--
+ password :: String--,
+ -- consultantprofile :: Maybe ConsultantProfile
+} deriving (Show,Read,Ord, Eq, Typeable,Data)
+instance Version User
+$(deriveSerialize ''User)
+
+
+
hunk ./src/UserState.hs 47
-instance Version User
-$(deriveSerialize ''User)
+
hunk ./templates/home.st 26
-I am currently available for Haskell/HAppS consulting.
+I am currently available for haskell, HAppS, and startup consulting.
hunk ./templates/home.st 31
-Both curious developers, and investors that want a non-trivial website and are willing to gamble on a new technology.
+Both curious developers, and investors that want a non-trivial website and are willing to gamble on a new technology
+if it can get the job better, and most importantly, faster.
hunk ./templates/tableofcontents.st 12
-
+
hunk ./todo 2
+
+ consultant/job pages: orange post job/register links should only show if not logged in.