diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-15 16:56:58 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-15 16:56:58 +0100 |
| commit | 37f0dac79707a0de81ec6364d2704007eefd9289 (patch) | |
| tree | 21c2fd38be8202f5700477360a59a3173057105a /Handler/ReferenceListing.hs | |
| parent | fe5cd6ad6c61eb13ca99acd1b69cd09b84051404 (diff) | |
| download | bar-37f0dac79707a0de81ec6364d2704007eefd9289.tar bar-37f0dac79707a0de81ec6364d2704007eefd9289.tar.gz bar-37f0dac79707a0de81ec6364d2704007eefd9289.tar.bz2 bar-37f0dac79707a0de81ec6364d2704007eefd9289.tar.xz bar-37f0dac79707a0de81ec6364d2704007eefd9289.zip | |
Fix sorting
Diffstat (limited to 'Handler/ReferenceListing.hs')
| -rw-r--r-- | Handler/ReferenceListing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Handler/ReferenceListing.hs b/Handler/ReferenceListing.hs index 0b89a20..e433429 100644 --- a/Handler/ReferenceListing.hs +++ b/Handler/ReferenceListing.hs | |||
| @@ -17,7 +17,7 @@ postReferenceListingR = do | |||
| 17 | FormFailure errors -> mapM_ (addMessage "formError" . toHtml) errors | 17 | FormFailure errors -> mapM_ (addMessage "formError" . toHtml) errors |
| 18 | _ -> return () | 18 | _ -> return () |
| 19 | 19 | ||
| 20 | reference <- runDB $ mapM withType =<< selectList [] [Asc ReferenceKind] | 20 | (referenceSort -> reference) <- runDB $ mapM withType =<< selectList [] [Asc ReferenceKind] |
| 21 | 21 | ||
| 22 | selectRep $ do | 22 | selectRep $ do |
| 23 | provideJson (reference :: [WithType (Entity Reference)]) | 23 | provideJson (reference :: [WithType (Entity Reference)]) |