README.md

@@ -1,19 +1,5 @@
 # Soostone
 
-## Start
-
-First create tables:
-
-```sh
-soostone create-tables
-```
-
-Then start backend:
-
-```sh
-soostone run
-```
-
 ## Request examples
 
 ### Insert

app/Main.hs

@@ -21,7 +21,6 @@ versioner :: Parser (a -> a)
 versioner = infoOption (showVersion version) (long "version" <> help "Show version" <> hidden)
 
 data Command = Run ServerConfig
-             | Create ServerConfig
 
 data Config = Config {
     serverCommand  :: Command
@@ -61,14 +60,6 @@ parseCommands = subparser $
       (  progDesc "Run the REST API webserver"
       )
     )
-  <>
-  command
-    "create-tables"
-    (info
-      (Create <$> parseServerConf <**> helper)
-      (  progDesc "Create the database"
-      )
-    )
 
 
 main :: IO ()
@@ -79,14 +70,12 @@ main = do
   case serverCommand of
     Run ServerConfig{..} -> do
       when (sqliteDB == ":memory:") $ fail "In-memory DB is not supported!"
+      con <- open sqliteDB
+      createTables con
       let appState = AppState { sqliteFile = sqliteDB }
       void $ register ghcMetrics
       void $ register procMetrics
       run serverPort (middleWare $ app appState)
-    Create ServerConfig{..} -> do
-      when (sqliteDB == ":memory:") $ fail "In-memory DB is not supported!"
-      con <- open sqliteDB
-      createTables con
  where
   createTables :: Connection -> IO ()
   createTables con = do