text-ldap 0.1.1.6 → 0.1.1.7
raw patch · 2 files changed
+15/−41 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Text.LDAP.Data: instance Eq AttrType
- Text.LDAP.Data: instance Eq AttrValue
- Text.LDAP.Data: instance Eq Component
- Text.LDAP.Data: instance Eq LdifAttrValue
- Text.LDAP.Data: instance Ord AttrType
- Text.LDAP.Data: instance Ord AttrValue
- Text.LDAP.Data: instance Ord Component
- Text.LDAP.Data: instance Ord LdifAttrValue
- Text.LDAP.Data: instance Show AttrType
- Text.LDAP.Data: instance Show AttrValue
- Text.LDAP.Data: instance Show Component
- Text.LDAP.Data: instance Show LdifAttrValue
+ Text.LDAP.Data: infix 4 `inSBounds`
+ Text.LDAP.Data: instance GHC.Classes.Eq Text.LDAP.Data.AttrType
+ Text.LDAP.Data: instance GHC.Classes.Eq Text.LDAP.Data.AttrValue
+ Text.LDAP.Data: instance GHC.Classes.Eq Text.LDAP.Data.Component
+ Text.LDAP.Data: instance GHC.Classes.Eq Text.LDAP.Data.LdifAttrValue
+ Text.LDAP.Data: instance GHC.Classes.Ord Text.LDAP.Data.AttrType
+ Text.LDAP.Data: instance GHC.Classes.Ord Text.LDAP.Data.AttrValue
+ Text.LDAP.Data: instance GHC.Classes.Ord Text.LDAP.Data.Component
+ Text.LDAP.Data: instance GHC.Classes.Ord Text.LDAP.Data.LdifAttrValue
+ Text.LDAP.Data: instance GHC.Show.Show Text.LDAP.Data.AttrType
+ Text.LDAP.Data: instance GHC.Show.Show Text.LDAP.Data.AttrValue
+ Text.LDAP.Data: instance GHC.Show.Show Text.LDAP.Data.Component
+ Text.LDAP.Data: instance GHC.Show.Show Text.LDAP.Data.LdifAttrValue
Files
- mains/ppTest.hs +0/−29
- text-ldap.cabal +15/−12
− mains/ppTest.hs
@@ -1,29 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}--import Control.Applicative-import Text.LDAP.Parser-import qualified Text.LDAP.Parser as Parser-import Text.LDAP.Printer-import qualified Text.LDAP.Printer as Printer-import Data.Monoid ((<>))-import qualified Data.ByteString.Lazy.Char8 as LB-import Data.Either---appendErr :: String -> Either String a -> Either String a-appendErr s = either (Left . (++ (": " ++ s))) Right--isoTest :: LB.ByteString -> Either String LB.ByteString-isoTest b = do- let entParser = Parser.openLdapEntry Parser.ldifDecodeAttrValue- ent0 <- appendErr "parse0" $ runLdapParser entParser b- let out = runLdapPrinter (Printer.openLdapEntry Printer.ldifEncodeAttrValue) ent0- ent1 <- appendErr ("parse1: " ++ LB.unpack out) $ runLdapParser entParser out- if ent0 == ent1- then Right $ "Isomorphic: " <> out- else Left $ "Not isomorphic: " ++ LB.unpack out--main :: IO ()-main = do- bs <- map LB.unlines . openLdapDataBlocks . LB.lines <$> LB.getContents- mapM_ putStrLn . lefts . map isoTest $ bs
text-ldap.cabal view
@@ -1,5 +1,5 @@ name: text-ldap-version: 0.1.1.6+version: 0.1.1.7 synopsis: Parser and Printer for LDAP text data stream description: This package contains Parser and Printer for LDAP text data stream like OpenLDAP backup LDIF.@@ -7,10 +7,14 @@ license-file: LICENSE author: Kei Hibino maintainer: ex8k.hibino@gmail.com-copyright: Copyright (c) 2014 Kei Hibino+copyright: Copyright (c) 2014-2016 Kei Hibino category: Text build-type: Simple cabal-version: >=1.8+tested-with: GHC == 7.4.1, GHC == 7.4.2+ , GHC == 7.6.1, GHC == 7.6.2, GHC == 7.6.3+ , GHC == 7.8.1, GHC == 7.8.2, GHC == 7.8.3, GHC == 7.8.4+ , GHC == 8.0.1 library exposed-modules:@@ -30,7 +34,7 @@ , base64-bytestring hs-source-dirs: src ghc-options: -Wall- ghc-prof-options: -prof -fprof-auto+ -- ghc-prof-options: -prof -fprof-auto executable parseTest@@ -40,16 +44,15 @@ , text-ldap hs-source-dirs: mains ghc-options: -Wall -rtsopts- ghc-prof-options: -prof -fprof-auto+ -- ghc-prof-options: -prof -fprof-auto -executable ppTest- main-is: ppTest.hs- build-depends: base <5- , bytestring- , text-ldap- hs-source-dirs: mains- ghc-options: -Wall -rtsopts- ghc-prof-options: -prof -fprof-auto+-- executable ppTest+-- main-is: ppTest.hs+-- build-depends: base <5+-- , bytestring+-- , text-ldap+-- hs-source-dirs: mains+-- ghc-options: -Wall -rtsopts Test-suite pp build-depends: base <5