Save a User along with Client

Makefile

@@ -12,7 +12,6 @@ create-db-user: ## Creates a DB user with the root MySQL user
 	mysql -u root --host $(HOST) -e "GRANT ALL PRIVILEGES ON `$(DBNAME)`.* TO '$(DBUSER)'@'$(HOST)';" > /dev/null 2>&1
 
 build-db: ## Builds the DB
-	@echo "Dropping and rebuilding database $(DBNAME)"
 	@mysql -u $(DBUSER) --password='$(DBPASSWD)' --host $(HOST) -e "DROP DATABASE IF EXISTS $(DBNAME);" > /dev/null 2>&1
 	@mysql -u $(DBUSER) --password='$(DBPASSWD)' --host $(HOST) -e "CREATE DATABASE $(DBNAME);" > /dev/null 2>&1
 	@mysql -u $(DBUSER) --password='$(DBPASSWD)' --host $(HOST) $(DBNAME) < resources/schema.sql > /dev/null 2>&1

src/Hashmir/Data.hs

@@ -15,6 +15,14 @@ import Database.HDBC.MySQL
     -- :client_name :: String
     -- :subdomain :: String
     INSERT INTO clients (name, subdomain) VALUES (:client_name, :subdomain);
+    ;;;
+    -- name:insertUserSQL
+    -- :client_id :: Integer
+    -- :login :: String
+    -- :email :: String
+    -- :password :: String
+    INSERT INTO users (client_id, login, email, password)
+    VALUES (:client_id, :login, :email, :password);
 |]
 
 getConn :: IO Connection
@@ -41,3 +49,7 @@ insertClient name subdomain =
 
 countClient :: IO (Maybe Int)
 countClient = withConn countClientSQL
+
+insertUser :: Integer -> String -> String -> String -> IO Integer
+insertUser clientId login email password =
+    withConn $ insertUserSQL clientId login email password

test/Hashmir/DataSpec.hs

@@ -16,3 +16,7 @@ spec = before resetDB $ do
         it "creates a Client record" $ do
             clientId <- D.insertClient "TestClient" "testclient"
             clientId `shouldBe` 1
+        it "creates a Client and a User record" $ do
+            clientId <- D.insertClient "TestClient" "testclient"
+            userId <- D.insertUser clientId "joe" "joe@example.com" "password1"
+            userId `shouldBe` 1