fixing backend stuff

This commit is contained in:
nek0 2016-12-19 02:27:09 +01:00
parent 282dd1478f
commit d6a2ffc52c
4 changed files with 4 additions and 1 deletions

View file

@ -72,6 +72,7 @@ postAdminMediumSettingsR mediumId = do
[ MediumTitle =. mediumTitle temp
, MediumDescription =. mediumDescription temp
, MediumTags =. mediumTags temp
, MediumLicence =. mediumLicence temp
]
setMessage "Medium settings changed successfully"
redirect AdminR

View file

@ -116,6 +116,7 @@ postAdminProfileSettingsR ownerId = do
, UserSlug =. userSlug temp
, UserEmail =. userEmail temp
, UserAdmin =. userAdmin temp
, UserDefaultLicence =. userDefaultLicence temp
]
setMessage "User data updated successfully"
redirect AdminR

View file

@ -47,6 +47,7 @@ postProfileSettingsR userId = do
UserName =. userName temp
, UserSlug =. userSlug temp
, UserEmail =. userEmail temp
, UserDefaultLicence =. (userDefaultLicence temp)
]
setMessage "Profile settings changed successfully"
redirect $ UserR $ userName user

View file

@ -15,7 +15,7 @@
Licence:
<p>
$maybe thing <- link
<a href=#{thing}>#{lic}
<a href=#{thing} target="_blank">#{lic}
$nothing
#{lic}
<p>