[searchfield] small refactoring

parent 594b5b92
......@@ -417,8 +417,7 @@ pubmedInputCpt = here.component "pubmedInput" cpt where
let mVal = case val of
"" -> Nothing
s -> Just s
T.modify_ (\s ->
s { datafield = Just (External (PubMed p { api_key = mVal })) }) search
T.modify_ (_ { datafield = Just (External (PubMed p { api_key = mVal })) }) search
type OrgInputProps =
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment