[mew-win32 4590] Re: Haskell 版 cmew の差分更新

[Kazu Yamamoto ( 山本和彦 )]

山本です。

以前、この問題を解決しようとしたんですが、Windows XP が立ち上がらなくなっ
ていて止めてしまいました。Windows 7 を買う予算は積んであるのですが、イ
マイチ買う気になりません。。。

> ちょっと方向性を変えて、getChangeTimeがNothingを返すのが問題
> かなと思って、MewではなくEasyFile側を以下のように変えてみました。
> これでcmewの動きとしては問題なさそうなのですが、どうでしょうか?

EasyFile の getChangeTime が Windows の場合に Nothing を返すのは仕様な
ので、細田さんの修正でいいと思います。少し奇麗にしてみました。このパッ
チでうまくいくでしょうか？

--かず

diff --git a/bin/hs/Index.hs b/bin/hs/Index.hs
index 4768e56..b85ca40 100644
--- a/bin/hs/Index.hs
+++ b/bin/hs/Index.hs
@@ -193,7 +193,7 @@ handleFile file ctl
             tm <- getChangeTime file
             case tm of
                 Just x  -> return . (dbmt <) . utctimeToInteger $ x
-                Nothing -> return False
+                Nothing -> (dbmt <) . utctimeToInteger <$> getModificationTime file
            else return False
     deleteMsgIfMoved msg = case dbModTime ctl of
       Nothing   -> return True