fix windows compilation error
commit7f2f7805c528ced9568b496b1d95952a73de6279
authorAgentM <agentm@themactionfaction.com>
dateFri 12 Jan 2018, 22:00 (9 years ago)
parent9eb7f67
src/lib/ProjectM36/Persist.hs+2−1
@@ -79,12 +79,13 @@ syncHandle FsyncDiskSync handle =
7979 --fdatasync doesn't exist on macOS
8080 fd <- handleToFd handle
8181 fileSynchroniseDataOnly fd
82+ closeFd fd
8283#else
8384 do
8485 fd <- handleToFd handle
8586 fileSynchronise fd
86−#endif
8787 closeFd fd
88+#endif
8889
8990syncHandle NoDiskSync _ = pure ()
9091