Sergey Astanin avatar Sergey Astanin committed 250533d

Fix empty list of initials (use strict quickQuery')

Comments (0)

Files changed (1)

 findAuthorInitials db choices views = do
   let qsort = "order by authors.name"
   let (q,params) = buildQuery AuthorInitial choices views []
-  rows <- quickQuery db (trace' (q ++ qsort)) (trace' params) :: IO [[SqlValue]]
-  let inis = onlyJusts . map fromSql . column 0 $ rows
-  return . map (:[]) . nub . map (replaceX . toLower) . concatMap head' $ inis
+  rows <- quickQuery' db (trace' (q ++ qsort)) params ::IO [[SqlValue]]
+  let names = onlyJusts . map fromSql . column 0 $ rows
+  let inis = nub . map (replaceX . toLower) . concatMap head' $ names
+  return . trace' . map (:[]) $ inis
   where
   replaceX c | (toLower c) `notElem` romanOrCyrillic = '_'
              | otherwise                             = c
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.