How to create a custom parser Monad for SimpleJSON in PureScript?

Question

I have the following, which works up until the point I try to define readJSON\':

newtype JSONWithErr a = JSONWithErr (Writer (Array Foreign.Forei