Remove deprecated debug script and forgotten comments to bypass the selective export of Text module

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

examples/debug.hs

@@ -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

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)