Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-26 02:11:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

make version arch optional

Browse Source
This commit is contained in:
Lucy Cifferello
2021-07-02 17:44:47 -04:00
committed by Keagan McClelland
parent d2f8db82cf
commit 82dcfbd5f5
3 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Database/Queries.hs
View File

@@ -32,7 +32,7 @@ createAppVersion sId VersionInfo {..} arch = do
versionInfoReleaseNotes versionInfoReleaseNotes
versionInfoOsRequired versionInfoOsRequired
versionInfoOsRecommended versionInfoOsRecommended
arch (Just arch)
createMetric :: MonadIO m => Key SApp -> Key SVersion -> ReaderT SqlBackend m () createMetric :: MonadIO m => Key SApp -> Key SVersion -> ReaderT SqlBackend m ()
createMetric appId versionId = do createMetric appId versionId = do

2
src/Handler/Apps.hs
View File

@@ -17,9 +17,7 @@ import qualified Data.Attoparsec.Text as Atto
import qualified Data.ByteString.Lazy as BS import qualified Data.ByteString.Lazy as BS
import Data.Conduit import Data.Conduit
import qualified Data.Conduit.Binary as CB import qualified Data.Conduit.Binary as CB
import qualified Data.HashMap.Strict as HM
import qualified Data.Text as T import qualified Data.Text as T
import qualified Data.Yaml as Yaml
import Database.Persist import Database.Persist
import qualified GHC.Show ( Show(..) ) import qualified GHC.Show ( Show(..) )
import Network.HTTP.Types import Network.HTTP.Types

2
src/Model.hs
View File

@@ -37,7 +37,7 @@ SVersion sql=version
releaseNotes Text releaseNotes Text
osVersionRequired VersionRange default='*' osVersionRequired VersionRange default='*'
osVersionRecommended VersionRange default='*' osVersionRecommended VersionRange default='*'
arch Text arch Text Maybe
UniqueBin appId number UniqueBin appId number
deriving Eq deriving Eq
deriving Show deriving Show