diff options
author | Svyatoslav Gryaznov <nightuser@ya.ru> | 2016-07-06 15:07:16 +0300 |
---|---|---|
committer | Svyatoslav Gryaznov <nightuser@ya.ru> | 2016-07-06 15:07:16 +0300 |
commit | e0c887c21e3956aa6865e51a981d6faa715b937b (patch) | |
tree | dd007c5404670e36f7a815164d7cd0d938502c0e /src | |
parent | 637872f6ea4a37d2a4162c95d7cb0304efc41d19 (diff) | |
download | stylish-haskell-e0c887c21e3956aa6865e51a981d6faa715b937b.tar.gz |
Do not change input newline format when writing file
Diffstat (limited to 'src')
-rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index fdaf0de..73ec12a 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -126,7 +126,7 @@ file sa conf mfp = do Just path | not (null new) && old /= new -> IO.withFile path IO.WriteMode $ \h -> do let nl = configNewline conf - let mode = IO.NewlineMode nl nl + let mode = IO.NewlineMode IO.nativeNewline nl IO.hSetNewlineMode h mode IO.hPutStr h new _ -> return () |