Commit cab34a04 authored by Hans-Peter Deifel's avatar Hans-Peter Deifel 🐢

wta: Remove debug output

parent 15bde6cb
......@@ -9,8 +9,6 @@ import Data.Tuple
import Types
import Debug.Trace
newtype IndexedTransition = Index Integer
deriving (Show)
......@@ -25,7 +23,7 @@ fromIndex spec (Index i) =
let n = numStates spec
(t, symbolSums) = transitionsPerState spec
(state, stateTransition) = traceShow i $ i `divMod` t
(state, stateTransition) = i `divMod` t
-- fromJust is justified (ho ho) here, since `stateTransition` should
-- never be greater than the total number of possible transitions for this
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment