From a6169259053fe4a03fcd2177bbaf55edc84795e2 Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Fri, 2 Jul 2021 17:44:47 -0400
Subject: [PATCH] make version arch optional

---
 src/Database/Queries.hs | 2 +-
 src/Handler/Apps.hs     | 2 --
 src/Model.hs            | 2 +-
 3 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/Database/Queries.hs b/src/Database/Queries.hs
index 555af78..5fbf2e2 100644
--- a/src/Database/Queries.hs
+++ b/src/Database/Queries.hs
@@ -32,7 +32,7 @@ createAppVersion sId VersionInfo {..} arch = do
                             versionInfoReleaseNotes
                             versionInfoOsRequired
                             versionInfoOsRecommended
-                            arch
+                            (Just arch)
 
 createMetric :: MonadIO m => Key SApp -> Key SVersion -> ReaderT SqlBackend m ()
 createMetric appId versionId = do
diff --git a/src/Handler/Apps.hs b/src/Handler/Apps.hs
index 10da8d6..eab5950 100644
--- a/src/Handler/Apps.hs
+++ b/src/Handler/Apps.hs
@@ -17,9 +17,7 @@ import qualified Data.Attoparsec.Text          as Atto
 import qualified Data.ByteString.Lazy          as BS
 import           Data.Conduit
 import qualified Data.Conduit.Binary           as CB
-import qualified Data.HashMap.Strict           as HM
 import qualified Data.Text                     as T
-import qualified Data.Yaml                     as Yaml
 import           Database.Persist
 import qualified GHC.Show                       ( Show(..) )
 import           Network.HTTP.Types
diff --git a/src/Model.hs b/src/Model.hs
index 15d9d39..d275080 100644
--- a/src/Model.hs
+++ b/src/Model.hs
@@ -37,7 +37,7 @@ SVersion sql=version
     releaseNotes Text
     osVersionRequired VersionRange default='*'
     osVersionRecommended VersionRange default='*'
-    arch Text
+    arch Text Maybe
     UniqueBin appId number
     deriving Eq
     deriving Show