Haskell code for authentication with Openstack Keystone