Log on works now

...but wait, there's more! - Admin area dashboard works, list pages work - Minor admin area style tweaks
2016-11-10 22:17:46 -06:00
parent 1873f9d6fc
commit ed9b8adc1c
17 changed files with 378 additions and 347 deletions
--- a/src/MyWebLog.Logic/User.fs
+++ b/src/MyWebLog.Logic/User.fs
@@ -5,3 +5,5 @@ open MyWebLog.Data

 /// Try to log on a user
 let tryUserLogOn (data : IMyWebLogData) email passwordHash = data.LogOn email passwordHash
+
+let setUserPassword (data : IMyWebLogData) = data.SetUserPassword