24cc530 · reflex · git.iko.soy

Fix some hlint issues

commit24cc53036665e8981fc69f6b9fc636e729b921bc authorRyan Trinkle <ryan.trinkle@gmail.com> dateThu 11 Oct 2018, 17:23 (8 years ago) parente1628f7

2 files changed+4−4

unifiedsplit

src/Reflex/Dynamic/TH.hs+2−2

@@ -47,8 +47,8 @@ qDynPure qe = do

4747 _ -> gmapM f d

4848 (e', exprsReversed) <- runStateT (gmapM f e) []

4949 let exprs = reverse exprsReversed

50− arg = foldr (\a b -> ConE 'FHCons `AppE` a `AppE` b) (ConE 'FHNil) $ map snd exprs

51− param = foldr (\a b -> ConP 'HCons [VarP a, b]) (ConP 'HNil []) $ map fst exprs

50+ arg = foldr (\a b -> ConE 'FHCons `AppE` snd a `AppE` b) (ConE 'FHNil) exprs

51+ param = foldr (\a b -> ConP 'HCons [VarP (fst a), b]) (ConP 'HNil []) exprs

5252 [| $(return $ LamE [param] e') <$> distributeFHListOverDynPure $(return arg) |]

5353

5454-- | Antiquote a 'Dynamic' expression. This can /only/ be used inside of a

src/Reflex/FunctorMaybe.hs+2−2

@@ -28,6 +28,6 @@ class FunctorMaybe f where

2828instance FunctorMaybe Maybe where

2929 fmapMaybe = (=<<)

3030

31−-- | @fmapMaybe f = catMaybes . fmap f@

31+-- | @fmapMaybe = mapMaybe@

3232instance FunctorMaybe [] where

33− fmapMaybe f = catMaybes . fmap f

33+ fmapMaybe = mapMaybe