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

wta: Remove debug output

parent 15bde6cb

src/random-wta/IndexedTransition.hs

+6 −8
Original line number Diff line number Diff line
@@ -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