hsx2hs 0.13.3 → 0.13.3.1

raw patch · 2 files changed

+4/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• hsx2hs.cabal +1/−1
• src/hsx2hs.hs +3/−3

@@ -1,5 +1,5 @@ Name:                   hsx2hs-Version:                0.13.3+Version:                0.13.3.1 License:                BSD3 License-File:           LICENSE Author:                 Niklas Broberg, Joel Bjornson

@@ -15,7 +15,7 @@ #if MIN_VERSION_utf8_string(1,0,0) import qualified Data.ByteString as BS (readFile, writeFile) import Data.ByteString.UTF8           (fromString, toString)-import System.IO                      (hPutStrLn, stderr, hSetEncoding, utf8, withBinaryFile, IOMode(ReadMode, WriteMode), hGetContents)+import System.IO as UTF8              (hPutStrLn, stderr, hSetEncoding, utf8, withBinaryFile, IOMode(ReadMode, WriteMode), hGetContents) #else import qualified System.IO.UTF8 as UTF8 (readFile, writeFile, hPutStrLn) import System.IO                      (stderr)@@ -28,7 +28,7 @@ writeFile path s = BS.writeFile path (fromString s) #else readFile :: FilePath -> IO String-readFile = UTF8.readfile+readFile = UTF8.readFile writeFile :: FilePath -> String -> IO () writeFile = UTF8.writeFile #endif@@ -70,7 +70,7 @@  main :: IO () main = do args <- getArgs-          handle (\(ErrorCall text) -> hPutStrLn stderr text >> exitFailure ) $+          handle (\(ErrorCall text) -> UTF8.hPutStrLn stderr text >> exitFailure ) $            case args of             [origfile, infile, outfile] -> transformFile origfile infile outfile             [infile, outfile] -> transformFile infile infile outfile