From 422710eeef9346afea70696322f8e7023795c390 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Sat, 10 Sep 2016 09:47:54 +0200
Subject: [PATCH] ascending medium titles when looking at tags

---
 Handler/Tag.hs | 2 +-
 eidolon.cabal  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Handler/Tag.hs b/Handler/Tag.hs
index 233b2c3..cba4eb8 100755
--- 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)
diff --git a/eidolon.cabal b/eidolon.cabal
index fa745ed..2785c17 100755
--- 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