git-annex/Utility/LockFile/LockStatus.hs

{- LockStatus type
 -
 - Copyright 2014 Joey Hess <id@joeyh.name>
 -
 - License: BSD-2-clause
 -}

module Utility.LockFile.LockStatus (LockStatus(..)) where

import System.Posix

data LockStatus = StatusUnLocked | StatusLockedBy ProcessID | StatusNoLockFile
	deriving (Eq)
module for pid lock files with atomic stale lock file takeover when possible 2015-11-12 19:38:02 +00:00			`{- LockStatus type`
			`-`
			`- Copyright 2014 Joey Hess <id@joeyh.name>`
			`-`
			`- License: BSD-2-clause`
			`-}`

explict export lists Eliminated some dead code. In other cases, exported a currently unused function, since it was a logical part of the API. Of course this improves the API documentation. It may also sometimes let ghc optimize code better, since it can know a function is internal to a module. 364 modules still to go, according to git grep -E 'module [A-Za-z.]+ where' 2019-11-21 19:38:06 +00:00			`module Utility.LockFile.LockStatus (LockStatus(..)) where`
module for pid lock files with atomic stale lock file takeover when possible 2015-11-12 19:38:02 +00:00
			`import System.Posix`

			`data LockStatus = StatusUnLocked \| StatusLockedBy ProcessID \| StatusNoLockFile`
			`deriving (Eq)`