readTemperature (ControllerMock controllerImpl) = do
    ControllerImpl _ st n ts <- readIORef controllerImpl
    return (head ts)
readTemperature (ControllerMock controllerImpl) = do
    ControllerImpl _ st n ts <- readIORef controllerImpl
    return (head ts)
readTemperature (ControllerMock controllerImpl) = do
    ControllerImpl _ st n ts <- readIORef controllerImpl
    return (head ts)