From 90182768f100decab2dbdec0ada3244e9dc27043 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Wed, 3 Dec 2014 22:01:23 +0100
Subject: [PATCH] using now media thumbnails as thumbnails

---
 Handler/AlbumSettings.hs  | 2 +-
 templates/tagMedia.hamlet | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Handler/AlbumSettings.hs b/Handler/AlbumSettings.hs
index b717c28..d96f198 100644
--- a/Handler/AlbumSettings.hs
+++ b/Handler/AlbumSettings.hs
@@ -80,7 +80,7 @@ albumSettingsForm album albumId = renderDivs $ Album
   where
     media = do
       entities <- runDB $ selectList [MediumAlbum ==. albumId] [Desc MediumTitle]
-      optionsPairs $ map (\med -> (mediumTitle $ entityVal med, mediumPath (entityVal med))) entities
+      optionsPairs $ map (\med -> (mediumTitle $ entityVal med, mediumThumb (entityVal med))) entities
 
 getAlbumDeleteR :: AlbumId -> Handler Html
 getAlbumDeleteR albumId = do
diff --git a/templates/tagMedia.hamlet b/templates/tagMedia.hamlet
index ea6f226..ab9f3af 100644
--- a/templates/tagMedia.hamlet
+++ b/templates/tagMedia.hamlet
@@ -10,5 +10,5 @@ $else
     <li>
       <a href=@{MediumR mId}>
         <figure class="thumbnail">
-          <img src=#{mediumPath m}>
+          <img src=#{mediumThumb m}>
           <figcapion>#{mediumTitle m}