essage created with 'Unexpected' constructor that
-- tells the system that string @s@ is unexpected.

uneStr :: String -> Message
uneStr s = Unexpected $ showToken s

-- | @uneSpec s@ return
uneStr :: String -> Message
uneStr s = Unexpected $ showToken s
uneStr s = Unexpected $ showToken s