then failSession ("Unexpected message: " ++ show msg) >> return new
else return new
deleteFirstJson _ [] = []
deleteFirstJson msg (x:xs)
then failSession ("Unexpected message: " ++ show msg) >> return new
else return new
deleteFirstJson _ [] = []
deleteFirstJson msg (x:xs)