diff options
Diffstat (limited to 'com/influencedbybooks/apex.hs')
-rw-r--r-- | com/influencedbybooks/apex.hs | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/com/influencedbybooks/apex.hs b/com/influencedbybooks/apex.hs index fd4766b..32e6403 100644 --- a/com/influencedbybooks/apex.hs +++ b/com/influencedbybooks/apex.hs @@ -8,25 +8,24 @@ {-# LANGUAGE TypeOperators #-} -- | Server -module Com.InfluencedByBooks.Apex where +module Com.Influencedbybooks.Apex where -import Com.Simatime Alpha -import Com.InfluencedByBooks.Core -import qualified Com.InfluencedByBooks.Keep as Keep -import qualified Com.InfluencedByBooks.Look as Look +import Com.Simatime.Alpha +import Com.Influencedbybooks.Core +import qualified Com.Influencedbybooks.Keep as Keep +import qualified Com.Influencedbybooks.Look as Look import qualified Clay import qualified Data.Text.Lazy as Lazy import qualified Data.Text.Lazy.Encoding as Lazy import Data.Maybe (fromMaybe) import Data.Acid (AcidState) import qualified Data.Acid.Abstract as Acid -import GitHash (giHash, tGitInfoCwd) import qualified Lucid as L import Lucid.Base import Miso import Network.HTTP.Media ((//), (/:)) import Network.HTTP.Types -import Network.RemoteData +import Com.Simatime.Network import Network.Wai import Network.Wai.Application.Static import Network.Wai.Handler.Warp @@ -60,10 +59,8 @@ instance L.ToHtml a => L.ToHtml (HtmlPage a) where cssRef "/css/main.css" L.body_ $ do page - L.p_ gitCommit where page = L.toHtml x - gitCommit = L.toHtml $ giHash $$tGitInfoCwd jsRef href = L.with (L.script_ mempty) [ makeAttribute "src" href , makeAttribute "type" "text/javascript" |