From c9f050e64bc73c397d72d7d026e333e697dc5fe9 Mon Sep 17 00:00:00 2001
From: Tissevert <tissevert+devel@marvid.fr>
Date: Mon, 7 Oct 2019 12:30:07 +0200
Subject: [PATCH] Remove deprecated debug script and forgotten comments to
 bypass the selective export of Text module

---
 Hufflepdf.cabal   | 10 ----------
 examples/debug.hs | 35 -----------------------------------
 src/PDF/Text.hs   |  4 ++--
 3 files changed, 2 insertions(+), 47 deletions(-)
 delete mode 100644 examples/debug.hs

diff --git a/Hufflepdf.cabal b/Hufflepdf.cabal
index 0c485f7..8794f37 100644
--- a/Hufflepdf.cabal
+++ b/Hufflepdf.cabal
@@ -56,16 +56,6 @@ executable             getObj
   ghc-options:         -Wall
   default-language:    Haskell2010
 
-executable             debug
-  main-is:             examples/debug.hs
-  build-depends:       base
-                     , bytestring
-                     , containers
-                     , Hufflepdf
-                     , mtl
-  ghc-options:         -Wall
-  default-language:    Haskell2010
-
 executable             getText
   main-is:             examples/getText.hs
   build-depends:       base
diff --git a/examples/debug.hs b/examples/debug.hs
deleted file mode 100644
index ef9ef4a..0000000
--- a/examples/debug.hs
+++ /dev/null
@@ -1,35 +0,0 @@
-{-# LANGUAGE NamedFieldPuns #-}
-module Main where
-
-import Control.Monad.Reader
-import qualified Data.ByteString as BS
-import qualified Data.ByteString.Char8 as C8
-import qualified Data.Map as Map
-import PDF.Object (Name(..), StringObject(..), array)
-import PDF.CMap (CMappers, CRange(..), cMap, emptyCMap)
-import PDF.Parser (evalParser)
-import PDF.Text
-
-test :: CMappers -> ParserWithFont a -> BS.ByteString -> Either String a
-test fonts parser =
-  evalParser (runReaderT parser fonts) emptyCMap
-
-main :: IO ()
-main = do
-  input <- BS.readFile "20.stream"
-  --input <- BS.readFile "array.bin"
-  --let input = C8.pack "\f\xb5\0I"
-  Right font <- cMap <$> BS.readFile "6300.stream"
-  --mapM_ (\(size, m) -> putStrLn ("taille " ++ show size) >> mapM_ showCRange m) $ Map.toList font
-  --case pageContents (Map.singleton (Name "R9") font) input of
-  --case test (Map.singleton (Name "R9") font) array input of
-  --case test (Map.singleton (Name "R9") font) (a textOperator) input of
-  case test (Map.singleton (Name "R9") font) page input of
-    Left e -> putStrLn e
-    Right l -> putStrLn . show $ l
-  where
-    showMapping = mapM_ (\(k, v) -> putStr (show k) >> putStr " -> " >> C8.putStrLn v) . Map.toList
-    showCRange :: CRange -> IO ()
-    showCRange (CRange {fromSequence, toSequence, mapping}) = do
-      putStrLn $ "from " ++ C8.unpack fromSequence ++ " to " ++ C8.unpack toSequence
-      showMapping mapping
diff --git a/src/PDF/Text.hs b/src/PDF/Text.hs
index dfa926c..24ae953 100644
--- a/src/PDF/Text.hs
+++ b/src/PDF/Text.hs
@@ -1,9 +1,9 @@
 {-# LANGUAGE NamedFieldPuns #-}
 {-# LANGUAGE OverloadedStrings #-}
-module PDF.Text {-(
+module PDF.Text (
       PageContents(..)
     , pageContents
-  )-} where
+  ) where
 
 import Control.Applicative ((<|>))
 import Control.Monad (foldM)