Skip to content

Commit

Permalink
Reduce line length in function def
Browse files Browse the repository at this point in the history
Co-authored-by: Lyndon Gingerich <84735110+LyndonGingerich@users.noreply.github.com>
  • Loading branch information
marner2 and LyndonGingerich authored Sep 5, 2022
1 parent ec21987 commit e174e0f
Showing 1 changed file with 3 additions and 1 deletion.
4 changes: 3 additions & 1 deletion src/Elmish.WPF/BindingData.fs
Original file line number Diff line number Diff line change
Expand Up @@ -220,7 +220,9 @@ module internal BindingData =
Set = d.Set
SubModelSeqBindingName = d.SubModelSeqBindingName
}
let rec recursiveCase<'model, 'msg, 't0, 't1> (fOut: 't0 -> 't1) (fIn: 't1 -> 't0) : BindingData<'model, 'msg, 't0> -> BindingData<'model, 'msg, 't1> =

let rec recursiveCase<'model, 'msg, 't0, 't1> (fOut: 't0 -> 't1) (fIn: 't1 -> 't0)
: BindingData<'model, 'msg, 't0> -> BindingData<'model, 'msg, 't1> =
function
| BaseBindingData d -> d |> baseCase fOut fIn |> BaseBindingData
| CachingData d -> d |> recursiveCase<'model, 'msg, 't0, 't1> fOut fIn |> CachingData
Expand Down

0 comments on commit e174e0f

Please sign in to comment.