Fix by reviews

Author: Mizunashi Mana

preprocessed-site/posts/2020/io-monad-and-sideeffect.md

@@ -146,7 +146,7 @@ addAction x y = PureAction (\_ -> x + y)
 ()
 ```
 
-もし、さっきの `putStrLn "str"` がちゃんと計算されていたなら、今回は `something happened!` というエラーが見れるはずだ。ところが、全く何の問題もなく式の実行は終わり、`()` が出力されてしまった。Haskell は遅延評価により、最終結果に本当に必要な部分しか計算してくれないので、`putStrLn "str"` の部分は計算されず無視されてしまっていただけのようだ。では、ちゃんと修正してみよう。修正は、`seq` という魔法の関数を使うことで可能だ。`seq :: a -> b -> b` は一番最初に渡された引数を計算し、その後2番目の引数に与えられたものを返す関数だ。この関数を使うと、次のように修正が可能だ:
+もし、さっきの `putStrLn "str"` がちゃんと計算されていたなら、今回は `something happened!` というエラーが見れるはずだ。ところが、全く何の問題もなく式の実行は終わり、`()` が出力されてしまった。Haskell は遅延評価により、最終結果に本当に必要な部分しか計算してくれないので、`putStrLn "str"` の部分は計算されず無視されてしまっていただけのようだ。では、ちゃんと修正してみよう。修正は、`seq` という魔法の関数を使うことで可能だ。`seq :: a -> b -> b` は一番最初に渡された引数を (必要かどうかに関わらず、強制的に) 計算し、その後2番目の引数を返す関数だ。この関数を使うと、次のように修正が可能だ:
 
 ```haskell
 >>> putStrLn "str" `seq` ()