minor fix
This commit is contained in:
parent
939eb59714
commit
1a44dae580
|
@ -5,6 +5,8 @@ pkgs.mkShell {
|
|||
haskell-language-server
|
||||
stack
|
||||
stylish-haskell
|
||||
|
||||
libnotify
|
||||
];
|
||||
|
||||
}
|
||||
|
|
|
@ -62,7 +62,7 @@ roomStateDiffInOpenRooms newData = do
|
|||
current <- getRoomDataState
|
||||
|
||||
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)
|
||||
|
||||
|
|
Loading…
Reference in a new issue