Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- daniel@mercury:~/repos/zonu$ lein compile
- Compiling models.db
- Exception in thread "main" java.io.FileNotFoundException: Could not locate models/db__init.class or models/db.clj on classpath:
- at clojure.lang.RT.load(RT.java:443)
- at clojure.lang.RT.load(RT.java:411)
- at clojure.core$load$fn__5018.invoke(core.clj:5530)
- at clojure.core$load.doInvoke(core.clj:5529)
- at clojure.lang.RestFn.invoke(RestFn.java:408)
- at clojure.core$load_one.invoke(core.clj:5336)
- at clojure.core$compile$fn__5023.invoke(core.clj:5541)
- at clojure.core$compile.invoke(core.clj:5540)
- at user$eval9.invoke(form-init3134094526890202052.clj:1)
- at clojure.lang.Compiler.eval(Compiler.java:6619)
- at clojure.lang.Compiler.eval(Compiler.java:6609)
- at clojure.lang.Compiler.load(Compiler.java:7064)
- at clojure.lang.Compiler.loadFile(Compiler.java:7020)
- at clojure.main$load_script.invoke(main.clj:294)
- at clojure.main$init_opt.invoke(main.clj:299)
- at clojure.main$initialize.invoke(main.clj:327)
- at clojure.main$null_opt.invoke(main.clj:362)
- at clojure.main$main.doInvoke(main.clj:440)
- at clojure.lang.RestFn.invoke(RestFn.java:421)
- at clojure.lang.Var.invoke(Var.java:419)
- at clojure.lang.AFn.applyToHelper(AFn.java:163)
- at clojure.lang.Var.applyTo(Var.java:532)
- at clojure.main.main(main.java:37)
- Compilation failed: Subprocess failed
- daniel@mercury:~/repos/zonu$ ls src/zonu/models/db.clj
- src/zonu/models/db.clj
- -------------------- db.clj ------------------------------
- (ns models.db
- (use 'korma.db)
- (use 'korma.core)
- (:require [clojure.java.jdbc :as sql]))
- ; The DB Spec is derived from environmental variables. They are:
- ;
- ; Name Example
- ; ---- -------
- ; ZONU_DB_URL //mysql.sageru.org/zonu
- ; ZONU_DB_USER zonu
- ; ZONU_DB_PASS mypass
- (def db-spec {:subprotocol "mysql"
- :subname (System/getenv "ZONU_DB_URL")
- :user (System/getenv "ZONU_DB_USER")
- :password (System/getenv "ZONU_DB_PASS")})
- (defdb korma-db db-spec)
- (defn create-tables []
- (sql/with-connection db-spec
- (do
- (sql/create-table
- :defaultsites
- [:title "varchar(100)"]
- [:type "varchar(50)"]
- [:url "varchar(500)"])
- (sql/create-table
- :defaultboards
- [:site "references defaultsites (id)"]
- [:title "varchar(100)"]
- [:name "varchar(50)"]))))
- (defentity defaultsites
- (entity-fields :title :type :url))
- (defentity defaultboards
- (has-one site)
- (entity-fields :title :name))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement