maintain set of files pendingAdd
Kqueue needs to remember which files failed to be added due to being open, and retry them. This commit gets the data in place for such a retry thread. Broke KeySource out into its own file, and added Eq and Ord instances so it can be stored in a Set.
This commit is contained in:
parent
ad11de94e5
commit
e0fdfb2e70
11 changed files with 89 additions and 30 deletions
|
@ -10,13 +10,7 @@
|
|||
module Types.Backend where
|
||||
|
||||
import Types.Key
|
||||
|
||||
{- The source used to generate a key. The location of the content
|
||||
- may be different from the filename associated with the key. -}
|
||||
data KeySource = KeySource
|
||||
{ keyFilename :: FilePath
|
||||
, contentLocation :: FilePath
|
||||
}
|
||||
import Types.KeySource
|
||||
|
||||
data BackendA a = Backend
|
||||
{ name :: String
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue