diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-11 23:09:27 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-11 23:09:27 +0100 |
| commit | 84e6bb9cd5dbca0efa37fcbafe3e1107a206f460 (patch) | |
| tree | 6d4e3b6db96a4cb79f3c975e4cad72083dcc3031 | |
| parent | 99452cac03db6a7d6bceb03c0505aa8064b67810 (diff) | |
| download | nixos-84e6bb9cd5dbca0efa37fcbafe3e1107a206f460.tar nixos-84e6bb9cd5dbca0efa37fcbafe3e1107a206f460.tar.gz nixos-84e6bb9cd5dbca0efa37fcbafe3e1107a206f460.tar.bz2 nixos-84e6bb9cd5dbca0efa37fcbafe3e1107a206f460.tar.xz nixos-84e6bb9cd5dbca0efa37fcbafe3e1107a206f460.zip | |
Fix sorting
| -rwxr-xr-x | bragi/bar.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/bragi/bar.hs b/bragi/bar.hs index 1cf10fdf..40548f37 100755 --- a/bragi/bar.hs +++ b/bragi/bar.hs | |||
| @@ -65,6 +65,7 @@ instance Ord Item where | |||
| 65 | x `compare` y = mconcat | 65 | x `compare` y = mconcat |
| 66 | [ (isNothing $ itemOpened x) `compare` (isNothing $ itemOpened y) | 66 | [ (isNothing $ itemOpened x) `compare` (isNothing $ itemOpened y) |
| 67 | , itemOpened x `compare` itemOpened y | 67 | , itemOpened x `compare` itemOpened y |
| 68 | , (isNothing $ itemExpires x) `compare` (isNothing $ itemExpires y) | ||
| 68 | , itemExpires x `compare` itemExpires x | 69 | , itemExpires x `compare` itemExpires x |
| 69 | , itemKind x `compare` itemKind x | 70 | , itemKind x `compare` itemKind x |
| 70 | , itemBought x `compare` itemBought x | 71 | , itemBought x `compare` itemBought x |