我正在尝试使用 PureScripts 外部函数接口包装钛 API 的一部分,但我无法确定函数的类型定义应该是什么。
module Ti where
foreign import data Window :: *
foreign import window
""" function (config) {
return function () {
return Ti.UI.createWindow(config);
}
} """ :: ??? -> Window
foreign import open
""" function (window) {
return function () {
window.open();
return window;
}
} """ :: Window -> Window
main = do
w <- window ???
open w