[searchfield] small refactoring

parent 594b5b92
...@@ -417,8 +417,7 @@ pubmedInputCpt = here.component "pubmedInput" cpt where ...@@ -417,8 +417,7 @@ pubmedInputCpt = here.component "pubmedInput" cpt where
let mVal = case val of let mVal = case val of
"" -> Nothing "" -> Nothing
s -> Just s s -> Just s
T.modify_ (\s -> T.modify_ (_ { datafield = Just (External (PubMed p { api_key = mVal })) }) search
s { datafield = Just (External (PubMed p { api_key = mVal })) }) search
type OrgInputProps = 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