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

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

@ -30,14 +30,14 @@ module App =
let dbTodo = ctx |> Queries.getTodosById id let dbTodo = ctx |> Queries.getTodosById id
match dbTodo with 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 | None -> id |> sprintf "Cannot find todo with id %i" |> NOT_FOUND
let todoById = let todoById =
withTodoById (fun (inner, _, _) -> respondWithTodo inner) withTodoById (fun (inner, _) -> respondWithTodo inner)
let updateTodo = let updateTodo =
withTodoById (fun (todo, dbContext, id) -> withTodoById (fun (todo, dbContext) ->
fun ctx -> async { fun ctx -> async {
let body: Types.TodoDetails = parseJson ctx.request.rawForm let body: Types.TodoDetails = parseJson ctx.request.rawForm
@ -46,9 +46,7 @@ module App =
return! respondWithTodo todo ctx return! respondWithTodo todo ctx
}) })
let patchTodo = withTodoById (fun (todo, dbContext, id) -> let patchTodo = withTodoById (fun (todo, dbContext) ->
let originalTodo = todoToRecord todo
fun ctx -> async { fun ctx -> async {
let body: Types.PartialTodoDetails = parseJson ctx.request.rawForm let body: Types.PartialTodoDetails = parseJson ctx.request.rawForm