回答編集履歴
1
余分なコメントをコードから削除
test
CHANGED
|
@@ -7,8 +7,6 @@
|
|
|
7
7
|
|
|
8
8
|
|
|
9
9
|
```hs
|
|
10
|
-
|
|
11
|
-
-- 受け取った引数が MySQLText の場合だけ、取り出した文字列をputStrLnする関数
|
|
12
10
|
|
|
13
11
|
let f :: MySQLValue -> IO ()
|
|
14
12
|
|
|
@@ -36,8 +34,6 @@
|
|
|
36
34
|
|
|
37
35
|
do
|
|
38
36
|
|
|
39
|
-
-- 受け取った引数が MySQLText の場合だけ、取り出した文字列をputStrLnする関数
|
|
40
|
-
|
|
41
37
|
let f :: MySQLValue -> IO ()
|
|
42
38
|
|
|
43
39
|
|