Revision 8106dd64 src/Ganeti/Objects.hs

b/src/Ganeti/Objects.hs
353 353 
          path'   <- readJSON path
354 354 
          return $ LIDSharedFile driver' path'
355 355 
        _ -> fail "Can't read logical_id for shared file type"
356 
    DTGluster ->
357 
      case lid of
358 
        JSArray [driver, path] -> do
359 
          driver' <- readJSON driver
360 
          path'   <- readJSON path
361 
          return $ LIDSharedFile driver' path'
362 
        _ -> fail "Can't read logical_id for shared file type"
356 363 
    DTBlock ->
357 364 
      case lid of
358 365 
        JSArray [driver, path] -> do

Also available in: Unified diff