diff options
| author | defanor <defanor@uberspace.net> | 2017-12-08 06:43:33 +0300 |
|---|---|---|
| committer | defanor <defanor@uberspace.net> | 2017-12-08 06:43:33 +0300 |
| commit | 2e403fdacf3ff0a0ac4b4e450c473822fde2381e (patch) | |
| tree | e024515d3fccec78829bdcb2ab0aa0d9c1da50a4 /Pancake | |
| parent | c95348b64e23ceb14b1b052d739a390c7e9ac9f3 (diff) | |
Set the PANCAKE environment variable for downloaders
Diffstat (limited to 'Pancake')
| -rw-r--r-- | Pancake/Reading.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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) -> |