Revision 72747d91 test/hs/Test/Ganeti/Common.hs

b/test/hs/Test/Ganeti/Common.hs
83 83 
            -> c
84 84 
passFailOpt defaults failfn passfn
85 85 
              (opt@(GetOpt.Option _ longs _ _, _), bad, good) =
86 
  let prefix = "--" ++ head longs ++ "="
86 
  let first_opt = case longs of
87 
                    [] -> error "no long options?"
88 
                    x:_ -> x
89 
      prefix = "--" ++ first_opt ++ "="
87 90 
      good_cmd = prefix ++ good
88 91 
      bad_cmd = prefix ++ bad in
89 92 
  case (parseOptsInner defaults [bad_cmd]  "prog" [opt] [],

Also available in: Unified diff