我遇到了奇怪的编译错误。
import Foreign
import Foreign.C.Types
import Foreign.C.String
newtype Test = Test {testList :: [CShort]} deriving (Show)
instance Storable Test where
sizeOf _ = 16
peek _ = error "peek is not implemented"
alignment _ = alignment (undefined :: CShort)
得到
TestICH.hsc:9:16: parse error on input `='
9:16
是peek _ = er{here}ror "peek is not implemented"
,在这个词的中间error
?这怎么可能?
更新 已关闭,问题出在标签上