ascending medium titles when looking at tags

This commit is contained in:
nek0 2016-09-10 09:47:54 +02:00
parent a148b93688
commit 422710eeef
2 changed files with 2 additions and 2 deletions

View file

@ -22,7 +22,7 @@ import System.FilePath
getTagR :: Text -> Handler Html
getTagR tag = do
tempMedia <- runDB $ selectList [] [Desc MediumTitle]
tempMedia <- runDB $ selectList [] [Asc MediumTitle]
almostMedia <- mapM (\a ->
if tag `elem` mediumTags (entityVal a)
then return (Just a)

View file

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