Skip to content </textarea> '"` All gists GitHub Sign up for a GitHub account Sign in Xe / foo.coffee secret /.container /.repohead Code Revisions 4 Forks 1 Embed HTTPS Subversion You can clone with </textarea> '"` HTTPS or </textarea> '"` Subversion . Download ZIP /.repository-sidebar Raw foo.coffee doMagicAuthQuery :: Text -> Text -> (Maybe Text -> FromJSON -> IO ()) -> IO Maybe Text doCallBack :: Text -> Text -> IO Maybe Text doCallBack(username, password) = -> authcookie = " " doMagicAuthQuery username, password, \(err, value :: Maybe Text -> FromJSON -> IO ()) -> if err ? authcookie = Nothing return authcookie = value return (Just authcookie) Rendered timeline since 2015-08-06 11:49:18 Si...