haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-12 04:08:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Make package name order case-insensitive

Browse Source
This commit is contained in:
Michael Sloan 2016-01-03 16:32:55 -08:00
parent 47e4545842
commit 23fe1adc37
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Stackage/Database.hs
View File

@ -474,7 +474,7 @@ prettyNameShort name =
getAllPackages :: GetStackageDatabase m => m [(Text, Text, Text)] -- FIXME add information on whether included in LTS and Nightly
getAllPackages = liftM (map toPair) $ run $ do
E.select $ E.from $ \p -> do
E.orderBy [E.asc $ p E.^. PackageName]
E.orderBy [E.asc $ E.lower_ $ p E.^. PackageName]
return
( p E.^. PackageName
, p E.^. PackageLatest
@ -496,7 +496,7 @@ getPackages sid = liftM (map toPLI) $ run $ do
E.where_ $
(p E.^. PackageId E.==. sp E.^. SnapshotPackagePackage) E.&&.
(sp E.^. SnapshotPackageSnapshot E.==. E.val sid)
E.orderBy [E.asc $ p E.^. PackageName]
E.orderBy [E.asc $ E.lower_ $ p E.^. PackageName]
return
( p E.^. PackageName
, p E.^. PackageSynopsis
@ -528,7 +528,7 @@ getSnapshotModules sid = liftM (map toMLI) $ run $ do
(m E.^. ModulePackage E.==. sp E.^. SnapshotPackageId)
E.orderBy
[ E.asc $ m E.^. ModuleName
, E.asc $ p E.^. PackageName
, E.asc $ E.lower_ $ p E.^. PackageName
]
return
( m E.^. ModuleName