Revision a7f0953a
| b/src/Ganeti/Utils.hs | ||
|---|---|---|
| 2 | 2 |
|
| 3 | 3 |
{-
|
| 4 | 4 |
|
| 5 |
Copyright (C) 2009, 2010, 2011, 2012 Google Inc. |
|
| 5 |
Copyright (C) 2009, 2010, 2011, 2012, 2013 Google Inc.
|
|
| 6 | 6 |
|
| 7 | 7 |
This program is free software; you can redistribute it and/or modify |
| 8 | 8 |
it under the terms of the GNU General Public License as published by |
| ... | ... | |
| 267 | 267 |
|
| 268 | 268 |
-} |
| 269 | 269 |
niceSort :: [String] -> [String] |
| 270 |
niceSort = map snd . sort . map (\s -> (fst $ extractKey [] s, s))
|
|
| 270 |
niceSort = niceSortKey id
|
|
| 271 | 271 |
|
| 272 | 272 |
-- | Key-version of 'niceSort'. We use 'sortBy' and @compare `on` fst@ |
| 273 | 273 |
-- since we don't want to add an ordering constraint on the /a/ type, |
Also available in: Unified diff