e490ca5 · reflex · git.iko.soy

hlint: More linting

commite490ca5a5e0a5920376cdfc15a500a0ceda731dc authorAli Abrar <aliabrar@gmail.com> dateMon 5 Aug 2019, 01:16 (7 years ago) parentc31bec2

3 files changed+1−3

unifiedsplit

src/Reflex/DynamicWriter/Class.hs−1

@@ -3,7 +3,6 @@

33{-# LANGUAGE CPP #-}

44{-# LANGUAGE FlexibleInstances #-}

55{-# LANGUAGE FunctionalDependencies #-}

6−{-# LANGUAGE MultiParamTypeClasses #-}

76{-# LANGUAGE UndecidableInstances #-}

87#ifdef USE_REFLEX_OPTIMIZER

98{-# OPTIONS_GHC -fplugin=Reflex.Optimizer #-}

src/Reflex/PerformEvent/Base.hs+1−1

@@ -141,7 +141,7 @@ hostPerformEventT a = do

141141 case mToPerform of

142142 Nothing -> return [result']

143143 Just toPerform -> do

144− responses <- runHostFrame $ traverseRequesterData (\v -> Identity <$> v) toPerform

144+ responses <- runHostFrame $ traverseRequesterData (Identity <$>) toPerform

145145 mrt <- readRef responseTrigger

146146 let followupEventTriggers = case mrt of

147147 Just rt -> [rt :=> Identity responses]

src/Reflex/TriggerEvent/Class.hs−1

@@ -2,7 +2,6 @@

22-- new 'Event's that can be triggered from 'IO'.

33{-# LANGUAGE FlexibleInstances #-}

44{-# LANGUAGE FunctionalDependencies #-}

5−{-# LANGUAGE MultiParamTypeClasses #-}

65{-# LANGUAGE UndecidableInstances #-}

76module Reflex.TriggerEvent.Class

87 ( TriggerEvent (..)