Revision f5d84060 src/Ganeti/Storage/Lvm/LVParser.hs

b/src/Ganeti/Storage/Lvm/LVParser.hs
26 26 
02110-1301, USA.
27 27 

  		





  28
  28
  
    
-}


  		





  29
  
  
    
module Ganeti.Storage.Lvm.LVParser (lvParser, lvCommand) where


  		





  
  29
  
    
module Ganeti.Storage.Lvm.LVParser (lvParser, lvCommand, lvParams) where


  		





  30
  30
  
    

  		





  31
  31
  
    
import Control.Applicative ((<*>), (*>), (<*), (<$>), Applicative, )


  		





  32
  32
  
    
import qualified Data.Attoparsec.Text as A


  		





  ......




  70
  70
  
    
-- * Parser implementation


  		





  71
  71
  
    

  		





  72
  72
  
    
-- | The command providing the data, in the format the parser expects


  		





  73
  
  
    
lvCommand :: [String]


  		





  74
  
  
    
lvCommand =


  		





  75
  
  
    
  [ "lvs"


  		





  76
  
  
    
  , "--noheadings"


  		





  
  73
  
    
lvCommand :: String


  		





  
  74
  
    
lvCommand = "lvs"


  		





  
  75
  
    

  		





  
  76
  
    
-- | The parameters for getting the data in the format the parser expects


  		





  
  77
  
    
lvParams :: [String]


  		





  
  78
  
    
lvParams =


  		





  
  79
  
    
  [ "--noheadings"


  		





  77
  80
  
    
  , "--units", "B"


  		





  78
  81
  
    
  , "--separator", ";"


  		





  79
  82
  
    
  , "-o", "lv_uuid,lv_name,lv_attr,lv_major,lv_minor,lv_kernel_major\


  		












Also available in:
  Unified diff