getAuth (Just l) = getPassword >>= (\p -> return $ Just $ BasicAuth l p)
getAuth (Just l) = getPassword >>= (\p -> return $ Just $ BasicAuth l p)
getAuth (Just l) = getPassword >>= (\p -> return $ Just $ BasicAuth l p)