eventLength mvar (IN.MovedIn isDir _ _) = updateMVar mvar Add isDir
eventLength mvar (IN.MovedIn isDir _ _) = updateMVar mvar Add isDir
eventLength mvar (IN.MovedIn isDir _ _) = updateMVar mvar Add isDir