idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-11-28 02:23:44 +03:00
Code Issues Projects Releases Wiki Activity

Only open in binary mode on windows

Browse Source
This commit is contained in:
Edwin Brady 2020-06-11 14:53:54 +01:00
parent 4b1667fdcf
commit 07ae16123c
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
libs/base/System/File.idr
View File

@ -2,6 +2,7 @@ module System.File
import Data.List
import Data.Strings
import System.Info
public export
data Mode = Read | WriteTruncate | Append | ReadWrite | ReadWriteTruncate | ReadAppend
@ -68,12 +69,12 @@ prim__stderr : FilePtr
prim__chmod : String -> Int -> PrimIO Int
modeStr : Mode -> String
modeStr Read = "rb"
modeStr WriteTruncate = "wb"
modeStr Append = "ab"
modeStr ReadWrite = "rb+"
modeStr ReadWriteTruncate = "wb+"
modeStr ReadAppend = "ab+"
modeStr Read = if isWindows then "rb" else "r"
modeStr WriteTruncate = if isWindows then "wb" else "w"
modeStr Append = if isWindows then "ab" else "a"
modeStr ReadWrite = if isWindows then "rb+" else "r+"
modeStr ReadWriteTruncate = if isWindows then "wb+" else "w+"
modeStr ReadAppend = if isWindows then "ab+" else "a+"
public export
data FileError = GenericFileError Int -- errno