witch 1.0.2.0 → 1.1.0.0

raw patch · 3 files changed

+1/−139 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• source/library/Witch/Instances.hs +0/−60
• source/test-suite/Main.hs +0/−78
• witch.cabal +1/−1

@@ -1040,21 +1040,10 @@   from = ShortByteString.toShort  -- | Uses 'Text.decodeUtf8''.-instance TryFrom.TryFrom ByteString.ByteString Text.Text where-  tryFrom = Utility.eitherTryFrom Text.decodeUtf8'---- | Uses 'Text.decodeUtf8''. instance TryFrom.TryFrom (Tagged.Tagged "UTF-8" ByteString.ByteString) Text.Text where   tryFrom = Utility.eitherTryFrom $ Text.decodeUtf8' . From.from  -- | Converts via 'Text.Text'.-instance TryFrom.TryFrom ByteString.ByteString LazyText.Text where-  tryFrom =-    Utility.eitherTryFrom $-      fmap (Utility.into @LazyText.Text)-        . Utility.tryInto @Text.Text---- | Converts via 'Text.Text'. instance TryFrom.TryFrom (Tagged.Tagged "UTF-8" ByteString.ByteString) LazyText.Text where   tryFrom =     Utility.eitherTryFrom $@@ -1062,13 +1051,6 @@         . Utility.tryInto @Text.Text  -- | Converts via 'Text.Text'.-instance TryFrom.TryFrom ByteString.ByteString String where-  tryFrom =-    Utility.eitherTryFrom $-      fmap (Utility.into @String)-        . Utility.tryInto @Text.Text---- | Converts via 'Text.Text'. instance TryFrom.TryFrom (Tagged.Tagged "UTF-8" ByteString.ByteString) String where   tryFrom =     Utility.eitherTryFrom $@@ -1090,21 +1072,10 @@   from = LazyByteString.toStrict  -- | Uses 'LazyText.decodeUtf8''.-instance TryFrom.TryFrom LazyByteString.ByteString LazyText.Text where-  tryFrom = Utility.eitherTryFrom LazyText.decodeUtf8'---- | Uses 'LazyText.decodeUtf8''. instance TryFrom.TryFrom (Tagged.Tagged "UTF-8" LazyByteString.ByteString) LazyText.Text where   tryFrom = Utility.eitherTryFrom $ LazyText.decodeUtf8' . From.from  -- | Converts via 'LazyText.Text'.-instance TryFrom.TryFrom LazyByteString.ByteString Text.Text where-  tryFrom =-    Utility.eitherTryFrom $-      fmap (Utility.into @Text.Text)-        . Utility.tryInto @LazyText.Text---- | Converts via 'LazyText.Text'. instance TryFrom.TryFrom (Tagged.Tagged "UTF-8" LazyByteString.ByteString) Text.Text where   tryFrom =     Utility.eitherTryFrom $@@ -1112,13 +1083,6 @@         . Utility.tryInto @LazyText.Text  -- | Converts via 'LazyText.Text'.-instance TryFrom.TryFrom LazyByteString.ByteString String where-  tryFrom =-    Utility.eitherTryFrom $-      fmap (Utility.into @String)-        . Utility.tryInto @LazyText.Text---- | Converts via 'LazyText.Text'. instance TryFrom.TryFrom (Tagged.Tagged "UTF-8" LazyByteString.ByteString) String where   tryFrom =     Utility.eitherTryFrom $@@ -1146,18 +1110,10 @@   from = LazyText.fromStrict  -- | Uses 'Text.encodeUtf8'.-instance From.From Text.Text ByteString.ByteString where-  from = Text.encodeUtf8---- | Uses 'Text.encodeUtf8'. instance From.From Text.Text (Tagged.Tagged "UTF-8" ByteString.ByteString) where   from = From.from . Text.encodeUtf8  -- | Converts via 'ByteString.ByteString'.-instance From.From Text.Text LazyByteString.ByteString where-  from = Utility.via @ByteString.ByteString---- | Converts via 'ByteString.ByteString'. instance From.From Text.Text (Tagged.Tagged "UTF-8" LazyByteString.ByteString) where   from = fmap From.from . Utility.into @(Tagged.Tagged "UTF-8" ByteString.ByteString) @@ -1168,18 +1124,10 @@   from = LazyText.toStrict  -- | Uses 'LazyText.encodeUtf8'.-instance From.From LazyText.Text LazyByteString.ByteString where-  from = LazyText.encodeUtf8---- | Uses 'LazyText.encodeUtf8'. instance From.From LazyText.Text (Tagged.Tagged "UTF-8" LazyByteString.ByteString) where   from = From.from . LazyText.encodeUtf8  -- | Converts via 'LazyByteString.ByteString'.-instance From.From LazyText.Text ByteString.ByteString where-  from = Utility.via @LazyByteString.ByteString---- | Converts via 'LazyByteString.ByteString'. instance From.From LazyText.Text (Tagged.Tagged "UTF-8" ByteString.ByteString) where   from = fmap From.from . Utility.into @(Tagged.Tagged "UTF-8" LazyByteString.ByteString) @@ -1204,16 +1152,8 @@   from = LazyText.unpack  -- | Converts via 'Text.Text'.-instance From.From String ByteString.ByteString where-  from = Utility.via @Text.Text---- | Converts via 'Text.Text'. instance From.From String (Tagged.Tagged "UTF-8" ByteString.ByteString) where   from = Utility.via @Text.Text---- | Converts via 'LazyText.Text'.-instance From.From String LazyByteString.ByteString where-  from = Utility.via @LazyText.Text  -- | Converts via 'LazyText.Text'. instance From.From String (Tagged.Tagged "UTF-8" LazyByteString.ByteString) where

@@ -1801,13 +1801,6 @@         f (ByteString.pack [0x0f, 0xf0]) `shouldBe` ShortByteString.pack [0x0f, 0xf0]      describe "TryFrom ByteString Text" $ do-      let f = hush . Witch.tryFrom @ByteString.ByteString @Text.Text-      it "works" $ do-        f (ByteString.pack []) `shouldBe` Just (Text.pack "")-        f (ByteString.pack [0x61]) `shouldBe` Just (Text.pack "a")-        f (ByteString.pack [0xff]) `shouldBe` Nothing--    describe "TryFrom ByteString Text" $ do       let f = hush . Witch.tryFrom @(Tagged.Tagged "UTF-8" ByteString.ByteString) @Text.Text       it "works" $ do         f (Tagged.Tagged (ByteString.pack [])) `shouldBe` Just (Text.pack "")@@ -1815,13 +1808,6 @@         f (Tagged.Tagged (ByteString.pack [0xff])) `shouldBe` Nothing      describe "TryFrom ByteString LazyText" $ do-      let f = hush . Witch.tryFrom @ByteString.ByteString @LazyText.Text-      it "works" $ do-        f (ByteString.pack []) `shouldBe` Just (LazyText.pack "")-        f (ByteString.pack [0x61]) `shouldBe` Just (LazyText.pack "a")-        f (ByteString.pack [0xff]) `shouldBe` Nothing--    describe "TryFrom ByteString LazyText" $ do       let f = hush . Witch.tryFrom @(Tagged.Tagged "UTF-8" ByteString.ByteString) @LazyText.Text       it "works" $ do         f (Tagged.Tagged (ByteString.pack [])) `shouldBe` Just (LazyText.pack "")@@ -1829,13 +1815,6 @@         f (Tagged.Tagged (ByteString.pack [0xff])) `shouldBe` Nothing      describe "TryFrom ByteString String" $ do-      let f = hush . Witch.tryFrom @ByteString.ByteString @String-      it "works" $ do-        f (ByteString.pack []) `shouldBe` Just ""-        f (ByteString.pack [0x61]) `shouldBe` Just "a"-        f (ByteString.pack [0xff]) `shouldBe` Nothing--    describe "TryFrom ByteString String" $ do       let f = hush . Witch.tryFrom @(Tagged.Tagged "UTF-8" ByteString.ByteString) @String       it "works" $ do         f (Tagged.Tagged (ByteString.pack [])) `shouldBe` Just ""@@ -1864,20 +1843,6 @@         f (LazyByteString.pack [0x0f, 0xf0]) `shouldBe` ByteString.pack [0x0f, 0xf0]      describe "TryFrom LazyByteString LazyText" $ do-      let f = hush . Witch.tryFrom @LazyByteString.ByteString @LazyText.Text-      it "works" $ do-        f (LazyByteString.pack []) `shouldBe` Just (LazyText.pack "")-        f (LazyByteString.pack [0x61]) `shouldBe` Just (LazyText.pack "a")-        f (LazyByteString.pack [0xff]) `shouldBe` Nothing--    describe "TryFrom LazyByteString Text" $ do-      let f = hush . Witch.tryFrom @LazyByteString.ByteString @Text.Text-      it "works" $ do-        f (LazyByteString.pack []) `shouldBe` Just (Text.pack "")-        f (LazyByteString.pack [0x61]) `shouldBe` Just (Text.pack "a")-        f (LazyByteString.pack [0xff]) `shouldBe` Nothing--    describe "TryFrom LazyByteString LazyText" $ do       let f = hush . Witch.tryFrom @(Tagged.Tagged "UTF-8" LazyByteString.ByteString) @LazyText.Text       it "works" $ do         f (Tagged.Tagged (LazyByteString.pack [])) `shouldBe` Just (LazyText.pack "")@@ -1892,13 +1857,6 @@         f (Tagged.Tagged (LazyByteString.pack [0xff])) `shouldBe` Nothing      describe "TryFrom LazyByteString String" $ do-      let f = hush . Witch.tryFrom @LazyByteString.ByteString @String-      it "works" $ do-        f (LazyByteString.pack []) `shouldBe` Just ""-        f (LazyByteString.pack [0x61]) `shouldBe` Just "a"-        f (LazyByteString.pack [0xff]) `shouldBe` Nothing--    describe "TryFrom LazyByteString String" $ do       let f = hush . Witch.tryFrom @(Tagged.Tagged "UTF-8" LazyByteString.ByteString) @String       it "works" $ do         f (Tagged.Tagged (LazyByteString.pack [])) `shouldBe` Just ""@@ -1934,24 +1892,12 @@         f (Text.pack "ab") `shouldBe` LazyText.pack "ab"      describe "From Text ByteString" $ do-      let f = Witch.from @Text.Text @ByteString.ByteString-      it "works" $ do-        f (Text.pack "") `shouldBe` ByteString.pack []-        f (Text.pack "a") `shouldBe` ByteString.pack [0x61]--    describe "From Text ByteString" $ do       let f = Witch.from @Text.Text @(Tagged.Tagged "UTF-8" ByteString.ByteString)       it "works" $ do         f (Text.pack "") `shouldBe` Tagged.Tagged (ByteString.pack [])         f (Text.pack "a") `shouldBe` Tagged.Tagged (ByteString.pack [0x61])      describe "From Text LazyByteString" $ do-      let f = Witch.from @Text.Text @LazyByteString.ByteString-      it "works" $ do-        f (Text.pack "") `shouldBe` LazyByteString.pack []-        f (Text.pack "a") `shouldBe` LazyByteString.pack [0x61]--    describe "From Text LazyByteString" $ do       let f = Witch.from @Text.Text @(Tagged.Tagged "UTF-8" LazyByteString.ByteString)       it "works" $ do         f (Text.pack "") `shouldBe` Tagged.Tagged (LazyByteString.pack [])@@ -1965,24 +1911,12 @@         f (LazyText.pack "ab") `shouldBe` Text.pack "ab"      describe "From LazyText LazyByteString" $ do-      let f = Witch.from @LazyText.Text @LazyByteString.ByteString-      it "works" $ do-        f (LazyText.pack "") `shouldBe` LazyByteString.pack []-        f (LazyText.pack "a") `shouldBe` LazyByteString.pack [0x61]--    describe "From LazyText LazyByteString" $ do       let f = Witch.from @LazyText.Text @(Tagged.Tagged "UTF-8" LazyByteString.ByteString)       it "works" $ do         f (LazyText.pack "") `shouldBe` Tagged.Tagged (LazyByteString.pack [])         f (LazyText.pack "a") `shouldBe` Tagged.Tagged (LazyByteString.pack [0x61])      describe "From LazyText ByteString" $ do-      let f = Witch.from @LazyText.Text @ByteString.ByteString-      it "works" $ do-        f (LazyText.pack "") `shouldBe` ByteString.pack []-        f (LazyText.pack "a") `shouldBe` ByteString.pack [0x61]--    describe "From LazyText ByteString" $ do       let f = Witch.from @LazyText.Text @(Tagged.Tagged "UTF-8" ByteString.ByteString)       it "works" $ do         f (LazyText.pack "") `shouldBe` Tagged.Tagged (ByteString.pack [])@@ -2017,22 +1951,10 @@         f (LazyText.pack "ab") `shouldBe` "ab"      describe "From String ByteString" $ do-      let f = Witch.from @String @ByteString.ByteString-      it "works" $ do-        f "" `shouldBe` ByteString.pack []-        f "a" `shouldBe` ByteString.pack [0x61]--    describe "From String ByteString" $ do       let f = Witch.from @String @(Tagged.Tagged "UTF-8" ByteString.ByteString)       it "works" $ do         f "" `shouldBe` Tagged.Tagged (ByteString.pack [])         f "a" `shouldBe` Tagged.Tagged (ByteString.pack [0x61])--    describe "From String LazyByteString" $ do-      let f = Witch.from @String @LazyByteString.ByteString-      it "works" $ do-        f "" `shouldBe` LazyByteString.pack []-        f "a" `shouldBe` LazyByteString.pack [0x61]      describe "From String LazyByteString" $ do       let f = Witch.from @String @(Tagged.Tagged "UTF-8" LazyByteString.ByteString)

@@ -1,7 +1,7 @@ cabal-version: 2.2  name: witch-version: 1.0.2.0+version: 1.1.0.0 synopsis: Convert values from one type into another. description: Witch converts values from one type into another.