readKey :: Sec.Path Sec.Absolute -> IO (Some Sec.Key)
readKey fp = do
  mKey <- Sec.readJSON_NoKeys_NoLayout fp
  case mKey of
    Left  err -> throwIO err
    Right key -> return key
readKey :: Sec.Path Sec.Absolute -> IO (Some Sec.Key)
readKey fp = do
  mKey <- Sec.readJSON_NoKeys_NoLayout fp
  case mKey of
    Left  err -> throwIO err
    Right key -> return key
readKey fp = do
  mKey <- Sec.readJSON_NoKeys_NoLayout fp
  case mKey of
    Left  err -> throwIO err
    Right key -> return key