fix memory leak

Handler/AdminProfileSettings.hs

@@ -138,8 +138,10 @@ adminProfileForm owner = User
   <*> pure (userSalted owner)
   <*> pure (userAlbums owner)
   <*> areq boolField (bfs ("Admin" :: T.Text)) (Just $ userAdmin owner)
-  <*> areq (selectField optionsEnum) (bfs ("Default licence" :: T.Text)) (Just $ userDefaultLicence owner)
+  <*> areq (selectField licenses) (bfs ("Default licence" :: T.Text)) (Just $ userDefaultLicence owner)
   <*  bootstrapSubmit ("Change settings" :: BootstrapSubmit T.Text)
+  where
+    licenses = optionsPairs $ map (\a -> (T.pack (show (toEnum a :: Licence)), a)) [-2..6]
 
 getAdminProfileDeleteR :: UserId -> Handler Html
 getAdminProfileDeleteR ownerId = do

eidolon.cabal

@@ -1,5 +1,5 @@
 name:                eidolon
-version:             0.1.7.1
+version:             0.1.7.2
 synopsis:            Image gallery in Yesod
 homepage:            https://eidolon.nek0.eu
 license:             AGPL-3

templates/adminProfileSettings.hamlet

@@ -4,7 +4,7 @@ $newline always
     <h1>Profile Settings
     ^{adminProfileSetWidget}
 
-  <a href=@{AdminProfileDeleteR userId}>Delete user
+  <a href=@{AdminProfileDeleteR ownerId}>Delete user
 
 <div .item>
   <div class="inner">