From d6a2ffc52c4f687ed3c1d14d7499c02a44f6b01d Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Mon, 19 Dec 2016 02:27:09 +0100
Subject: [PATCH] fixing backend stuff

---
 Handler/AdminMediumSettings.hs  | 1 +
 Handler/AdminProfileSettings.hs | 1 +
 Handler/ProfileSettings.hs      | 1 +
 templates/medium.hamlet         | 2 +-
 4 files changed, 4 insertions(+), 1 deletion(-)

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:
       <p>
         $maybe thing <- link
-          <a href=#{thing}>#{lic}
+          <a href=#{thing} target="_blank">#{lic}
         $nothing
           #{lic}
     <p>