2 files changed, 0 insertions, 95 deletions
diff --git a/krebs/5pkgs/haskell/purebred-email/default.nix b/krebs/5pkgs/haskell/purebred-email/default.nix
deleted file mode 100644
index 62fc82183..000000000
--- a/krebs/5pkgs/haskell/purebred-email/default.nix
+++ /dev/null
@@ -1,30 +0,0 @@
-{ mkDerivation, attoparsec, base, base64-bytestring, bytestring
-, case-insensitive, concise, deepseq, fetchgit, hedgehog, lens, lib
-, QuickCheck, quickcheck-instances, random, semigroupoids
-, stringsearch, tasty, tasty-golden, tasty-hedgehog, tasty-hunit
-, tasty-quickcheck, text, time
-}:
-mkDerivation {
-  pname = "purebred-email";
-  version = "0.5.1";
-  src = fetchgit {
-    url = "https://github.com/purebred-mua/purebred-email";
-    sha256 = "0iilyy5dkbzbiazyyfjdz585c3x8b7c2piynmycm7krkc48993vw";
-    rev = "7ba346e10ad1521a923bc04a4ffeca479d8dd071";
-    fetchSubmodules = true;
-  };
-  isLibrary = true;
-  isExecutable = true;
-  libraryHaskellDepends = [
-    attoparsec base base64-bytestring bytestring case-insensitive
-    concise deepseq lens random semigroupoids stringsearch text time
-  ];
-  testHaskellDepends = [
-    attoparsec base bytestring case-insensitive hedgehog lens
-    QuickCheck quickcheck-instances random tasty tasty-golden
-    tasty-hedgehog tasty-hunit tasty-quickcheck text time
-  ];
-  homepage = "https://github.com/purebred-mua/purebred-email";
-  description = "types and parser for email messages (including MIME)";
-  license = lib.licenses.agpl3Plus;
-}
diff --git a/krebs/5pkgs/haskell/purebred-email/untweak-mime-version-header.patch b/krebs/5pkgs/haskell/purebred-email/untweak-mime-version-header.patch
deleted file mode 100644
index 97baf7ac1..000000000
--- a/krebs/5pkgs/haskell/purebred-email/untweak-mime-version-header.patch
+++ /dev/null
@@ -1,65 +0,0 @@
-diff --git a/src/Data/MIME.hs b/src/Data/MIME.hs
-index 19af53e..be8cbd4 100644
---- a/src/Data/MIME.hs
-+++ b/src/Data/MIME.hs
-@@ -810,7 +810,6 @@ multipart takeTillEnd boundary =
- -- | Sets the @MIME-Version: 1.0@ header.
- --
- instance RenderMessage MIME where
--  tweakHeaders = set (headers . at "MIME-Version") (Just "1.0")
-   buildBody h z = Just $ case z of
-     Part partbody -> Builder.byteString partbody
-     Encapsulated msg -> buildMessage msg
-diff --git a/tests/Generator.hs b/tests/Generator.hs
-index 9e1f166..23bd122 100644
---- a/tests/Generator.hs
-+++ b/tests/Generator.hs
-@@ -64,7 +64,7 @@ exampleMailsParseSuccessfully =
- textPlain7bit :: MIMEMessage
- textPlain7bit =
-     let m = createTextPlainMessage "This is a simple mail."
--    in over headers (\(Headers xs) -> Headers $ (CI.mk "Subject", "Hello there") : xs) m
-+    in over headers (\(Headers xs) -> Headers $ (CI.mk "MIME-Version", "1.0") : (CI.mk "Subject", "Hello there") : xs) m
- 
- multiPartMail :: MIMEMessage
- multiPartMail =
-@@ -72,13 +72,16 @@ multiPartMail =
-         to' = Single $ Mailbox Nothing (AddrSpec "bar" (DomainDotAtom $ pure "bar.com"))
-         subject = "Hello there"
-         p = createTextPlainMessage "This is a simple mail."
-+             & set (headers . at "MIME-Version") (Just "1.0")
-         a = createAttachment
-                 contentTypeApplicationOctetStream
-                 (Just "foo.bin")
-                 "fileContentsASDF"
-+             & set (headers . at "MIME-Version") (Just "1.0")
-         now = UTCTime (ModifiedJulianDay 123) (secondsToDiffTime 123)
-     in createMultipartMixedMessage "asdf" (fromList [p, a])
--       & set (headers . at "From") (Just $ renderMailboxes [from'])
-+       & set (headers . at "MIME-Version") (Just "1.0")
-+       . set (headers . at "From") (Just $ renderMailboxes [from'])
-        . set (headers . at "To") (Just $ renderAddresses [to'])
-        . set (headers . at "Date") (Just $ renderRFC5422Date now)
-        . set (headers . at "Subject") (Just $ T.encodeUtf8 subject)
-diff --git a/tests/Message.hs b/tests/Message.hs
-index 6711519..3e40397 100644
---- a/tests/Message.hs
-+++ b/tests/Message.hs
-@@ -29,7 +29,7 @@ import Data.Char (isPrint)
- import Data.Foldable (fold)
- import Data.List.NonEmpty (NonEmpty(..), intersperse)
- 
--import Control.Lens (set, view)
-+import Control.Lens ((&), at, set, view)
- import qualified Data.ByteString as B
- import qualified Data.Text as T
- 
-@@ -99,7 +99,7 @@ genMessage = Gen.choice [ genTextPlain, genMultipart, encapsulate <$> genMessage
- prop_messageRoundTrip :: Property
- prop_messageRoundTrip = property $ do
-   msg <- forAll genMessage
--  parse (message mime) (renderMessage msg) === Right msg
-+  parse (message mime) (renderMessage $ msg & set (headers . at "MIME-Version") (Just "1.0")) === Right msg
- 
- prop_messageFromRoundTrip :: Property
- prop_messageFromRoundTrip = property $ do