5ef29ee · reflex · git.iko.soy

src/Reflex/Patch.hs+1−1

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

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

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

207-- (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)

209

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

211unPatchMapWithMove (PatchMapWithMove p) = p

src/Reflex/Spider/Internal.hs+2

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

8{-# LANGUAGE FunctionalDependencies #-}

9{-# LANGUAGE GADTs #-}

10{-# LANGUAGE GeneralizedNewtypeDeriving #-}

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

11{-# LANGUAGE LambdaCase #-}

12{-# LANGUAGE LambdaCase #-}

13+#endif

12{-# LANGUAGE MagicHash #-}

14{-# LANGUAGE MagicHash #-}

13{-# LANGUAGE MultiParamTypeClasses #-}

15{-# LANGUAGE MultiParamTypeClasses #-}

14{-# LANGUAGE MultiWayIf #-}

16{-# 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 #-}

2module Main where

3

4import Control.Monad

test/Reflex/Test/CrossImpl.hs−1

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

4{-# LANGUAGE FlexibleInstances #-}

5{-# LANGUAGE FunctionalDependencies #-}

6{-# LANGUAGE GADTs #-}

7−{-# LANGUAGE LambdaCase #-}

8{-# LANGUAGE MultiParamTypeClasses #-}

7{-# LANGUAGE MultiParamTypeClasses #-}

9{-# LANGUAGE NoMonomorphismRestriction #-}

8{-# LANGUAGE NoMonomorphismRestriction #-}

10{-# LANGUAGE RankNTypes #-}

9{-# LANGUAGE RankNTypes #-}