1 files changed, 180 insertions, 0 deletions

diff --git a/doc/bugs/Build_failure_with_feed___62____61___1.0.0.0.mdwn b/doc/bugs/Build_failure_with_feed___62____61___1.0.0.0.mdwn
new file mode 100644
index 000000000..e11c98268
--- /dev/null
+++ b/doc/bugs/Build_failure_with_feed___62____61___1.0.0.0.mdwn
@@ -0,0 +1,180 @@
+### Please describe the problem.
+git-annex cannot build with feed 1.0.0.0, which was uploaded to Hackage on Sat Aug 26 23:56:18 UTC 2017 by AdamBergmark.
+
+### What steps will reproduce the problem?
+Try to build git-annex with cabal install in a cabal sandbox.
+
+### What version of git-annex are you using? On what operating system?
+6.20170818
+
+### Please provide any additional information below.
+
+[[!format sh """
+[416 of 562] Compiling Command.ImportFeed ( Command/ImportFeed.hs, dist/dist-sandbox-b4eb11e/build/git-annex/git-annex-tmp/Command/ImportFeed.o )
+
+Command/ImportFeed.hs:139:61: error:
+    • Couldn't match type ‘Data.Text.Internal.Text’ with ‘[Char]’
+      Expected type: URLString
+        Actual type: Text.Atom.Feed.URI
+    • In the first argument of ‘Enclosure’, namely ‘enclosureurl’
+      In the second argument of ‘($)’, namely ‘Enclosure enclosureurl’
+      In the second argument of ‘($)’, namely
+        ‘ToDownload f u i $ Enclosure enclosureurl’
+
+Command/ImportFeed.hs:142:49: error:
+    • Couldn't match type ‘Data.Text.Internal.Text’ with ‘[Char]’
+      Expected type: URLString
+        Actual type: Data.Text.Internal.Text
+    • In the first argument of ‘quviSupported’, namely ‘link’
+      In the first argument of ‘ifM’, namely ‘(quviSupported link)’
+      In the expression:
+        ifM
+          (quviSupported link)
+          (return $ Just $ ToDownload f u i $ QuviLink link, return Nothing)
+
+Command/ImportFeed.hs:143:71: error:
+    • Couldn't match type ‘Data.Text.Internal.Text’ with ‘[Char]’
+      Expected type: URLString
+        Actual type: Data.Text.Internal.Text
+    • In the first argument of ‘QuviLink’, namely ‘link’
+      In the second argument of ‘($)’, namely ‘QuviLink link’
+      In the second argument of ‘($)’, namely
+        ‘ToDownload f u i $ QuviLink link’
+
+Command/ImportFeed.hs:214:54: error:
+    • Couldn't match type ‘[Char]’ with ‘Data.Text.Internal.Text’
+      Expected type: S.Set Data.Text.Internal.Text
+        Actual type: S.Set ItemId
+    • In the second argument of ‘S.member’, namely ‘(knownitems cache)’
+      In the expression: S.member itemid (knownitems cache)
+      In a case alternative:
+          Just (_, itemid) -> S.member itemid (knownitems cache)
+
+Command/ImportFeed.hs:279:42: error:
+    • Couldn't match type ‘Data.Text.Internal.Text’ with ‘[Char]’
+      Expected type: Maybe [Char]
+        Actual type: Maybe Text.RSS.Syntax.DateString
+    • In the second argument of ‘(<$>)’, namely
+        ‘getItemPublishDateString itm’
+      In the expression: replace "/" "-" <$> getItemPublishDateString itm
+      In a case alternative:
+          _ -> replace "/" "-" <$> getItemPublishDateString itm
+
+Command/ImportFeed.hs:293:44: error:
+    • Couldn't match type ‘Data.Text.Internal.Text’ with ‘[Char]’
+      Expected type: String
+        Actual type: Data.Text.Internal.Text
+    • In the first argument of ‘toMetaValue’, namely ‘itemid’
+      In the second argument of ‘($)’, namely ‘toMetaValue itemid’
+      In the second argument of ‘M.singleton’, namely
+        ‘(S.singleton $ toMetaValue itemid)’
+
+Command/ImportFeed.hs:299:26: error:
+    • Couldn't match type ‘Data.Text.Internal.Text’ with ‘[Char]’
+      Expected type: Maybe String
+        Actual type: Maybe Data.Text.Internal.Text
+    • In the expression: feedtitle
+      In the expression: [feedtitle]
+      In the expression: ("feedtitle", [feedtitle])
+
+Command/ImportFeed.hs:300:26: error:
+    • Couldn't match type ‘Data.Text.Internal.Text’ with ‘[Char]’
+      Expected type: Maybe String
+        Actual type: Maybe Data.Text.Internal.Text
+    • In the expression: itemtitle
+      In the expression: [itemtitle]
+      In the expression: ("itemtitle", [itemtitle])
+
+Command/ImportFeed.hs:301:27: error:
+    • Couldn't match type ‘Data.Text.Internal.Text’ with ‘[Char]’
+      Expected type: Maybe String
+        Actual type: Maybe Data.Text.Internal.Text
+    • In the expression: feedauthor
+      In the expression: [feedauthor]
+      In the expression: ("feedauthor", [feedauthor])
+
+Command/ImportFeed.hs:302:27: error:
+    • Couldn't match type ‘Data.Text.Internal.Text’ with ‘[Char]’
+      Expected type: Maybe String
+        Actual type: Maybe Data.Text.Internal.Text
+    • In the expression: itemauthor
+      In the expression: [itemauthor]
+      In the expression: ("itemauthor", [itemauthor])
+
+Command/ImportFeed.hs:303:28: error:
+    • Couldn't match type ‘Data.Text.Internal.Text’ with ‘[Char]’
+      Expected type: Maybe String
+        Actual type: Maybe Data.Text.Internal.Text
+    • In the expression: getItemSummary $ item i
+      In the expression: [getItemSummary $ item i]
+      In the expression: ("itemsummary", [getItemSummary $ item i])
+
+Command/ImportFeed.hs:304:32: error:
+    • Couldn't match type ‘Data.Text.Internal.Text’ with ‘[Char]’
+      Expected type: Maybe String
+        Actual type: Maybe Data.Text.Internal.Text
+    • In the expression: getItemDescription $ item i
+      In the expression: [getItemDescription $ item i]
+      In the expression:
+        ("itemdescription", [getItemDescription $ item i])
+
+Command/ImportFeed.hs:305:27: error:
+    • Couldn't match type ‘Data.Text.Internal.Text’ with ‘[Char]’
+      Expected type: Maybe String
+        Actual type: Maybe Data.Text.Internal.Text
+    • In the expression: getItemRights $ item i
+      In the expression: [getItemRights $ item i]
+      In the expression: ("itemrights", [getItemRights $ item i])
+
+Command/ImportFeed.hs:306:23: error:
+    • Couldn't match type ‘Data.Text.Internal.Text’ with ‘[Char]’
+      Expected type: Maybe String
+        Actual type: Maybe Data.Text.Internal.Text
+    • In the expression: snd <$> getItemId (item i)
+      In the expression: [snd <$> getItemId (item i)]
+      In the expression: ("itemid", [snd <$> getItemId (item i)])
+
+Command/ImportFeed.hs:307:22: error:
+    • Couldn't match type ‘Data.Text.Internal.Text’ with ‘[Char]’
+      Expected type: Maybe String
+        Actual type: Maybe Data.Text.Internal.Text
+    • In the expression: itemtitle
+      In the expression: [itemtitle, feedtitle]
+      In the expression: ("title", [itemtitle, feedtitle])
+
+Command/ImportFeed.hs:307:33: error:
+    • Couldn't match type ‘Data.Text.Internal.Text’ with ‘[Char]’
+      Expected type: Maybe String
+        Actual type: Maybe Data.Text.Internal.Text
+    • In the expression: feedtitle
+      In the expression: [itemtitle, feedtitle]
+      In the expression: ("title", [itemtitle, feedtitle])
+
+Command/ImportFeed.hs:308:23: error:
+    • Couldn't match type ‘Data.Text.Internal.Text’ with ‘[Char]’
+      Expected type: Maybe String
+        Actual type: Maybe Data.Text.Internal.Text
+    • In the expression: itemauthor
+      In the expression: [itemauthor, feedauthor]
+      In the expression: ("author", [itemauthor, feedauthor])
+
+Command/ImportFeed.hs:308:35: error:
+    • Couldn't match type ‘Data.Text.Internal.Text’ with ‘[Char]’
+      Expected type: Maybe String
+        Actual type: Maybe Data.Text.Internal.Text
+    • In the expression: feedauthor
+      In the expression: [itemauthor, feedauthor]
+      In the expression: ("author", [itemauthor, feedauthor])
+cabal: Leaving directory '.'
+cabal: Error: some packages failed to install:
+git-annex-6.20170818-ATXJn9dQzZj9avYQidLOBq failed during the building phase.
+The exception was:
+ExitFailure 1
+"""]]
+
+Full build log is here:
+https://gist.githubusercontent.com/anonymous/dcc8d9823bd50b7fca10d5cf8961e75d/raw/c6500526bbad0a94e067816b1af2c9e8717a3419/08.cabal
+
+### Have you had any luck using git-annex before? (Sometimes we get tired of reading bug reports all day and a lil' positive end note does wonders)
+Yes!
+