nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

ascending medium titles when looking at tags

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Handler/Tag.hs
View file

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

2
eidolon.cabal
View file

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