From 6cf9bebeed20ed48196b7f9a309d5db213ae15ea Mon Sep 17 00:00:00 2001
From: nek0 <neko.rloove@rocketmail.com>
Date: Thu, 14 Aug 2014 00:52:32 +0200
Subject: [PATCH] still changing logic

---
 Handler/Upload.hs | 19 +++++++++++--------
 config/models     |  2 +-
 2 files changed, 12 insertions(+), 9 deletions(-)

diff --git a/Handler/Upload.hs b/Handler/Upload.hs
index d37b357..b836e41 100644
--- a/Handler/Upload.hs
+++ b/Handler/Upload.hs
@@ -13,6 +13,7 @@ data TempMedium = TempMedium
   , tempMediumOwner :: UserId
   , tempMediumDesc :: Textarea
   , tempMediumTags :: [Text]
+  , tempMediumAlbum :: AlbumId
   }
 
 getUploadR :: Handler Html
@@ -49,11 +50,12 @@ postUploadR = do
             (tempMediumOwner temp)
             (tempMediumDesc temp)
             (tempMediumTags temp)
-          mId <- runDB $ insert medium
-          setMessage $ [shamlet|Image succesfully uploaded|]
+            (tempMediumAlbum temp)
+          mId <- runDB $ I.insert medium
+          setMessage $ [shamlet|<pre>Image succesfully uploaded|]
           redirect $ HomeR
         _ -> do
-          setMessage $ [shamlet|There was an error uploading the file|]
+          setMessage $ [shamlet|<pre>There was an error uploading the file|]
           redirect $ UploadR
     Nothing -> do
       setMessage $ [shamlet|<pre>You need to be logged in|]
@@ -74,11 +76,12 @@ uploadForm userId = renderDivs $ TempMedium
   <*> pure userId
   <*> areq textareaField "Description" Nothing
   <*> areq tagField "Enter tags" Nothing
---  <*> areq (selectField albums) "Album" Nothing
---  where
---    albums :: Handler App App (OptionList AlbumId)
---    albums = do
---      runDB $ selectList [AlbumOwner ==. userId] [Desc AlbumTitle]
+  <*> areq (selectField albums) "Album" Nothing
+  where
+--    albums :: GHandler App App (OptionList AlbumId)
+    albums = do
+      entities <- runDB $ selectList [AlbumOwner ==. userId] [Desc AlbumTitle]
+      optionsPairs $ I.map (\alb -> (albumTitle $ entityVal alb, entityKey alb)) entities
 
 tagField :: Field Handler [Text]
 tagField = Field
diff --git a/config/models b/config/models
index 6011f3c..31d8091 100644
--- a/config/models
+++ b/config/models
@@ -10,7 +10,7 @@ Token
     deriving
 Album
     title Text
-    owner [UserId]
+    owner UserId
     content [MediumId]
     deriving
 Medium