From e914e77f87a51c25141ab297d11344118a6f6e20 Mon Sep 17 00:00:00 2001
From: Chris Wells <chris@mathematicaster.org>
Date: Tue, 11 Feb 2025 14:47:40 -0600
Subject: Working on aliases

---
 src/WWW/Base.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src/WWW')

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"
-- 
cgit v1.2.3