-- | parse dbacl output (see testdbacl for the format of dbacl's output)
dbacl_parse :: [AccountName]
            -> String
            -> Either ParseError [(AccountName,String)]
dbacl_parse accounts = fmap conv . parse (dbacl_parser sorted) ""
  where conv = fmap $ second L.unwords
        sorted = sortBy (flip $ comparing T.length) $ accounts
dbacl_parse :: [AccountName]
            -> String
            -> Either ParseError [(AccountName,String)]
dbacl_parse accounts = fmap conv . parse (dbacl_parser sorted) ""
  where conv = fmap $ second L.unwords
        sorted = sortBy (flip $ comparing T.length) $ accounts
dbacl_parse accounts = fmap conv . parse (dbacl_parser sorted) ""
  where conv = fmap $ second L.unwords
        sorted = sortBy (flip $ comparing T.length) $ accounts