-- | Partially apply to get the callback used with 'IN.addWatch'
eventLength :: Conc.MVar Int -> IN.Event -> IO ()
eventLength mvar (IN.Created isDir _) = updateMVar mvar Add isDir
eventLength :: Conc.MVar Int -> IN.Event -> IO ()
eventLength mvar (IN.Created isDir _) = updateMVar mvar Add isDir
eventLength mvar (IN.Created isDir _) = updateMVar mvar Add isDir