{-
  So I want to see what happens if I have various things in the StateT monad.
 -}

temp :: StateT WorkingState IO ()
temp =
  do
    a <- get
    pure ()
temp :: StateT WorkingState IO ()
temp =
  do
    a <- get
    pure ()
temp =
  do
    a <- get
    pure ()