7f2f780 · project-m36 · git.iko.soy

git.iko.soy/project-m36

on master help sign in

fix windows compilation error

7f2f780AgentM9 years ago

src/lib/ProjectM36/Persist.hs+2−1

@@ -79,12 +79,13 @@ syncHandle FsyncDiskSync handle =

79 --fdatasync doesn't exist on macOS

80 fd <- handleToFd handle

81 fileSynchroniseDataOnly fd

82+ closeFd fd

82#else

83#else

83 do

84 do

84 fd <- handleToFd handle

85 fd <- handleToFd handle

85 fileSynchronise fd

86 fileSynchronise fd

86−#endif

87 closeFd fd

88+#endif

89syncHandle NoDiskSync _ = pure ()

90syncHandle NoDiskSync _ = pure ()