Add a package.json, load generator info from it instead of from settings.yml

src/Foundation.hs

@@ -20,10 +20,7 @@ import Yesod.Default.Util   (addStaticContentExternal)
 import Yesod.Core.Types     (Logger)
 import qualified Yesod.Core.Unsafe as Unsafe
 
-import Development.GitRev (gitBranch)
-
-appVersion :: Text
-appVersion = $(gitBranch)
+import Package
 
 -- | The foundation datatype for your application. This can be a good place to
 -- keep settings and values requiring initialization before your application

src/Package.hs

@@ -0,0 +1,21 @@
+{-# LANGUAGE TemplateHaskell #-}
+
+module Package ( Package(..)
+               , Repository(..)
+               , package
+               ) where
+
+import Data.Aeson ( eitherDecodeStrict )
+import Data.Either ( either )
+import Language.Haskell.TH.Syntax ( addDependentFile, lift, runIO )
+import Package.Types
+
+import qualified Data.ByteString as B
+
+package :: Package
+package = $(do
+    let f = "package.json"
+    addDependentFile f
+    json <- runIO $ B.readFile f
+    let result = eitherDecodeStrict json :: Either String Package
+    either fail lift result)

src/Package/Types.hs

@@ -0,0 +1,27 @@
+{-# LANGUAGE DeriveLift #-}
+{-# LANGUAGE StandaloneDeriving #-}
+{-# LANGUAGE TemplateHaskell #-}
+
+module Package.Types where
+
+import Data.Aeson
+import Data.Aeson.Types ( fieldLabelModifier )
+import Data.Aeson.TH ( deriveJSON )
+
+import Data.Char ( toLower )
+import Language.Haskell.TH.Syntax ( Lift )
+import Util ( mapFirst )
+
+data Package = Package
+    { packageName :: !String
+    , packageVersion :: !String
+    , packageRepository :: !Repository
+    } deriving (Show, Lift)
+
+data Repository = Repository
+    { repositoryType :: !String
+    , repositoryUrl :: !String
+    } deriving (Show, Lift)
+
+$(deriveJSON defaultOptions { fieldLabelModifier = mapFirst toLower . drop 7 } ''Package)
+$(deriveJSON defaultOptions { fieldLabelModifier = mapFirst toLower . drop 10 } ''Repository)

src/Settings.hs

@@ -64,10 +64,6 @@ data AppSettings = AppSettings
     -- ^ Google Analytics code
     , appTitle                  :: Maybe Text
     -- ^ Site-wide title.
-    , appName                   :: Text
-    -- ^ Name of application used to generate site.
-    , appRepository             :: Text
-    -- ^ URL of repository for application source.
 
     , appAuthDummyLogin         :: Bool
     -- ^ Indicate if auth dummy login should be enabled.
@@ -98,8 +94,6 @@ instance FromJSON AppSettings where
 
         appAnalytics              <- o .:? "analytics"
         appTitle                  <- o .:? "title"
-        appName                   <- o .: "app-name"
-        appRepository             <- o .: "repository"
 
         -- This code enables MySQL's strict mode, without which MySQL will truncate data.
         -- See https://github.com/yesodweb/persistent/wiki/Database-Configuration#strict-mode for details

src/Util.hs

@@ -0,0 +1,5 @@
+module Util where
+
+mapFirst :: (a -> a) -> [a] -> [a]
+mapFirst f (x:xs) = f x : xs
+mapFirst _ [] = []