Let\'s say I have this piece of code:
data Command = Forward Integer | Backwards Integer doSomething givenCommand | Forward value <- givenC