真实世界Haskell，第5章，SimpleJSON编译错误
根据另一个问题，真实世界Haskell的部分现在已经过时了。 我只是在第5章，但是我在编译一个可执行二进制文件的简单示例时遇到问题。
给出两个模块：
module SimpleJSON
(
JValue(..)
, getString
, getInt
, getDouble
, getBool
, getObject
, getArray
, isNull
) where
data JValue = JString String
| JNumber Double
| JBool Bool
| JNull
| JObject [ (String, JValue) ]
| JArray [ JValue ]
deriving (Eq, Ord, Show)
getString :: JValue -> Maybe String
getString (JString s) = Just s
getString _ = Nothing
getInt (JNumber n) = Just (truncate n)
getInt _ = Nothing
getDouble (JNumber n) = Just n
getDouble _ = Nothing
getBool (JBool b) = Just b
getBool _ = Nothing
getObject (JObject o) = Just o
getObject _ = Nothing
getArray (JArray a) = Just a
getArray _ = Nothing
isNull v = v == JNull
和
module Main () where
import SimpleJSON
main = print (JObject [ ("foo", JNumber 1), ("bar", JBool False ) ])
附带说明首先编译SimpleJSON对象文件：
$ ghc -c SimpleJSON.hs
随后链接可执行文件：
$ ghc -o simple Main.hs SimpleJSON.o
这会导致错误，指出'main'未被导出：
[2 of 2] Compiling Main ( Main.hs, Main.o )
Main.hs:1:1:
The main function `main' is not exported by module `Main'
但是，如果将main添加到导出列表或省略空出口列表，则在链接阶段会看到很多多个定义错误：
Linking simple ...
SimpleJSON.o:(.data+0x0): multiple definition of `__stginit_SimpleJSON'
./SimpleJSON.o:(.data+0x0): first defined here
SimpleJSON.o:(.data+0x0): multiple definition of `SimpleJSON_getArray_closure'
./SimpleJSON.o:(.data+0x0): first defined here
....
(.text+0x2d40): multiple definition of `SimpleJSON_JObject_static_info'
./SimpleJSON.o:(.text+0x2d40): first defined here
SimpleJSON.o: In function `SimpleJSON_JArray_info':
(.text+0x2d80): multiple definition of `SimpleJSON_JArray_static_info'
./SimpleJSON.o:(.text+0x2d80): first defined here
collect2: error: ld returned 1 exit status
假设这个错误是由文本提供的过时代码或过时的ghc接口造成的，那么编译这个SimpleJSON例子的正确方法是什么？
这应该工作：
ghc -o simple Main.hs SimpleJSON.hs
或者甚至像这样的应该工作：
ghc -c SimpleJSON.hs
ghc -c Main.hs
ghc -o simple Main.o SimpleJSON.o
或者@chi指出，你可以使用这个：
ghc --make SimpleJSON.hs Main.hs
上一篇: Real World Haskell, Chapter 5, SimpleJSON compile error