       → Nothing

-- | Our hand-made verbose analogue of 'Prelude.show'.
vwrite' ∷ (VSerialise α) ⇒ α → String
vwrite' = vwritePrec' 0

instance VSerialise Int where
    vreadPrec' = readsP
vread' ∷ (VSerialise α) ⇒ String → Maybe α
vread' s = case vreadPrec' 0 s of
    [(a,"")] → Just a
    _        → Nothing

-- | Our hand-made verbose analogue of 'Prelude.show'.
vread' s = case vreadPrec' 0 s of
    [(a,"")] → Just a
    _        → Nothing

-- | Our hand-made verbose analogue of 'Prelude.show'.