Fix windows warnings

IntersectMBO · Mar 10, 2020 · dbceaf8 · dbceaf8
1 parent cc9f553
commit dbceaf8
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/ouroboros-consensus/src-win32/Ouroboros/Consensus/Storage/IO.hs b/ouroboros-consensus/src-win32/Ouroboros/Consensus/Storage/IO.hs
@@ -62,7 +62,7 @@ write fh data' bytes = withOpenHandle "write" fh $ \h ->
 
 seek :: FHandle -> SeekMode -> Int64 -> IO ()
 seek fh seekMode size = void <$> withOpenHandle "seek" fh $ \h ->
-  setFilePointerEx h (fromIntegral size) (fromSeekMode seekMode)
+  setFilePointerEx h size (fromSeekMode seekMode)
 
 fromSeekMode :: SeekMode -> FilePtrDirection
 fromSeekMode AbsoluteSeek = fILE_BEGIN
@@ -97,8 +97,8 @@ close :: FHandle -> IO ()
 close fh = closeHandleOS fh closeHandle
 
 getSize :: FHandle -> IO Word64
-getSize fh = withOpenHandle "getSize" fh $ \h -> do
-  fromIntegral . bhfiSize <$>  getFileInformationByHandle h
+getSize fh = withOpenHandle "getSize" fh $ \h ->
+  bhfiSize <$> getFileInformationByHandle h
 
 -- | For the following error types, our mock FS implementation (and the Posix
 -- implementation) throw the same errors: