OpenAFP-Utils 1.3.1 → 1.3.1.1

raw patch · 2 files changed

+15/−15 lines, 2 filesdep ~base

Dependency ranges changed: base

Files

• OpenAFP-Utils.cabal +12/−12
• afp2line.hs +3/−3

@@ -1,5 +1,5 @@ Name:               OpenAFP-Utils-Version:            1.3.1+Version:            1.3.1.1 License:            PublicDomain License-file:       LICENSE Author:             Audrey Tang@@ -12,26 +12,26 @@  Executable afp2line2pdf     Main-is:            afp2line2pdf.hs-    Build-depends:      OpenAFP >= 1.3, base, line2pdf >= 0.0.7+    Build-depends:      OpenAFP >= 1.3, base >= 4 && < 5, line2pdf >= 0.0.7, bytestring     Extensions:         StandaloneDeriving, GeneralizedNewtypeDeriving, ImplicitParams,                         ExistentialQuantification, PatternGuards  Executable afp-olndump     Main-is:            afp-olndump.hs-    Build-depends:      OpenAFP >= 1.3, base, bytestring, containers, binary+    Build-depends:      OpenAFP >= 1.3, base >= 4 && < 5, bytestring, containers, binary  Executable afp-dump     Main-is:            afp-dump.hs-    Build-depends:      OpenAFP >= 1.3, base, bytestring, containers, iconv, xhtml+    Build-depends:      OpenAFP >= 1.3, base >= 4 && < 5, bytestring, containers, iconv, xhtml     Extensions:         DeriveDataTypeable, PatternGuards  Executable afp-page     Main-is:            afp-page.hs-    Build-depends:      OpenAFP >= 1.3, base+    Build-depends:      OpenAFP >= 1.3, base >= 4 && < 5  Executable afp-replace     Main-is:            afp-replace.hs-    Build-depends:      OpenAFP >= 1.3, base+    Build-depends:      OpenAFP >= 1.3, base >= 4 && < 5     Extensions:         DeriveDataTypeable, FlexibleContexts, PatternGuards  Executable afp-scanudc@@ -41,24 +41,24 @@  Executable afp-split     Main-is:            afp-split.hs-    Build-depends:      OpenAFP >= 1.3, base+    Build-depends:      OpenAFP >= 1.3, base >= 4 && < 5  Executable afp-split-scb     Main-is:            afp-split-scb.hs-    Build-depends:      OpenAFP >= 1.3, base+    Build-depends:      OpenAFP >= 1.3, base >= 4 && < 5  Executable afp-split-tcb     Main-is:            afp-split-tcb.hs-    Build-depends:      OpenAFP >= 1.3, base, filepath+    Build-depends:      OpenAFP >= 1.3, base >= 4 && < 5, filepath     Extensions:         ImplicitParams  Executable afp-type     Main-is:            afp-type.hs-    Build-depends:      OpenAFP >= 1.3, base+    Build-depends:      OpenAFP >= 1.3, base >= 4 && < 5  Executable afp-udcfix     Main-is:            afp-udcfix.hs-    Build-depends:      OpenAFP >= 1.3, base, regex-base, regex-posix+    Build-depends:      OpenAFP >= 1.3, base >= 4 && < 5, regex-base, regex-posix     Extensions:         DeriveDataTypeable, MultiParamTypeClasses, FlexibleContexts, PatternGuards, RankNTypes  Executable afp-validate@@ -67,7 +67,7 @@  Executable afp2line     Main-is:            afp2line.hs-    Build-depends:      OpenAFP >= 1.3, base+    Build-depends:      OpenAFP >= 1.3, base >= 4 && < 5, containers     Extensions:         GeneralizedNewtypeDeriving   source-repository head

@@ -158,8 +158,8 @@     curEncoding <- lookupFontEncoding scflId     cs ..>         [ _PTX_TRN ... \trn -> do-            when (ptx_scfl (decodeChunk scfl) == 2) $ do-                hPrint stderr (ptx_trn trn) +            -- when (ptx_scfl (decodeChunk scfl) == 2) $ do+            --     hPrint stderr (ptx_trn trn)              case curEncoding of                 Just CP37    -> let bstr = packAStr' (ptx_trn trn) in do                     insertText bstr@@ -168,7 +168,7 @@                     insertText bstr                     modifyIORef _CurrentColumn (+ S.length bstr)                 Just CP939   -> pack939 (ptx_trn trn) >>= \bstr -> do-                    C.hPut stderr bstr+                    -- C.hPut stderr bstr                     insertText bstr                     modifyIORef _CurrentColumn (+ S.length bstr)                 Just CP950   -> let bstr = packBuf (ptx_trn trn) in do