, Option ['r'] ["rebuild-index"]
(NoArg OptRebuildIndex)
- "Rebuild the index database."
+ "Rebuild the index database. (Only for debug purposes)"
, Option ['h'] ["help"]
(NoArg OptHelp)
unlock' = closeFd
withPidFile :: FilePath -> IO a -> IO a
-withPidFile lockfile = bracket mkPid' (const delPid') . const
+withPidFile lockfile = bracket_ mkPid' delPid'
where
mkPid' :: IO ()
mkPid' = withFile lockfile WriteMode $ \ h ->