Remove an extraneous return statement
commit26500cd61472cb2bffa4c58495e6528c5db6acc3
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateSat 25 Apr 2015, 16:07 (12 years ago)
parent4a4018b
src/Reflex/Dom/Widget/Basic.hs−1
@@ -377,7 +377,6 @@ wrapDomEventMaybe element elementOnevent getValue = do
377377 unsubscribe <- {-# SCC "a" #-} liftIO $ {-# SCC "b" #-} elementOnevent element $ {-# SCC "c" #-} do
378378 mv <- {-# SCC "d" #-} getValue
379379 forM_ mv $ \v -> liftIO $ postGui $ runWithActions [et :=> v]
380− return ()
381380 return $ liftIO $ do
382381 {-# SCC "e" #-} unsubscribe
383382 return $! {-# SCC "f" #-} e