ascending medium titles when looking at tags

2016-09-10 09:47:54 +02:00 · 2016-09-10 09:47:54 +02:00 · 422710eeef
commit 422710eeef
parent a148b93688
2 changed files with 2 additions and 2 deletions
--- a/Handler/Tag.hs
+++ b/Handler/Tag.hs
@ -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)
--- a/eidolon.cabal
+++ b/eidolon.cabal
@ -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