minor fix
This commit is contained in:
parent
939eb59714
commit
1a44dae580
|
@ -5,6 +5,8 @@ pkgs.mkShell {
|
||||||
haskell-language-server
|
haskell-language-server
|
||||||
stack
|
stack
|
||||||
stylish-haskell
|
stylish-haskell
|
||||||
|
|
||||||
|
libnotify
|
||||||
];
|
];
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
|
@ -62,7 +62,7 @@ roomStateDiffInOpenRooms newData = do
|
||||||
current <- getRoomDataState
|
current <- getRoomDataState
|
||||||
|
|
||||||
let newRooms = filter roomNotEmpty $ filter (\newRoom -> isNothing $ find (sameName newRoom) current) newData
|
let newRooms = filter roomNotEmpty $ filter (\newRoom -> isNothing $ find (sameName newRoom) current) newData
|
||||||
let oldRooms = filter (\newRoom -> isJust $ find (sameName newRoom) current) newData
|
let oldRooms = filter roomNotEmpty $ filter (\oldRoom -> isNothing $ find (sameName oldRoom) newData) current
|
||||||
|
|
||||||
return (newRooms, oldRooms)
|
return (newRooms, oldRooms)
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue