From b859338a578aa4a2217c81b828681566559ed9ea Mon Sep 17 00:00:00 2001
From: Tissevert <tissevert+devel@marvid.fr>
Date: Wed, 5 Feb 2020 18:03:44 +0100
Subject: [PATCH] Start implementing the MacRomanEncoding

---
 Hufflepdf.cabal              | 1 +
 src/PDF/Encoding/MacRoman.hs | 8 ++++++++
 src/PDF/Pages.hs             | 1 +
 3 files changed, 10 insertions(+)
 create mode 100644 src/PDF/Encoding/MacRoman.hs

diff --git a/Hufflepdf.cabal b/Hufflepdf.cabal
index 39ee5d7..3a1cb5d 100644
--- a/Hufflepdf.cabal
+++ b/Hufflepdf.cabal
@@ -26,6 +26,7 @@ library
                      , PDF.Text
                      , PDF.Update
   other-modules:       Data.ByteString.Char8.Util
+                     , PDF.Encoding.MacRoman
                      , PDF.Body
                      , PDF.Font
   -- other-extensions:    
diff --git a/src/PDF/Encoding/MacRoman.hs b/src/PDF/Encoding/MacRoman.hs
new file mode 100644
index 0000000..0639cdc
--- /dev/null
+++ b/src/PDF/Encoding/MacRoman.hs
@@ -0,0 +1,8 @@
+module PDF.Encoding.MacRoman (
+    macRomanEncoding
+  ) where
+
+import PDF.Font (Font)
+
+macRomanEncoding :: Font
+macRomanEncoding = Right
diff --git a/src/PDF/Pages.hs b/src/PDF/Pages.hs
index 9717e99..aaf79e1 100755
--- a/src/PDF/Pages.hs
+++ b/src/PDF/Pages.hs
@@ -14,6 +14,7 @@ import qualified Data.ByteString.Lazy as Lazy (fromStrict, toStrict)
 import Data.Map (Map, (!))
 import qualified Data.Map as Map (empty, fromList, insert, lookup, toList)
 import PDF.CMap (cMap)
+import PDF.Encoding.MacRoman (macRomanEncoding)
 import PDF.Font (Font, FontSet)
 import PDF.Object (
       Content(..), Dictionary, DirectObject(..), IndirectObjCoordinates(..)