5ef29ee · reflex · git.iko.soy

git.iko.soy/reflex

Fix hlint suggestions

commit5ef29eeee496c1ac872efc55f365e900b0643e61 authorHamish Mackenzie <Hamish.K.Mackenzie@googlemail.com> dateTue 4 Apr 2017, 22:23 (10 years ago) parentae0af76

4 files changed+4−3

compare with develop

unifiedsplit

src/Reflex/Patch.hs+1−1 src/Reflex/Spider/Internal.hs+2 test/GC.hs+1−1 test/Reflex/Test/CrossImpl.hs−1

src/Reflex/Patch.hs+1−1

@@ -205,7 +205,7 @@ mapEditSetMoved moved = \case

205205-- * The same source key may not be moved to two destination keys.

206206-- * Any key that is the source of a Move must also be edited

207207-- (otherwise, the Move would duplicate it)

208−data PatchMapWithMove k v = PatchMapWithMove (Map k (MapEdit k v)) deriving (Show, Eq, Ord, Functor, Foldable, Traversable)

208+newtype PatchMapWithMove k v = PatchMapWithMove (Map k (MapEdit k v)) deriving (Show, Eq, Ord, Functor, Foldable, Traversable)

209209

210210unPatchMapWithMove :: PatchMapWithMove k v -> Map k (MapEdit k v)

211211unPatchMapWithMove (PatchMapWithMove p) = p

src/Reflex/Spider/Internal.hs+2

@@ -8,7 +8,9 @@

88{-# LANGUAGE FunctionalDependencies #-}

99{-# LANGUAGE GADTs #-}

1010{-# LANGUAGE GeneralizedNewtypeDeriving #-}

11+#if defined(DEBUG) || defined(DEBUG_CYCLES)

1112{-# LANGUAGE LambdaCase #-}

13+#endif

1214{-# LANGUAGE MagicHash #-}

1315{-# LANGUAGE MultiParamTypeClasses #-}

1416{-# LANGUAGE MultiWayIf #-}

test/GC.hs+1−1

@@ -1,4 +1,4 @@

1−{-# LANGUAGE OverloadedStrings, FlexibleContexts, GADTs, TypeFamilies, RankNTypes, ScopedTypeVariables, LambdaCase #-}

1+{-# LANGUAGE OverloadedStrings, FlexibleContexts, GADTs, TypeFamilies, RankNTypes, ScopedTypeVariables #-}

22module Main where

44import Control.Monad

test/Reflex/Test/CrossImpl.hs−1

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

44{-# LANGUAGE FlexibleInstances #-}

55{-# LANGUAGE FunctionalDependencies #-}

66{-# LANGUAGE GADTs #-}

7−{-# LANGUAGE LambdaCase #-}

87{-# LANGUAGE MultiParamTypeClasses #-}

98{-# LANGUAGE NoMonomorphismRestriction #-}

109{-# LANGUAGE RankNTypes #-}