scaffolding ready for s9pks

src/Handler/Status.hs

@@ -5,6 +5,7 @@ import           Startlude
 import           Constants
 import           Foundation
 import           Handler.Types.Status
+import           Lib.Types.Semver
 
-getVersionR :: Handler AppVersionRes
-getVersionR = pure . AppVersionRes $ registryVersion
+getVersionR :: AppVersion -> Handler AppVersionRes
+getVersionR = pure . AppVersionRes -- $ registryVersion

src/Handler/Types/Apps.hs

@@ -7,6 +7,7 @@ import           Data.Aeson
 import           Data.Time.ISO8601
 import           Yesod.Core.Content
 
+import           Lib.Types.Semver
 import           Lib.Types.ServerApp
 
 newtype AvailableAppsRes = AvailableAppsRes

src/Handler/Types/Status.hs

@@ -8,6 +8,7 @@ import Data.Text
 import Yesod.Core.Content
 
 import Lib.Types.ServerApp
+import Lib.Types.Semver
 
 data ServerRes = ServerRes
     { serverStatus  :: AppStatus