packages feed

OpenAFP-Utils 1.3.1.1 → 1.3.1.2

raw patch · 2 files changed

+2/−5 lines, 2 files

Files

OpenAFP-Utils.cabal view
@@ -1,5 +1,5 @@ Name:               OpenAFP-Utils-Version:            1.3.1.1+Version:            1.3.1.2 License:            PublicDomain License-file:       LICENSE Author:             Audrey Tang
afp2line2pdf.hs view
@@ -114,9 +114,6 @@         modifyIORef __MAX_WIDTH__ (max xSize)         modifyIORef __MAX_HEIGHT__ (max ySize) -    modifyIORef __MAX_WIDTH__ (+30)-    modifyIORef __MAX_HEIGHT__ (+30)-     forM_ (tail $ splitRecords _BPG cs) $ \pageChunks -> do         -- Start page         markObj $ \obj -> do@@ -286,7 +283,7 @@                     pr$ show curSize ++ " TL\n"                     col <- readIORef _CurrentColumn                     ln  <- readIORef _CurrentLine-                    pr$ "1 0 0 1 " ++ show (col + 25) ++ " " ++ show (height - ln - 25) ++ " Tm("+                    pr$ "1 0 0 1 " ++ show (col - 1) ++ " " ++ show (height - ln - 1) ++ " Tm("                     let escape ch = C.intercalate (C.pack ['\\', ch]) . C.split ch                         escapeTxt = escape '(' . escape ')' . escape '\\'                     origBStr <- getBStr