Merge pull request #1283 from chreekat/comment-for-unsafe

Comment on unsafePerformIO, close #1245

yesod-auth/Yesod/Auth/Email.hs

@@ -710,6 +710,8 @@ setLoginLinkKey aid = do
     setSession loginLinkKey $ TS.pack $ show (toPathPiece aid, now)
 
 
+-- See https://github.com/yesodweb/yesod/issues/1245 for discussion on this
+-- use of unsafePerformIO.
 defaultNonceGen :: Nonce.Generator
 defaultNonceGen = unsafePerformIO (Nonce.new)
 {-# NOINLINE defaultNonceGen #-}

yesod-auth/Yesod/Auth/GoogleEmail2.hs

@@ -574,6 +574,8 @@ allPersonInfo (A.Object o) = map enc $ M.toList o
 allPersonInfo _ = []
 
 
+-- See https://github.com/yesodweb/yesod/issues/1245 for discussion on this
+-- use of unsafePerformIO.
 defaultNonceGen :: Nonce.Generator
 defaultNonceGen = unsafePerformIO (Nonce.new)
 {-# NOINLINE defaultNonceGen #-}