New sharer field: Creation time

config/models

@@ -19,6 +19,7 @@
 Sharer
     ident   ShrIdent
     name    Text     Maybe
+    created UTCTime        default='now()'
 
     UniqueSharer ident
 

src/Vervis/Handler/Person.hs

@@ -50,10 +50,12 @@ postPeopleR = do
             ((result, widget), enctype) <- runFormPost formPersonNew
             case result of
                 FormSuccess pn -> do
+                    now <- liftIO getCurrentTime
                     runDB $ do
                         let sharer = Sharer
                                 { sharerIdent   = text2shr $ uLogin pn
                                 , sharerName    = uName pn
+                                , sharerCreated = now
                                 }
                         sid <- insert sharer
                         let person = Person