📦 sleepyfran / duets

1
2
3
4
5
6
7
8
9
10
11module Duets.Entities.Social

open Aether

module State =
    let timesDoneAction socializingState action =
        Optic.get Lenses.SocializingState.actions_ socializingState
        |> List.filter (fun a -> a = action)
        |> List.length
        |> (*) 1<times>