Use time-w3c instead of Rakka.W3CDateTime

[Rakka.git] / Rakka / Wiki / Parser.hs

diff --git a/Rakka/Wiki/Parser.hs b/Rakka/Wiki/Parser.hs
index 1744570b1bd5a27d805523ff9252cdc8eaece0fc..aae3a78eb6b1e1fe9a6c60f277f5b2d4c40939c2 100644 (file)
--- a/Rakka/Wiki/Parser.hs
+++ b/Rakka/Wiki/Parser.hs
@@ -204,15 +204,11 @@ paragraph cmdTypeOf = liftM Paragraph paragraph'
                                      ys <- (paragraph' <|> return [])
                                      return (Text "\n" : ys)
                                   -- \n があり、その次に \n または
-                                  -- blockSymbols があれば、fail して
-                                  -- 最初の newline を讀んだ所まで卷き
-                                  -- 戻す。
-
-                                  -- FIXME: 本當にそのやうな動作になつ
-                                  -- てゐるか？偶然動いてゐるだけではな
-                                  -- いか？確かにこの實裝でユニットテス
-                                  -- トは通るのだが、私の理解を越えてし
-                                  -- まったやうだ。
+                                  -- blockSymbols があれば、fail して最
+                                  -- 初の newline を讀んだ所まで卷き戻
+                                  -- す。oneOf が一文字消費しているので、
+                                  -- <|> は右辺を適用せずに try まで戻
+                                  -- る。
                                 )
                             <|>
                             paragraph'