add buildHaskellApp nix function

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"