X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FWiki%2FParser.hs;fp=Rakka%2FWiki%2FParser.hs;h=e7ca8ebbc456e063587cfed6767e0ee1bff92adb;hp=3b3d7c401260b1efe09ec2901f9c6d2885bb2d58;hb=45bce2c29948649f74ada71f2fa851bdb812e96c;hpb=42f51754dea02201aececaacbf194d714cd58aaf

diff --git a/Rakka/Wiki/Parser.hs b/Rakka/Wiki/Parser.hs
index 3b3d7c4..e7ca8eb 100644
--- a/Rakka/Wiki/Parser.hs
+++ b/Rakka/Wiki/Parser.hs
@@ -211,15 +211,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'