merge branch origin/master

[Rakka.git] / Rakka / Storage / Impl.hs

diff --git a/Rakka/Storage/Impl.hs b/Rakka/Storage/Impl.hs
index 8b3cbebcb562fa4ebd7cc6de4967794ce8fb07c4..55bda719f5f30190bfff48d2711ef4b63afd0593 100644 (file)
--- a/Rakka/Storage/Impl.hs
+++ b/Rakka/Storage/Impl.hs
@@ -25,6 +25,7 @@ import qualified Data.Set as S
 import Data.Text (Text)
 import qualified Data.Text as T
 import           Data.Time
+import qualified Data.Time.W3C as W3C
 import           Network.HTTP.Lucu
 import           Network.HTTP.Lucu.Utils
 import           Network.URI
@@ -35,7 +36,6 @@ import           Rakka.Page
 import           Rakka.Storage.DefaultPage
 import           Rakka.Storage.Repos
 import           Rakka.Storage.Types
-import           Rakka.W3CDateTime
 import           Subversion.Types
 import           Subversion.FileSystem
 import           Subversion.Repository
@@ -221,7 +221,7 @@ searchIndex index cond
                          read ∘ T.unpack ∘ fromJust
                          <$> getDocAttr index docId "rakka:revision"
                lastMod ← unsafeInterleaveIO $
-                         zonedTimeToUTC ∘ fromJust ∘ parseW3CDateTime ∘ T.unpack ∘ fromJust
+                         zonedTimeToUTC ∘ fromJust ∘ W3C.parse ∘ T.unpack ∘ fromJust
                          <$> getDocAttr index docId "@mdate"
                summary ← unsafeInterleaveIO $
                          getDocAttr index docId "rakka:summary"