diff --git a/Handler/AdminMediumSettings.hs b/Handler/AdminMediumSettings.hs index 1291d93..12491c3 100755 --- a/Handler/AdminMediumSettings.hs +++ b/Handler/AdminMediumSettings.hs @@ -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 diff --git a/Handler/AdminProfileSettings.hs b/Handler/AdminProfileSettings.hs index 8b590af..2f85e8a 100755 --- a/Handler/AdminProfileSettings.hs +++ b/Handler/AdminProfileSettings.hs @@ -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 diff --git a/Handler/ProfileSettings.hs b/Handler/ProfileSettings.hs index 0b5613c..1421ed0 100755 --- a/Handler/ProfileSettings.hs +++ b/Handler/ProfileSettings.hs @@ -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 diff --git a/templates/medium.hamlet b/templates/medium.hamlet index 2ee03cb..8ebadad 100755 --- a/templates/medium.hamlet +++ b/templates/medium.hamlet @@ -15,7 +15,7 @@ Licence:

$maybe thing <- link - #{lic} + #{lic} $nothing #{lic}