Remove commented out dead code
This commit is contained in:
parent
b60f337cc4
commit
0daa03d958
1 changed files with 0 additions and 11 deletions
|
@ -19,29 +19,18 @@ module PDF.Output (
|
||||||
, render
|
, render
|
||||||
) where
|
) where
|
||||||
|
|
||||||
--import Data.ByteString.Builder (Builder, char8, lazyByteString, string8)
|
|
||||||
import Data.ByteString.Builder (Builder, char8, lazyByteString, string8, toLazyByteString)
|
import Data.ByteString.Builder (Builder, char8, lazyByteString, string8, toLazyByteString)
|
||||||
import Data.ByteString.Lazy.Char8 (ByteString)
|
import Data.ByteString.Lazy.Char8 (ByteString)
|
||||||
import qualified Data.ByteString.Lazy.Char8 as BS (length)
|
import qualified Data.ByteString.Lazy.Char8 as BS (length)
|
||||||
import Data.Int (Int64)
|
import Data.Int (Int64)
|
||||||
import Data.Map (Map)
|
import Data.Map (Map)
|
||||||
import qualified Data.Map as Map (singleton)
|
import qualified Data.Map as Map (singleton)
|
||||||
-- #if MIN_VERSION_base(4,9,0)
|
|
||||||
-- import qualified Data.Semigroup as Sem
|
|
||||||
-- #endif
|
|
||||||
import Data.String (IsString(..))
|
import Data.String (IsString(..))
|
||||||
--import Control.Monad.Reader (MonadReader(..), Reader, runReader)
|
|
||||||
--import Control.Monad.Reader (MonadReader(..), Reader, runReader)
|
|
||||||
--import Control.Monad.Reader (MonadReader(..), Reader, runReader)
|
|
||||||
import Control.Monad.RWS (RWS, runRWS, ask, get, listen, modify, tell)
|
import Control.Monad.RWS (RWS, runRWS, ask, get, listen, modify, tell)
|
||||||
import qualified PDF.EOL as EOL (Style(..))
|
import qualified PDF.EOL as EOL (Style(..))
|
||||||
|
|
||||||
data Offset = StartXRef | ObjectId Int deriving (Eq, Ord)
|
data Offset = StartXRef | ObjectId Int deriving (Eq, Ord)
|
||||||
|
|
||||||
{-
|
|
||||||
incrOffset :: (Int64 -> Int64) -> OutputState
|
|
||||||
-}
|
|
||||||
|
|
||||||
newtype OContext a = OContext (RWS EOL.Style (Map Offset Int64) Int64 a)
|
newtype OContext a = OContext (RWS EOL.Style (Map Offset Int64) Int64 a)
|
||||||
type OBuilder = OContext Builder
|
type OBuilder = OContext Builder
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue