Revision 29a30533 htools/Ganeti/HTools/Program/Hscan.hs

b/htools/Ganeti/HTools/Program/Hscan.hs
53 53

  
54 54
-- | Options list and functions.
55 55
options :: IO [OptType]
56
options =
56
options = do
57
  luxi <- oLuxiSocket
57 58
  return
58 59
    [ oPrintNodes
59 60
    , oOutputDir
60
    , oLuxiSocket
61
    , luxi
61 62
    , oVerbose
62 63
    , oNoHeaders
63 64
    ]
......
147 148
                "t_disk" "f_disk" "Score"
148 149

  
149 150
  when (null clusters) $ do
150
         let lsock = fromMaybe Path.defaultLuxiSocket (optLuxi opts)
151
         def_socket <- Path.defaultLuxiSocket
152
         let lsock = fromMaybe def_socket (optLuxi opts)
151 153
         let name = local
152 154
         input_data <- Luxi.loadData lsock
153 155
         result <- writeData nlen name opts input_data

Also available in: Unified diff