皆さん、これは私が得ている奇妙な小さなエラーであり、なぜそれが私に与えられているのか理解できません.
入力「appendString」の解析エラーと表示されていますが、問題はありません...
次のように、if,then else ステートメントから呼び出します。
createShow currentIndex (Grid {delta = d, middle = (x,y), points = g}) dir counter =
if currentIndex ==0 || dir == 2
then (appendString d (x,y) g currentIndex) ++ (createShow currentIndex+1 (Grid {delta = d, middle = (x,y), points = g}) 2 (counter+1))
else if counter == (2*d+1)
then (appendString d (x,y) g currentIndex) ++ (appendX x)
else if dir == 1
then (appendString d (x,y) g currentIndex) ++ (createShow currentIndex-1 (Grid {delta = d, middle = (x,y), points = g}) 1 (counter+1))
createShow は文字列を返し、appendString も同様です
appendString は、コンストラクターでエラーを返します。
appendString d (x,y) g currentIndex =
(if currentIndex == y
then "y "
else
" " ) ++ (show currentIndex) ++(rowFunction g x d 0 (x+d) 1)++ "\n"
どこで私が間違っていたのか分かりますか?
編集:エリア全体を追加