3ed23a4 · patch · git.iko.soy

src/Data/Functor/Misc.hs−1

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

6{-# LANGUAGE GADTs #-}

7{-# LANGUAGE LambdaCase #-}

8{-# LANGUAGE MultiParamTypeClasses #-}

9−{-# LANGUAGE PatternSynonyms #-}

10{-# LANGUAGE PolyKinds #-}

9{-# LANGUAGE PolyKinds #-}

11{-# LANGUAGE RankNTypes #-}

10{-# LANGUAGE RankNTypes #-}

12{-# LANGUAGE ScopedTypeVariables #-}

11{-# LANGUAGE ScopedTypeVariables #-}

src/Data/Patch/IntMap.hs+1−1

@@ -59,7 +59,7 @@ mapIntMapPatchWithKey f (PatchIntMap m) = PatchIntMap $ IntMap.mapWithKey (\ k m

59-- | Map an effectful function @Int -> a -> f b@ over all @a@s in the given @'PatchIntMap' a@

60-- (that is, all inserts/updates), producing a @f (PatchIntMap b)@.

61traverseIntMapPatchWithKey :: Applicative f => (Int -> a -> f b) -> PatchIntMap a -> f (PatchIntMap b)

62−traverseIntMapPatchWithKey f (PatchIntMap m) = PatchIntMap <$> IntMap.traverseWithKey (\k mv -> traverse (f k) mv) m

62+traverseIntMapPatchWithKey f (PatchIntMap m) = PatchIntMap <$> IntMap.traverseWithKey (traverse . f) m

63

64-- | Extract all @a@s inserted/updated by the given @'PatchIntMap' a@.

65patchIntMapNewElements :: PatchIntMap a -> [a]

test/hlint.hs+2−1

@@ -1,7 +1,7 @@

1module Main where

2

3import Control.Monad

4−import Language.Haskell.HLint3 (hlint)

4+import Language.Haskell.HLint (hlint)

5import System.Directory

6import System.Exit (exitFailure, exitSuccess)

7import System.FilePath

@@ -23,6 +23,7 @@ main = do

23 , "--ignore=Reduce duplication"

24 , "--cpp-define=USE_TEMPLATE_HASKELL"

25 , "--ignore=Use tuple-section"

26+ , "--ignore=Unused LANGUAGE pragma" -- hlint3 falsely believes that TypeOperators is not needed

26 ]

27 ]

27 recurseInto = and <$> sequence

28 recurseInto = and <$> sequence

28 [ fileType ==? Directory

29 [ fileType ==? Directory