From 4d65063592beb2e1d2bf3ab7e8768536b6e2028c Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sun, 23 Sep 2012 11:01:09 -0700
Subject: UTF8:  Export decodeArg.

---
 src/Text/Pandoc/UTF8.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/UTF8.hs b/src/Text/Pandoc/UTF8.hs
index 506686972..1d0eb4aee 100644
--- a/src/Text/Pandoc/UTF8.hs
+++ b/src/Text/Pandoc/UTF8.hs
@@ -36,13 +36,14 @@ module Text.Pandoc.UTF8 ( readFile
                         , hPutStrLn
                         , hGetContents
                         , encodePath
+                        , decodeArg
                         )
 
 where
 
 #if MIN_VERSION_base(4,4,0)
 #else
-import Codec.Binary.UTF8.String (encodeString)
+import Codec.Binary.UTF8.String (encodeString, decodeString)
 #endif
 
 #if MIN_VERSION_base(4,2,0)
@@ -121,8 +122,11 @@ hPutStrLn h s = hPutStr h (s ++ "\n")
 #endif
 
 encodePath :: FilePath -> FilePath
+decodeArg :: String -> String
 #if MIN_VERSION_base(4,4,0)
 encodePath = id
+decodeArg = id
 #else
 encodePath = encodeString
+decodeArg = decodeString
 #endif
-- 
cgit v1.2.3