-4
typingConstraint capGamma i (App (Abs x tau t)t2) =
((Abs x tau t)
,t2(TypeVar ("T"++show (i+1)))
,(TypeArrow(TypeVar("T"++show i)),(TypeVar("T"++ show (i+1)))))
where ((Abs x tau t),t2(TypeArrow tau1 tau2)) = typingConstraint capGamma i x
錯誤信息請告訴我錯在這哈斯克爾COE語法
「的模式T2解析錯誤」
您可以設置您的問題的格式,以便代碼顯示其原始空白?一種方法是將每行縮進四個空格。 – pigworker