086ec2a · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

Change paste result type to Maybe Text

commit086ec2a729f964ededa9f47469ccdb9852b3cdb0 authorDoug Beardsley <mightybyte@gmail.com> dateSun 3 May 2020, 10:31 (6 years ago) parentdecc0e1

2 files changed+5−5

unifiedsplit

reflex-dom-core/src/Reflex/Dom/Builder/Class/Events.hs+1−1

@@ -152,7 +152,7 @@ type family EventResultType (en :: EventTag) :: * where

152152 EventResultType 'BeforecopyTag = ()

153153 EventResultType 'CopyTag = ()

154154 EventResultType 'BeforepasteTag = ()

155− EventResultType 'PasteTag = Text

155+ EventResultType 'PasteTag = Maybe Text

156156 EventResultType 'ResetTag = ()

157157 EventResultType 'SearchTag = ()

158158 EventResultType 'SelectstartTag = ()

reflex-dom-core/src/Reflex/Dom/Builder/Immediate.hs+4−4

@@ -2501,7 +2501,7 @@ windowOnEventName en e = case en of

25012501 Beforecopy -> const $ return $ return () --TODO

25022502 Copy -> const $ return $ return () --TODO

25032503 Beforepaste -> const $ return $ return () --TODO

2504− Paste -> on e Events.paste

2504+ Paste -> const $ return $ return () --TODO

25052505 Reset -> on e Events.reset

25062506 Search -> on e Events.search

25072507 Selectstart -> const $ return $ return () --TODO

@@ -2569,13 +2569,13 @@ getMouseEventCoords = do

25692569 bisequence (getClientX e, getClientY e)

25702570

25712571{-# INLINABLE getPasteData #-}

2572−getPasteData :: EventM e ClipboardEvent Text

2572+getPasteData :: EventM e ClipboardEvent (Maybe Text)

25732573getPasteData = do

25742574 e <- event

25752575 mdt <- ClipboardEvent.getClipboardData e

25762576 case mdt of

2577− Nothing -> return ""

2578− Just dt -> DataTransfer.getData dt ("text" :: Text)

2577+ Nothing -> return Nothing

2578+ Just dt -> Just <$> DataTransfer.getData dt ("text" :: Text)

25792579

25802580{-# INLINABLE getTouchEvent #-}

25812581getTouchEvent :: EventM e TouchEvent TouchEventResult