|  |  |  | @ -2,7 +2,6 @@ | 
		
	
		
			
				|  |  |  |  |   (:require [compojure.core :refer [defroutes GET POST DELETE] :as comp] | 
		
	
		
			
				|  |  |  |  |             [ring.util.response :as resp] | 
		
	
		
			
				|  |  |  |  |             [formulare.core :as form] | 
		
	
		
			
				|  |  |  |  |             [wanijo.infrastructure.view :as view] | 
		
	
		
			
				|  |  |  |  |             [wanijo.infrastructure.routing :refer [register! path]] | 
		
	
		
			
				|  |  |  |  |             [wanijo.user.db :as domain-user] | 
		
	
		
			
				|  |  |  |  |             [wanijo.schema | 
		
	
	
		
			
				
					|  |  |  | @ -21,7 +20,7 @@ | 
		
	
		
			
				|  |  |  |  |       (resp/redirect (path :schema-overview))) | 
		
	
		
			
				|  |  |  |  |     (schema-view/overview! req))) | 
		
	
		
			
				|  |  |  |  | 
 | 
		
	
		
			
				|  |  |  |  | (defn delete-schema! [uuid session] | 
		
	
		
			
				|  |  |  |  | (defn delete-schema! [uuid] | 
		
	
		
			
				|  |  |  |  |   (domain/delete! uuid) | 
		
	
		
			
				|  |  |  |  |   (resp/redirect (path :schema-overview))) | 
		
	
		
			
				|  |  |  |  | 
 | 
		
	
	
		
			
				
					|  |  |  | @ -73,8 +72,8 @@ | 
		
	
		
			
				|  |  |  |  |   (POST (register! :schema-assign-schemas "/schema/assign/schemas") [] | 
		
	
		
			
				|  |  |  |  |         assign-schemas!) | 
		
	
		
			
				|  |  |  |  |   (DELETE (register! :schema-delete "/schema/:uuid") | 
		
	
		
			
				|  |  |  |  |           [uuid :as req] | 
		
	
		
			
				|  |  |  |  |           (delete-schema! uuid (:session req)))) | 
		
	
		
			
				|  |  |  |  |           [uuid] | 
		
	
		
			
				|  |  |  |  |           (delete-schema! uuid))) | 
		
	
		
			
				|  |  |  |  | 
 | 
		
	
		
			
				|  |  |  |  | (defroutes read-routes | 
		
	
		
			
				|  |  |  |  |   (GET (register! :schema-show "/schema/:uuid") | 
		
	
	
		
			
				
					|  |  |  | 
 |