haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Some extra deriving of typeclasses

Browse Source
This commit is contained in:
Michael Snoyman 2010-06-29 09:36:33 +03:00
parent b05722e218
commit 0d34332182
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Web/Authenticate/Facebook.hs
View File

@ -2,8 +2,6 @@
module Web.Authenticate.Facebook where module Web.Authenticate.Facebook where
import Network.HTTP.Wget import Network.HTTP.Wget
import Control.Failure hiding (Error)
import Control.Monad.IO.Class
import Data.List (intercalate) import Data.List (intercalate)
import Data.Object import Data.Object
import Data.Object.Json import Data.Object.Json
@ -14,9 +12,10 @@ data Facebook = Facebook
, facebookClientSecret :: String , facebookClientSecret :: String
, facebookRedirectUri :: String , facebookRedirectUri :: String
} }
deriving (Show, Eq, Read)
newtype AccessToken = AccessToken { unAccessToken :: String } newtype AccessToken = AccessToken { unAccessToken :: String }
deriving Show deriving (Show, Eq, Read)
getForwardUrl :: Facebook -> [String] -> String getForwardUrl :: Facebook -> [String] -> String
getForwardUrl fb perms = concat getForwardUrl fb perms = concat