fix build on windows

diff --git a/Utility/RawFilePath.hs b/Utility/RawFilePath.hs
index 568595dac4a0ab64e84855791946a42e236a6e32..362ae70cd128d3630d42143462259d64f6b59a38 100644 (file)
--- a/Utility/RawFilePath.hs
+++ b/Utility/RawFilePath.hs
@@ -85,5 +85,5 @@ createDirectory :: RawFilePath -> IO ()
 createDirectory = D.createDirectory . fromRawFilePath
 
 setFileMode :: RawFilePath -> FileMode -> IO () 
-setFileMode = F.setFileMode
+setFileMode = F.setFileMode . fromRawFilePath
 #endif