Permalink
Browse files

Add Web.Hatena.Auth.NoAuth

  • Loading branch information...
1 parent 7a3252c commit 126530b6563938cfb9020819aa53bef8823795e3 @maoe committed Mar 12, 2012
Showing with 9 additions and 1 deletion.
  1. +2 −1 hatena.cabal
  2. +4 −0 src/Web/Hatena/Auth.hs
  3. +3 −0 src/Web/Hatena/Auth/NoAuth.hs
View
@@ -29,9 +29,10 @@ library
, http-types == 0.6.9.*
, mtl == 2.*
exposed-modules: Web.Hatena
- Web.Hatena.Auth.OAuth
Web.Hatena.Star
other-modules: Web.Hatena.Auth
+ Web.Hatena.Auth.NoAuth
+ Web.Htaena.Auth.OAuth
Web.Hatena.Auth.WSSE
Web.Hatena.Internal
Web.Hatena.Monad
View
@@ -12,6 +12,7 @@ import Web.Authenticate.OAuth (signOAuth)
import Web.Hatena.Auth.OAuth
import Web.Hatena.Auth.WSSE
+import Web.Hatena.Auth.NoAuth
import Web.Hatena.Monad
class HatenaAuth auth where
@@ -26,3 +27,6 @@ instance HatenaAuth (OAuth scope) where
instance HatenaAuth WSSE where
authenticate = undefined
+
+instance HatenaAuth NoAuth where
+ authenticate = return
@@ -0,0 +1,3 @@
+module Web.Hatena.Auth.NoAuth (NoAuth) where
+
+data NoAuth

0 comments on commit 126530b

Please sign in to comment.