Commit 00c12e96 authored by Henrik Tramberend's avatar Henrik Tramberend
Browse files

Fix decktape

parent a1636377
......@@ -98,8 +98,9 @@ main = do
priority 2 $ "//*-deck.pdf" %> \out -> do
let src = replaceSuffix "-deck.pdf" "-deck.html" out
putNormal $ src ++ " -> " ++ out
runHttpServer publicDir False
code <- cmd "decktape.sh reveal" ("http://localhost:8888/" ++ (makeRelative projectDir src)) out
code <- cmd "decktape.sh reveal" ("http://localhost:8888" </> (makeRelative publicDir src)) out
case code of
ExitFailure _ -> do
throw $ DecktapeException "Unknown."
......
Markdown is supported
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