Example function to pattern-match against a record type

Author: igrep

assets/18.md

@@ -845,11 +845,11 @@ data Entry =
 f (Entry cat pri) = {- ...ここで category が入った cat を、と price が入った pri を使う式 ... -}
 ```
 
-hoge
+上記の例は、値コンストラクター`Entry`の第一引数にあたる`category`を`cat`という変数に、第二引数にあたる`price`を`pri`という変数に、それぞれパターンマッチで代入する例です。このように書くことで関数の本体、`{- ...ここで category が入った cat を、と price が入った pri を使う式 ... -}`の箇所で`cat`と`pri`を使えるようになります。
 
-値コンストラクター`Entry`の第一引数にあたる`category`、第二引数にあたる`price`、それぞれにパターンマッチできる！
+実際に`Entry`型の値を受け取って、その`category`と`price`にパターンマッチする関数を書いてみましょう:
 
-```
+```haskell
 ghci> :{
 ghci| formatEntry :: Entry -> String
 ghci| formatEntry (Entry cat pri) = cat ++ ": " ++ show pri