prescientmoon/solar-conflux
prescientmoon/solar-conflux
1
Fork 0
Code Activity

fsharp(todolist-api): refactor: removed unused variables

Browse source 
Signed-off-by: prescientmoon <git@moonythm.dev>
This commit is contained in:
Matei Adriel 2020-01-02 17:32:54 +02:00 committed by prescientmoon
parent 83cf14c2d0
commit ba40a9c203
Signed by: prescientmoon
SSH key fingerprint: SHA256:UUF9JT2s8Xfyv76b8ZuVL7XrmimH4o49p4b+iexbVH4
1 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
fsharp/todolist-api/src/App.fs
View file

@ -30,25 +30,23 @@ module App =
let dbTodo = ctx |> Queries.getTodosById id
match dbTodo with
| Some inner -> f (inner, ctx, id)
| Some inner -> f (inner, ctx)
| None -> id |> sprintf "Cannot find todo with id %i" |> NOT_FOUND
let todoById =
withTodoById (fun (inner, _, _) -> respondWithTodo inner)
withTodoById (fun (inner, _) -> respondWithTodo inner)
let updateTodo =
withTodoById (fun (todo, dbContext, id) ->
withTodoById (fun (todo, dbContext) ->
fun ctx -> async {
let body: Types.TodoDetails = parseJson ctx.request.rawForm
do! Queries.updateTodoById todo body dbContext
return! respondWithTodo todo ctx
})
let patchTodo = withTodoById (fun (todo, dbContext, id) ->
let originalTodo = todoToRecord todo
let patchTodo = withTodoById (fun (todo, dbContext) ->
fun ctx -> async {
let body: Types.PartialTodoDetails = parseJson ctx.request.rawForm