<div dir="auto">It would be better if liftReadPrec is used instead of liftReadsPrec.<div dir="auto"><br></div><div dir="auto">instance Read1 NonEmpty where</div><div dir="auto">     liftReadPrec rp rl = paren $ prec 5 $ do</div><div dir="auto">          x <- rp</div><div dir="auto">          Symbol ":|" <- lexP</div><div dir="auto">          xs <- rl</div><div dir="auto">          pure (x :| xs)</div></div>