typeable/rollbar-hs
1
0
Fork 0
mirror of https://github.com/typeable/rollbar-hs.git synced 2024-08-15 16:50:25 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #13 from joneshf/drop-dependencies-restyled

Browse Source 
Drop dependencies (Restyled)
This commit is contained in:
Hardy Jones 2018-07-29 19:51:54 -07:00 committed by GitHub
commit 8e74691deb
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 36 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
test/Rollbar/Item/Data/Test.hs
View File

@ -1,15 +1,16 @@
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
module Rollbar.Item.Data.Test where
import Data.Aeson (Value(Null, Object), decode', encode, toJSON)
import Data.Text (Text)
import Data.Aeson (Value (Null, Object), decode', encode,
toJSON)
import Data.Text (Text)
import Rollbar.Item
import Rollbar.QuickCheck ()
import Rollbar.Item
import Rollbar.QuickCheck ()
import Test.QuickCheck (conjoin, quickCheck)
import Test.QuickCheck (conjoin, quickCheck)
import qualified Data.HashMap.Strict
@ -39,5 +40,5 @@ key :: Text -> Value -> [(Text, Value)]
key k = \case
Object o -> case Data.HashMap.Strict.lookupDefault Null k o of
Object o -> Data.HashMap.Strict.toList o
_ -> mempty
_ -> mempty
_ -> mempty

25
test/Rollbar/Item/MissingHeaders/Test.hs
View File

@ -1,22 +1,23 @@
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE TypeOperators #-}
module Rollbar.Item.MissingHeaders.Test where
import Data.Aeson (Value(Object), decode', encode, toJSON)
import Data.Functor (void)
import Data.HashSet (HashSet)
import Data.Text (Text)
import Data.Aeson (Value (Object), decode', encode,
toJSON)
import Data.Functor (void)
import Data.HashSet (HashSet)
import Data.Text (Text)
import Prelude hiding (error)
import Prelude hiding (error)
import Rollbar.Item.MissingHeaders (MissingHeaders(..))
import Rollbar.QuickCheck ()
import Rollbar.Item.MissingHeaders (MissingHeaders (..))
import Rollbar.QuickCheck ()
import Test.QuickCheck (conjoin, quickCheck)
import Test.QuickCheck (conjoin, quickCheck)
import qualified Data.HashSet

28
test/Rollbar/Item/Request/Test.hs
View File

@ -1,25 +1,25 @@
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE TypeOperators #-}
module Rollbar.Item.Request.Test where
import Data.Aeson (Value(Object), decode', encode, toJSON)
import Data.CaseInsensitive (original)
import Data.Foldable (fold)
import Data.Functor (void)
import Data.HashSet (HashSet)
import Data.Text (Text)
import Data.Aeson (Value (Object), decode', encode, toJSON)
import Data.CaseInsensitive (original)
import Data.Foldable (fold)
import Data.Functor (void)
import Data.HashSet (HashSet)
import Data.Text (Text)
import Prelude hiding (error)
import Prelude hiding (error)
import Rollbar.Item.Request (MissingHeaders(..))
import Rollbar.QuickCheck ()
import Rollbar.Item.Request (MissingHeaders (..))
import Rollbar.QuickCheck ()
import Test.QuickCheck (conjoin, quickCheck)
import Test.QuickCheck (conjoin, quickCheck)
import qualified Data.Text.Encoding as TE
import qualified Data.Text.Encoding as TE
import qualified Data.HashSet