Privacy stuff (not full but just to enable /contact for now)

So, this should be mostly working, but we still need to set the visibility for replies to match the visibility of parent comments for now
Is this the same as

```haskell
\c -> exprCommentIsRoot c && exprCommentPostedBy c
```
?