wta: Fix off-by-one error

src/random-wta/Generator.hs

@@ -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