@@ -196,7 +196,6 @@ deployMobile platform mobileArgs = withProjectRoot "." $ \root -> do
196196 , _keytoolConfig_alias = "obelisk"
197197 , _keytoolConfig_storepass = keyStorePassword
198198 , _keytoolConfig_keypass = keyStorePassword
199− , _keytoolConfig_dname = "CN=example.com, OU=engineering, O=obelisk, L=LinuxLand, S=NY, C=US" -- TODO Read these from config?
200199 }
201200 createKeystore root $ keyToolConf
202201 liftIO $ BSL.writeFile keytoolConfPath $ encode keyToolConf
@@ -228,7 +227,6 @@ data KeytoolConfig = KeytoolConfig
228227 , _keytoolConfig_alias :: String
229228 , _keytoolConfig_storepass :: String
230229 , _keytoolConfig_keypass :: String
231− , _keytoolConfig_dname :: String
232230 } deriving (Show, Generic)
233231
234232instance FromJSON KeytoolConfig
@@ -246,9 +244,7 @@ createKeystore root config = do
246244 , "-storepass", _keytoolConfig_storepass config
247245 , "-alias", _keytoolConfig_alias config
248246 , "-keypass", _keytoolConfig_keypass config
249− , "-dname ", quote $ _keytoolConfig_dname config
250247 ]
251− quote x = "\"" <> x <> "\""
252248
253249-- | Simplified deployment configuration mechanism. At one point we may revisit this.
254250writeDeployConfig :: MonadObelisk m => FilePath -> FilePath -> String -> m ()