git.iko.soy/reflex-dom
on develop help sign in
Change paste result type to Maybe Text
086ec2aDoug Beardsley
reflex-dom-core/src/Reflex/Dom/Builder/Class/Events.hs+1−1
compare with develop
unifiedsplit
@@ -152,7 +152,7 @@ type family EventResultType (en :: EventTag) :: * where
152 EventResultType 'BeforecopyTag = ()
152 EventResultType 'BeforecopyTag = ()
153 EventResultType 'CopyTag = ()
153 EventResultType 'CopyTag = ()
154 EventResultType 'BeforepasteTag = ()
154 EventResultType 'BeforepasteTag = ()
155− EventResultType 'PasteTag = Text
155+ EventResultType 'PasteTag = Maybe Text
156 EventResultType 'ResetTag = ()
156 EventResultType 'ResetTag = ()
157 EventResultType 'SearchTag = ()
157 EventResultType 'SearchTag = ()
158 EventResultType 'SelectstartTag = ()
158 EventResultType 'SelectstartTag = ()
reflex-dom-core/src/Reflex/Dom/Builder/Immediate.hs+4−4
@@ -2501,7 +2501,7 @@ windowOnEventName en e = case en of
2501 Beforecopy -> const $ return $ return () --TODO
2501 Beforecopy -> const $ return $ return () --TODO
2502 Copy -> const $ return $ return () --TODO
2502 Copy -> const $ return $ return () --TODO
2503 Beforepaste -> const $ return $ return () --TODO
2503 Beforepaste -> const $ return $ return () --TODO
2504− Paste -> on e Events.paste
2504+ Paste -> const $ return $ return () --TODO
2505 Reset -> on e Events.reset
2505 Reset -> on e Events.reset
2506 Search -> on e Events.search
2506 Search -> on e Events.search
2507 Selectstart -> const $ return $ return () --TODO
2507 Selectstart -> const $ return $ return () --TODO
@@ -2569,13 +2569,13 @@ getMouseEventCoords = do
2569 bisequence (getClientX e, getClientY e)
2569 bisequence (getClientX e, getClientY e)
2570
2570
2571{-# INLINABLE getPasteData #-}
2571{-# INLINABLE getPasteData #-}
2572−getPasteData :: EventM e ClipboardEvent Text
2572+getPasteData :: EventM e ClipboardEvent (Maybe Text)
2573getPasteData = do
2573getPasteData = do
2574 e <- event
2574 e <- event
2575 mdt <- ClipboardEvent.getClipboardData e
2575 mdt <- ClipboardEvent.getClipboardData e
2576 case mdt of
2576 case mdt of
2577− Nothing -> return ""
2577+ Nothing -> return Nothing
2578− Just dt -> DataTransfer.getData dt ("text" :: Text)
2578+ Just dt -> Just <$> DataTransfer.getData dt ("text" :: Text)
2579
2579
2580{-# INLINABLE getTouchEvent #-}
2580{-# INLINABLE getTouchEvent #-}
2581getTouchEvent :: EventM e TouchEvent TouchEventResult
2581getTouchEvent :: EventM e TouchEvent TouchEventResult