Revision c8751a72

b/src/Ganeti/Locking/Locks.hs
26 26
module Ganeti.Locking.Locks
27 27
  ( GanetiLocks(..)
28 28
  , GanetiLockAllocation
29
  , loadLockAllocation
29 30
  ) where
30 31

  
31
import Control.Monad (liftM)
32
import Control.Monad (liftM, (>=>))
32 33
import qualified Text.JSON as J
33 34

  
34
import Ganeti.JSON (asJSObject, fromObj)
35

  
36
import Ganeti.BasicTypes
37
import Ganeti.Errors (ResultG)
38
import Ganeti.JSON (asJSObject, fromObj, fromJResultE)
35 39
import Ganeti.Locking.Allocation
36 40
import Ganeti.Locking.Types
37 41
import Ganeti.Types
......
66 70
-- | The type of lock Allocations in Ganeti. In Ganeti, the owner of
67 71
-- locks are jobs.
68 72
type GanetiLockAllocation = LockAllocation GanetiLocks JobId
73

  
74
-- | Load a lock allocation from disk.
75
loadLockAllocation :: FilePath -> ResultG GanetiLockAllocation
76
loadLockAllocation =
77
  liftIO . readFile
78
  >=> fromJResultE "parsing lock allocation" . J.decodeStrict

Also available in: Unified diff