zf

zenflows testing
git clone https://s.sonu.ch/~srfsh/zf.git
Log | Files | Refs | Submodules | README | LICENSE

resolv.ex (2237B)

      1 # Zenflows is designed to implement the Valueflows vocabulary,
      2 # written and maintained by srfsh <info@dyne.org>.
      3 # Copyright (C) 2021-2023 Dyne.org foundation <foundation@dyne.org>.
      4 #
      5 # This program is free software: you can redistribute it and/or modify
      6 # it under the terms of the GNU Affero General Public License as published by
      7 # the Free Software Foundation, either version 3 of the License, or
      8 # (at your option) any later version.
      9 #
     10 # This program is distributed in the hope that it will be useful,
     11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
     12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     13 # GNU Affero General Public License for more details.
     14 #
     15 # You should have received a copy of the GNU Affero General Public License
     16 # along with this program.  If not, see <https://www.gnu.org/licenses/>.
     17 
     18 defmodule Zenflows.VF.Satisfaction.Resolv do
     19 @moduledoc false
     20 
     21 alias Zenflows.GQL.Connection
     22 alias Zenflows.VF.Satisfaction.Domain
     23 
     24 def satisfaction(params, _) do
     25 	Domain.one(params)
     26 end
     27 
     28 def satisfactions(params, _) do
     29 	with {:ok, page} <- Connection.parse(params),
     30 			{:ok, schemas} <- Domain.all(page) do
     31 		{:ok, Connection.from_list(schemas, page)}
     32 	end
     33 end
     34 
     35 def create_satisfaction(%{satisfaction: params}, _) do
     36 	with {:ok, satis} <- Domain.create(params) do
     37 		{:ok, %{satisfaction: satis}}
     38 	end
     39 end
     40 
     41 def update_satisfaction(%{satisfaction: %{id: id} = params}, _) do
     42 	with {:ok, satis} <- Domain.update(id, params) do
     43 		{:ok, %{satisfaction: satis}}
     44 	end
     45 end
     46 
     47 def delete_satisfaction(%{id: id}, _) do
     48 	with {:ok, _} <- Domain.delete(id) do
     49 		{:ok, true}
     50 	end
     51 end
     52 
     53 def satisfies(satis, _, _) do
     54 	satis = Domain.preload(satis, :satisfies)
     55 	{:ok, satis.satisfies}
     56 end
     57 
     58 def satisfied_by_event(satis, _, _) do
     59 	satis = Domain.preload(satis, :satisfied_by_event)
     60 	{:ok, satis.satisfied_by_event}
     61 end
     62 
     63 def satisfied_by_commitment(satis, _, _) do
     64 	satis = Domain.preload(satis, :satisfied_by_commitment)
     65 	{:ok, satis.satisfied_by_commitment}
     66 end
     67 
     68 def resource_quantity(satis, _, _) do
     69 	satis = Domain.preload(satis, :resource_quantity)
     70 	{:ok, satis.resource_quantity}
     71 end
     72 
     73 def effort_quantity(satis, _, _) do
     74 	satis = Domain.preload(satis, :effort_quantity)
     75 	{:ok, satis.effort_quantity}
     76 end
     77 end