Fix build on Windows (haskell/ghcide#423)

pepeiborra · Feb 12, 2020 · 31b9cfd · 31b9cfd
1 parent 3bc58f7
commit 31b9cfd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ghcide/src/Development/IDE/Core/FileStore.hs b/ghcide/src/Development/IDE/Core/FileStore.hs
@@ -120,8 +120,8 @@ getModificationTimeRule vfs =
     getModTime f =
 #ifdef mingw32_HOST_OS
         do time <- Dir.getModificationTime f
-           let !day = toModifiedJulianDay $ utctDay time
-               !dayTime = diffTimeToPicoseconds $ utctDayTime time
+           let !day = fromInteger $ toModifiedJulianDay $ utctDay time
+               !dayTime = fromInteger $ diffTimeToPicoseconds $ utctDayTime time
            pure (day, dayTime)
 #else
         withCString f $ \f' ->