Use MonadSnap constraint
Merge pull request #4 from kim/monadsnap

Use MonadSnap constraint