Commit 44999948 authored by Hans-Peter Deifel's avatar Hans-Peter Deifel 🐢
Browse files

wta: Fix off-by-one error

parent 80d78438

src/random-wta/Generator.hs

+1 −1
Original line number Diff line number Diff line
@@ -114,7 +114,7 @@ genTransitions' numTransitions = do 


  -- FIXME Handle this case better. A nicer error output or something along this

  -- line.

  when (fromIntegral numTransitions >= m) $ do

  when (fromIntegral numTransitions > m) $ do

    error $ "genTransitions: More transitions than possible requested"



  transitions <- lift $ map (IndexedTransition.fromIndex wtaSpec) <$> uniqueTransitions numTransitions m