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

Fixed myspace

Browse Source
This commit is contained in:
Michael Snoyman 2010-12-23 08:10:32 +02:00
parent 772afa0224
commit a38000b2f3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Web/Authenticate/OpenId/Providers.hs
View File

@ -23,7 +23,7 @@ livejournal :: String -> String
livejournal u = concat ["http://", u, ".livejournal.com/"] livejournal u = concat ["http://", u, ".livejournal.com/"]
myspace :: String -> String myspace :: String -> String
myspace = (++) "http://myspace.com/" myspace = (++) "http://www.myspace.com/"
wordpress :: String -> String wordpress :: String -> String
wordpress u = concat ["http://", u, ".wordpress.com/"] wordpress u = concat ["http://", u, ".wordpress.com/"]