latched :: Latch -> IO Bool
latched (Latch mv) = map isJust . tryReadMVar $ mv
latched :: Latch -> IO Bool
latched (Latch mv) = map isJust . tryReadMVar $ mv
latched (Latch mv) = map isJust . tryReadMVar $ mv