make version arch optional

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

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

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