Synnefo » snf-ganeti » ganeti-local

import qualified Data.Attoparsec.Text as A

import qualified Data.Attoparsec.Combinator as AC

import Data.Attoparsec.Text (Parser)

import Data.Maybe

import Data.Text (Text, unpack)

optional parser = (Just <$> parser) <|> pure Nothing

-- | The parser for a whole DRBD status file.

  DRBDStatus <$> versionInfoParser

             <* A.endOfInput

-- | The parser for the version information lines.

              <* A.endOfLine

-- | The parser for a (multi-line) string representing a device.

  deviceNum <- skipSpaces *> A.decimal <* A.char ':'

  cs <- skipSpacesAndString "cs:" connStateParser

  if cs == Unconfigured

      reS <- optional resyncParser

      act <- optional actLogParser

      _ <- additionalEOL

      return $ DeviceInfo deviceNum cs ro ds replicProtocol io pIndicators

    where conditionalSyncStatusParser SyncSource = Just <$> syncStatusParser

          conditionalSyncStatusParser SyncTarget = Just <$> syncStatusParser