New sharer field: Creation time

config/models

@@ -17,8 +17,9 @@
 -------------------------------------------------------------------------------
 
 Sharer
-    ident ShrIdent
-    name  Text     Maybe
+    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
+                                { sharerIdent   = text2shr $ uLogin pn
+                                , sharerName    = uName pn
+                                , sharerCreated = now
                                 }
                         sid <- insert sharer
                         let person = Person