 (Maybe [(String, String, String, Maybe String)])
readAuthInfoFile aipath = do
  P.parseFromFile readAuthInfo aipath

getPassword ∷ Maybe String → Str
readAuthInfoFile ∷ String → IO (Maybe [(String, String, String, Maybe String)])
readAuthInfoFile aipath = do
  P.parseFromFile readAuthInfo aipath
readAuthInfoFile aipath = do
  P.parseFromFile readAuthInfo aipath