using now media thumbnails as thumbnails

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

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}