Version.hs

data Version = V0_1 | V0_2 | V0_3 | V0_4
  deriving (Eq, Show)
instance WireValue Version where
  toWire V0_1 = 0x3f61ba36
  toWire V0_2 = 0x723081e1
  toWire V0_3 = 0x5f75e83e
  toWire V0_4 = 0x400c2d20
  fromWire 0x3f61ba36 = Just V0_1
  fromWire 0x723081e1 = Just V0_2
  fromWire 0x5f75e83e = Just V0_3
  fromWire 0x400c2d20 = Just V0_4
  fromWire _ = Nothing

Version.scala

// Example
// sealed abstract class Bool
// case object True extends Bool
// case object False extends Bool

sealed abstract class Version
case object V0_1 extends Version
case object V0_2 extends Version
// ...

// How do I assign 0x3f61ba36 to V0_1 or 0x723081e1 to V0_2, etc...