[commit: packages/Cabal] ghc-head: Add a TODO. (489be27)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/Cabal

On branch  : ghc-head
Link       : http://git.haskell.org/?p=packages/Cabal.git;a=commit;h=489be27efc8bac889cac126dafb5c4049d1ca277

>---------------------------------------------------------------

commit 489be27efc8bac889cac126dafb5c4049d1ca277
Author: Mikhail Glushenkov <the.dead.shall.rise at gmail.com>
Date:   Tue Apr 30 13:49:59 2013 +0200

    Add a TODO.


>---------------------------------------------------------------

489be27efc8bac889cac126dafb5c4049d1ca277
 cabal-install/Distribution/Compat/Time.hs |    2 ++
 1 file changed, 2 insertions(+)

diff --git a/cabal-install/Distribution/Compat/Time.hs b/cabal-install/Distribution/Compat/Time.hs
index be217dc..6e6171a 100644
--- a/cabal-install/Distribution/Compat/Time.hs
+++ b/cabal-install/Distribution/Compat/Time.hs
@@ -67,6 +67,8 @@ getModTime path = withCString path $ \file ->
       else do
         dword <- peekByteOff info
                  index_WIN32_FILE_ATTRIBUTE_DATA_ftLastWriteTime_dwLowDateTime
+        -- TODO: Convert Windows seconds to POSIX seconds. ATM we don't care
+        -- since we only use the value for comparisons.
         return $! fromIntegral (dword :: Word32)
 #else