1 files changed, 2 insertions, 5 deletions
diff --git a/source/Render/Html.hs b/source/Render/Html.hs
index 01ac638..71f1668 100644
--- a/source/Render/Html.hs
+++ b/source/Render/Html.hs
@@ -5,7 +5,6 @@
 
 module Render.Html
     ( renderDocument
-    , supportScriptAssetOutputPath
     , supportScriptAssetContents
     ) where
 
@@ -15,6 +14,7 @@ import Base
 import Lucid hiding (Term, for_)
 import Lucid.Base (makeAttributes)
 import Lucid.Math
+import Render.Html.Output (supportScriptAssetOutputPath)
 
 import Control.Monad (unless, when)
 import Data.Char (digitToInt, isAlphaNum, isDigit, isSpace, toUpper)
@@ -525,12 +525,9 @@ pageStyles = Text.unlines
     , "}"
     ]
 
-supportScriptAssetOutputPath :: FilePath
-supportScriptAssetOutputPath = "_static" </> "naproche-html.js"
-
 supportScriptAssetRelativePath :: FilePath -> FilePath
 supportScriptAssetRelativePath inputPath =
-    foldr1 (</>) (replicate depth ".." <> ["_static", "naproche-html.js"])
+    foldr1 (</>) (replicate depth ".." <> [supportScriptAssetOutputPath])
     where
         outputDir = takeDirectory (replaceExtension inputPath "html")
         depth = length (List.filter (`notElem` [".", ""]) (splitDirectories outputDir))