-- Hoogle documentation, generated by Haddock -- See Hoogle, http://www.haskell.org/hoogle/ -- | A library for parsing connection strings. -- -- Parses connection strings in a manner that agrees with the format that -- .NET accepts (e.g. ADO.NET). @package connection-string @version 0.2.0.0 -- |
-- >>> toList <$> parse "key=value; key2 = value2"
-- Right [("key","value"),("key2","value2")]
--
--
-- However, the format can be more complicated than expected.
--
--
-- >>> toList <$> parse "squote='value with '' quotes'"
-- Right [("squote","value with ' quotes")]
--
--
-- Or double-quoted (double quotes can also be escaped inside a
-- double-quoted string by doubling them):
--
--
-- >>> let (Right quoted) = parse "dquote=\"value with \"\" quotes\""
--
-- >>> toList quoted
-- [("dquote","value with \" quotes")]
--
-- >>> quoted
-- "dquote='value with \" quotes'"
--
--
--
-- >>> toList <$> parse "'quote\"=value"
-- Right [("'quote\"","value")]
--
--
-- Whitespace is ignored everywhere except in quoted strings and inside
-- keys or unquoted values:
--
--
-- >>> toList <$> parse "; a key = v v\t\n;\t key 2 = \"v v\"\n;\t key 3 = 'v v'; "
-- Right [("a key","v v"),("key 2","v v"),("key 3","v v")]
--
--
-- Equals signs may be escaped in keys by doubling them:
--
--
-- >>> toList <$> parse "1==2=false"
-- Right [("1=2","false")]
--
--
-- Keys are case-insensitive (and converted to lower-case on output):
--
--
-- >>> toList <$> parse "BIG=small"
-- Right [("big","small")]
--
--
-- Later values override earlier ones:
--
--
-- >>> toList <$> parse "key=value;key=value2"
-- Right [("key","value2")]
--
--
-- Assigning a key no value will remove it:
--
-- -- >>> toList <$> parse "key=value;key=" -- Right [] ---- -- However, you can assign an empty value by giving it a quoted value: -- --
-- >>> toList <$> parse "key=value;key=''"
-- Right [("key","")]
--
--
-- -- >>> parse "key=value;=value" -- Left "1:11:\nunexpected '='\nexpecting ';', end of input, or white space\n" ---- --
-- >>> parse "=value" -- Left "1:1:\nunexpected '='\nexpecting ';', end of input, or white space\n" ---- -- Another quirk is that keys can contain semicolons: -- --
-- >>> toList <$> parse "key=value;key2;extended=value"
-- Right [("key","value"),("key2;extended","value")]
--
--
-- This module implements all of these quirks for you!
module Data.ConnectionString
-- | A connection string is a set of keys that map to values.
data ConnectionString s
toList :: ConnectionString s -> [(s, s)]
keys :: ConnectionString s -> [s]
values :: ConnectionString s -> [s]
-- | Tries to find the given key in the connection string, and returns
-- either the value or Nothing.
(!) :: (FoldCase s, Ord s, IsList s, Item s ~ Char) => ConnectionString s -> s -> Maybe s
-- | Render a ConnectionString as the string type.
toString :: forall s. (IsString s, IsList s, Item s ~ Char) => ConnectionString s -> s
-- | Parses a connection string, or fails with an error.
--
-- You can parse String inputs:
--
--
-- >>> parse ("key=value;key2=value2")
-- Right "key=value;key2=value2"
--
--
-- Or you can parse Text inputs:
--
--
-- >>> :set -XOverloadedStrings
--
-- >>> import Data.Text
--
-- >>> parse ("key=value;key2=value2" :: Text)
-- Right "key=value;key2=value2"
--
--
-- In either case, parse will produce a ConnectionString
-- that has values of the same type as the input.
parse :: Parseable s => s -> Either String (ConnectionString s)
-- | The constraints on things that parse can handle. (Essentially
-- this means "either String or Text".)
type Parseable s = (Stream s, Token s ~ Char, IsString s, Ord s, FoldCase s)
-- | A reusable (Text.Megaparsec) parser for connection strings.
--
-- A Nothing in the output list indicates that the corresponding
-- key should be deleted from the set.
parser :: Parseable s => Parsec Void s [(Key s, Maybe s)]
instance GHC.Classes.Eq s => GHC.Classes.Eq (Data.ConnectionString.ConnectionString s)
instance GHC.Classes.Ord s => GHC.Classes.Ord (Data.ConnectionString.Key s)
instance GHC.Classes.Eq s => GHC.Classes.Eq (Data.ConnectionString.Key s)
instance (GHC.Show.Show s, Data.String.IsString s, GHC.Exts.IsList s, GHC.Exts.Item s ~ GHC.Types.Char) => GHC.Show.Show (Data.ConnectionString.ConnectionString s)