Commit 00d66f33 authored by Marc Coiffier's avatar Marc Coiffier
Browse files

Successful build (on Mon Apr 22 22:11:02 CEST 2019)

parent 454040b2
......@@ -37,7 +37,9 @@ metaDoc = [q_string|
|]
metaCmd = withDoc metaDoc $ fill False $ withMountain $ do
path <- many' (nbhspace >> dirArg)
let mod = ?mountain >>= \fl -> mapF (\m -> ModDir (m^.ascList)) (Join (fl^.flLibrary.metadata.iso (\(Metadata m) -> m) Metadata))
let mod = ?mountain >>= \fl -> mapF (\m -> ModDir (m^.ascList))
(Join (insert "library-id" (Pure (show (fl^.flID)))
$ (fl^.flLibrary.metadata.iso (\(Metadata m) -> m) Metadata)))
serveStrLn $ maybe "" showMetaDir (mod^?atMs path)
reloadDoc = [q_string|
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment