We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents 5f1ae47 + 8ddceff commit afe62deCopy full SHA for afe62de
src/Suave/State.fs
@@ -93,8 +93,11 @@ module CookieStateStore =
93
let private createStateStore (serialiser : CookieSerialiser) (userState : Map<string, obj>) (ss : obj) =
94
{ new StateStore with
95
member x.get key =
96
- serialiser.deserialise (ss :?> byte []) |> Map.tryFind key
97
- |> Option.map (fun x -> Convert.ChangeType(x, typeof<'T>) :?> 'T)
+ ss
+ :?> byte []
98
+ |> serialiser.deserialise
99
+ |> Map.tryFind key
100
+ |> Option.map unbox
101
member x.set key value =
102
let expiry = userState |> Map.find (StateStoreType + "-expiry") :?> CookieLife
103
write expiry key value
0 commit comments