fix compilation of simplexmq as dependency

Author: epoberezkin

src/Simplex/Messaging/Server/Web/Embedded.hs

@@ -4,15 +4,33 @@ module Simplex.Messaging.Server.Web.Embedded where
 
 import Data.ByteString (ByteString)
 import Data.FileEmbed (embedDir, embedFile)
+import qualified Language.Haskell.TH.Syntax as TH
+import System.FilePath (takeDirectory, (</>))
 
 indexHtml :: ByteString
-indexHtml = $(embedFile "src/Simplex/Messaging/Server/Web/index.html")
+indexHtml =
+  $(embedFile =<< do
+    loc <- TH.location
+    pure $ takeDirectory (TH.loc_filename loc) </> "index.html"
+  )
 
 linkHtml :: ByteString
-linkHtml = $(embedFile "src/Simplex/Messaging/Server/Web/link.html")
+linkHtml =
+  $(embedFile =<< do
+    loc <- TH.location
+    pure $ takeDirectory (TH.loc_filename loc) </> "link.html"
+  )
 
 mediaContent :: [(FilePath, ByteString)]
-mediaContent = $(embedDir "src/Simplex/Messaging/Server/Web/media/")
+mediaContent =
+  $(embedDir =<< do
+    loc <- TH.location
+    pure $ takeDirectory (TH.loc_filename loc) </> "media"
+  )
 
 wellKnown :: [(FilePath, ByteString)]
-wellKnown = $(embedDir "src/Simplex/Messaging/Server/Web/.well-known/")
+wellKnown =
+  $(embedDir =<< do
+    loc <- TH.location
+    pure $ takeDirectory (TH.loc_filename loc) </> ".well-known"
+  )