From 2e403fdacf3ff0a0ac4b4e450c473822fde2381e Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Fri, 8 Dec 2017 06:43:33 +0300
Subject: Set the PANCAKE environment variable for downloaders

---
 Pancake/Reading.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'Pancake')

diff --git a/Pancake/Reading.hs b/Pancake/Reading.hs
index cdb4093..43cf862 100644
--- a/Pancake/Reading.hs
+++ b/Pancake/Reading.hs
@@ -48,10 +48,12 @@ import GHC.IO.Handle
 import Text.Parsec hiding ((<|>))
 import Text.Parsec.ByteString
 import Data.Maybe
+import Data.Version
 
 import Text.Pandoc.Readers.Plain
 import Text.Pandoc.Readers.Gopher
 import Pancake.Common
+import Paths_pancake
 
 
 -- | Metadata (header, URI, document type) parser.
@@ -100,6 +102,7 @@ retrieve cmd uri = do
                     : ("URI_PATH", uriPath uri)
                     : ("URI_QUERY", uriQuery uri)
                     : ("URI_FRAGMENT", uriFragment uri)
+                    : ("PANCAKE", showVersion version)
                     : curEnv
                     ++ envAuthority
   handle (\(e :: SomeException) ->
-- 
cgit v1.2.3