回答編集履歴
1
余分なコメントをコードから削除
answer
CHANGED
|
@@ -3,7 +3,6 @@
|
|
|
3
3
|
今回のように `mapM_ (mapM f) =<< Streams.toList is` のみで有効な `f` を定義するには、下記のように `let ... in` を使うしかありません:
|
|
4
4
|
|
|
5
5
|
```hs
|
|
6
|
-
-- 受け取った引数が MySQLText の場合だけ、取り出した文字列をputStrLnする関数
|
|
7
6
|
let f :: MySQLValue -> IO ()
|
|
8
7
|
|
|
9
8
|
f (MySQLText text) = do
|
|
@@ -17,7 +16,6 @@
|
|
|
17
16
|
|
|
18
17
|
```hs
|
|
19
18
|
do
|
|
20
|
-
-- 受け取った引数が MySQLText の場合だけ、取り出した文字列をputStrLnする関数
|
|
21
19
|
let f :: MySQLValue -> IO ()
|
|
22
20
|
|
|
23
21
|
f (MySQLText text) = do
|