Revision e6812a1a htools/Ganeti/Daemon.hs

b/htools/Ganeti/Daemon.hs
125 125 
         "Ignore user checks"
126 126 

  		





  127
  127
  
    
oPort :: Int -> OptType


  		





  128
  
  
    
oPort def = Option "p" ["--port"]


  		





  
  128
  
    
oPort def = Option "p" ["port"]


  		





  129
  129
  
    
            (reqWithConversion (tryRead "reading port")


  		





  130
  130
  
    
             (\port opts -> Ok opts { optPort = Just port }) "PORT")


  		





  131
  131
  
    
            ("Network port (default: " ++ show def ++ ")")


  		












Also available in:
  Unified diff