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