fixing backend stuff

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

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

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

templates/medium.hamlet

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