git.iko.soy/typeable/rollbar-hs
on master help sign in
Merge pull request #13 from joneshf/drop-dependencies-restyled

Drop dependencies (Restyled)

commit8e74691debe14314d42263d5e33257df2fa61903 authorHardy Jones <jones3.hardy@gmail.com> dateSun 29 Jul 2018, 19:51 (8 years ago) parentf24081259f560e
3 files changed+36−34
compare with master
unifiedsplit
test/Rollbar/Item/Data/Test.hs+9−8 test/Rollbar/Item/MissingHeaders/Test.hs+13−12 test/Rollbar/Item/Request/Test.hs+14−14
test/Rollbar/Item/Data/Test.hs+9−8
@@ -1,15 +1,16 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE LambdaCase #-}
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE LambdaCase #-}
33{-# LANGUAGE OverloadedStrings #-}
44module Rollbar.Item.Data.Test where
55
6−import Data.Aeson (Value(Null, Object), decode', encode, toJSON)
7−import Data.Text (Text)
6+import Data.Aeson (Value (Null, Object), decode', encode,
7+ toJSON)
8+import Data.Text (Text)
89
9−import Rollbar.Item
10−import Rollbar.QuickCheck ()
10+import Rollbar.Item
11+import Rollbar.QuickCheck ()
1112
12−import Test.QuickCheck (conjoin, quickCheck)
13+import Test.QuickCheck (conjoin, quickCheck)
1314
1415import qualified Data.HashMap.Strict
1516
@@ -39,5 +40,5 @@ key :: Text -> Value -> [(Text, Value)]
3940key k = \case
4041 Object o -> case Data.HashMap.Strict.lookupDefault Null k o of
4142 Object o -> Data.HashMap.Strict.toList o
42− _ -> mempty
43+ _ -> mempty
4344 _ -> mempty
test/Rollbar/Item/MissingHeaders/Test.hs+13−12
@@ -1,22 +1,23 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE FlexibleContexts #-}
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE FlexibleContexts #-}
33{-# LANGUAGE FlexibleInstances #-}
4−{-# LANGUAGE LambdaCase #-}
4+{-# LANGUAGE LambdaCase #-}
55{-# LANGUAGE OverloadedStrings #-}
6−{-# LANGUAGE TypeOperators #-}
6+{-# LANGUAGE TypeOperators #-}
77module Rollbar.Item.MissingHeaders.Test where
88
9−import Data.Aeson (Value(Object), decode', encode, toJSON)
10−import Data.Functor (void)
11−import Data.HashSet (HashSet)
12−import Data.Text (Text)
9+import Data.Aeson (Value (Object), decode', encode,
10+ toJSON)
11+import Data.Functor (void)
12+import Data.HashSet (HashSet)
13+import Data.Text (Text)
1314
14−import Prelude hiding (error)
15+import Prelude hiding (error)
1516
16−import Rollbar.Item.MissingHeaders (MissingHeaders(..))
17−import Rollbar.QuickCheck ()
17+import Rollbar.Item.MissingHeaders (MissingHeaders (..))
18+import Rollbar.QuickCheck ()
1819
19−import Test.QuickCheck (conjoin, quickCheck)
20+import Test.QuickCheck (conjoin, quickCheck)
2021
2122import qualified Data.HashSet
2223
test/Rollbar/Item/Request/Test.hs+14−14
@@ -1,25 +1,25 @@
1−{-# LANGUAGE DataKinds #-}
1+{-# LANGUAGE DataKinds #-}
22{-# LANGUAGE FlexibleInstances #-}
3−{-# LANGUAGE LambdaCase #-}
3+{-# LANGUAGE LambdaCase #-}
44{-# LANGUAGE OverloadedStrings #-}
5−{-# LANGUAGE TypeOperators #-}
5+{-# LANGUAGE TypeOperators #-}
66module Rollbar.Item.Request.Test where
77
8−import Data.Aeson (Value(Object), decode', encode, toJSON)
9−import Data.CaseInsensitive (original)
10−import Data.Foldable (fold)
11−import Data.Functor (void)
12−import Data.HashSet (HashSet)
13−import Data.Text (Text)
8+import Data.Aeson (Value (Object), decode', encode, toJSON)
9+import Data.CaseInsensitive (original)
10+import Data.Foldable (fold)
11+import Data.Functor (void)
12+import Data.HashSet (HashSet)
13+import Data.Text (Text)
1414
15−import Prelude hiding (error)
15+import Prelude hiding (error)
1616
17−import Rollbar.Item.Request (MissingHeaders(..))
18−import Rollbar.QuickCheck ()
17+import Rollbar.Item.Request (MissingHeaders (..))
18+import Rollbar.QuickCheck ()
1919
20−import Test.QuickCheck (conjoin, quickCheck)
20+import Test.QuickCheck (conjoin, quickCheck)
2121
22−import qualified Data.Text.Encoding as TE
22+import qualified Data.Text.Encoding as TE
2323
2424import qualified Data.HashSet
2525