summaryrefslogtreecommitdiff
path: root/src/WWW
diff options
context:
space:
mode:
authorChris Wells <chris@mathematicaster.org>2025-02-11 14:47:40 -0600
committerChris Wells <chris@mathematicaster.org>2025-02-11 14:47:40 -0600
commite914e77f87a51c25141ab297d11344118a6f6e20 (patch)
tree0aef8b8da0a6ad630834d77a838657b839d791f0 /src/WWW
parent0c677070edf9978cb85a0b521f7e6e0ef6d6b491 (diff)
downloadmain-e914e77f87a51c25141ab297d11344118a6f6e20.tar
main-e914e77f87a51c25141ab297d11344118a6f6e20.tar.gz
main-e914e77f87a51c25141ab297d11344118a6f6e20.tar.bz2
main-e914e77f87a51c25141ab297d11344118a6f6e20.tar.lz
main-e914e77f87a51c25141ab297d11344118a6f6e20.tar.xz
main-e914e77f87a51c25141ab297d11344118a6f6e20.tar.zst
main-e914e77f87a51c25141ab297d11344118a6f6e20.zip
Working on aliases
Diffstat (limited to 'src/WWW')
-rw-r--r--src/WWW/Base.hs8
1 files changed, 7 insertions, 1 deletions
diff --git a/src/WWW/Base.hs b/src/WWW/Base.hs
index ab4f214..0d6a9bf 100644
--- a/src/WWW/Base.hs
+++ b/src/WWW/Base.hs
@@ -1,7 +1,9 @@
+{-# LANGUAGE QuasiQuotes #-}
module WWW.Base
( baseConfig
, baseHakyll
, domain
+ , url
, wwwRoot
, myHakyllReaderOptions
, myHakyllWriterOptions
@@ -11,12 +13,16 @@ import Prolog
import Hakyll
import System.Process
import Text.Pandoc.Options
-
+import Network.URI
+import Network.URI.Static
-- | mathematicaster.org
domain :: IsString s => s
domain = "mathematicaster.org"
+url :: URI
+url = [uri|https://mathematicaster.org/|]
+
-- | /var/www
wwwRoot :: IsString s => s
wwwRoot = "/var/www"