Revision ce207617 htest/Test/Ganeti/Common.hs

b/htest/Test/Ganeti/Common.hs
58 58 
                                          -- from the options
59 59 
         -> c
60 60 
checkOpt repr defaults failfn eqcheck valfn
61 
         (val, opt@(GetOpt.Option _ longs _ _), fn) =
61 
         (val, opt@(GetOpt.Option _ longs _ _, _), fn) =
62 62 
  case longs of
63 63 
    [] -> failfn "no long options?"
64 64 
    cmdarg:_ ->
......
79 79 
            -- ^ The list of enabled options, fail value and pass value
80 80 
            -> c
81 81 
passFailOpt defaults failfn passfn
82 
              (opt@(GetOpt.Option _ longs _ _), bad, good) =
82 
              (opt@(GetOpt.Option _ longs _ _, _), bad, good) =
83 83 
  let prefix = "--" ++ head longs ++ "="
84 84 
      good_cmd = prefix ++ good
85 85 
      bad_cmd = prefix ++ bad in

Also available in: Unified diff