|
definition:
|
packageSpecToJSON :: Package -> JValue
packageSpecToJSON pkg = JObject $
[ ("name", JString $ name pkg)
, ("version", JString $ showVersion $ version pkg) ] ++
(case author pkg of [] -> [("author", JString "")]
[s] -> [("author", JString s)]
xs -> stringListToJSON "author" xs) ++
(case maintainer pkg of [] -> []
[s] -> [ ("maintainer", JString s) ]
xs -> stringListToJSON "maintainer" xs) ++
[ ("synopsis", JString $ synopsis pkg) ] ++
maybeStringToJSON "description" (description pkg) ++
stringListToJSON "category" (category pkg) ++
maybeStringToJSON "license" (license pkg) ++
maybeStringToJSON "licenseFile" (licenseFile pkg) ++
maybeStringToJSON "copyright" (copyright pkg) ++
maybeStringToJSON "homepage" (homepage pkg) ++
maybeStringToJSON "bugReports" (bugReports pkg) ++
maybeStringToJSON "repository" (repository pkg) ++
[ ("dependencies", dependenciesToJSON $ dependencies pkg) ] ++
compilerCompatibilityToJSON (compilerCompatibility pkg) ++
stringListToJSON "exportedModules" (exportedModules pkg) ++
stringListToJSON "sourceDirs" (sourceDirs pkg) ++
maybeStringToJSON "configModule" (configModule pkg) ++
(case executableSpec pkg of
[] -> []
[e] -> [("executable", execToJSON e)]
es -> [("executables", JArray $ map execToJSON es)]) ++
maybeTestToJSON (testSuite pkg) ++
maybeDocuToJSON (documentation pkg) ++
maybeSourceToJSON (source pkg)
where
dependenciesToJSON deps = JObject $ map dependencyToJSON deps
where dependencyToJSON (Dependency p vc) =
(p, JString $ showVersionConstraints vc)
compilerCompatibilityToJSON deps =
if null deps
then []
else [("compilerCompatibility", JObject $ map compatToJSON deps)]
where compatToJSON (CompilerCompatibility p vc) =
(p, JString $ showVersionConstraints vc)
maybeSourceToJSON =
maybe [] (\src -> [("source", JObject (pkgSourceToJSON src))])
where
pkgSourceToJSON (FileSource _) =
error "Internal error: FileSource in package specification"
pkgSourceToJSON (Http url) = [("http", JString url)]
pkgSourceToJSON (Git url mbrev) =
[("git", JString url)] ++ maybe [] revToJSON mbrev
where
revToJSON (Ref t) = [("ref", JString t)]
revToJSON (Tag t) = [("tag", JString t)]
revToJSON VersionAsTag = [("tag", JString "$version")]
execToJSON (PackageExecutable ename emain eopts) =
JObject $ [ ("name", JString ename), ("main", JString emain)] ++ exOptsToJSON
where
exOptsToJSON =
if null eopts then []
else [("options",
JObject $ map (\ (c,o) -> (c, JString o)) eopts)]
maybeTestToJSON = maybe [] (\tests -> [("testsuite", testsToJSON tests)])
where
testsToJSON tests = if length tests == 1
then testToJSON (head tests)
else JArray $ map testToJSON tests
testToJSON (PackageTest dir mods opts script) = JObject $
[ ("src-dir", JString dir) ] ++
(if null opts then [] else [("options", JString opts)]) ++
stringListToJSON "modules" mods ++
(if null script then [] else [("script", JString script)])
maybeDocuToJSON =
maybe [] (\ (PackageDocumentation docdir docmain doccmd) ->
[("documentation",
JObject $ [ ("src-dir", JString docdir)
, ("main", JString docmain)] ++
if null doccmd
then []
else [("command", JString doccmd)] )])
stringListToJSON fname exps =
if null exps then []
else [(fname, JArray $ map JString exps)]
maybeStringToJSON fname = maybe [] (\s -> [(fname, JString s)])
|