Map Over a State[ReqRespData, Res[A]]

stateMap.scala

    import scalaz._
    import Scalaz._
    import Probably.A.Lot.More.Shit
    
    //this is how you construct a State manually by the way
    val myState: State[ReqRespData, Res[String]] = state { d: ReqRespData =>
        val myRes: Res[String] = ValueRes("hello world")
        (d, myRes)
    }
    
    ...
    
    val myNewState: State[ReqRespData, Res[Boolean]] = myState.map { res: Res[String] =>
        res match {
            case v @ ValueRes(s) => {
                if(s.startsWith("aaron rulez")) {
                    v
                } else {
                    halt(500, "server cannot continue. it doesn't think aaron rulez")
                }
            }
            case _ => halt(400, "some other shit went wrong. it's prob your fault")
        }
    }