git.iko.soy/typeable/aeson

on master help sign in

Data/Aeson.hs+1−1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12-- |

23-- Module: Data.Aeson

34-- Copyright: (c) 2011-2016 Bryan O'Sullivan

@@ -130,7 +131,6 @@ module Data.Aeson

130131 , json'

131132 ) where

132133

133−import Prelude ()

134134import Prelude.Compat

135135

136136import Data.Aeson.Types.FromJSON (ifromJSON)

Data/Aeson/Encode.hs+2−1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12-- |

23-- Module: Data.Aeson.Encode

34-- Copyright: (c) 2012-2016 Bryan O'Sullivan

@@ -8,13 +9,13 @@

89-- Portability: portable

910--

1011-- This module is left to supply limited backwards-compatibility.

12+

1113module Data.Aeson.Encode {-# DEPRECATED "Use Data.Aeson or Data.Aeson.Text instead" #-}

1214 (

1315 encode

1416 , encodeToTextBuilder

1517 ) where

1618

17−import Prelude ()

1819

1920import Data.ByteString.Lazy (ByteString)

2021import Data.Text.Lazy.Builder (Builder)

Data/Aeson/Encoding.hs+2−1

@@ -1,8 +1,10 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12-- |

23--

34-- Functions in this module return well-formed 'Encoding''.

45-- Polymorphic variants, which return @'Encoding' a@, return a textual JSON

56-- value, so it can be used as both @'Encoding'' 'Text'@ and @'Encoding' = 'Encoding'' 'Value'@.

7+

68module Data.Aeson.Encoding

79 (

810 -- * Encoding

@@ -49,6 +51,5 @@ module Data.Aeson.Encoding

4951 , value

5052 ) where

5153

52−import Prelude ()

5354

5455import Data.Aeson.Encoding.Internal

Data/Aeson/Encoding/Builder.hs+3−3

@@ -1,5 +1,6 @@

11{-# LANGUAGE BangPatterns #-}

2−

2+{-# LANGUAGE NoImplicitPrelude #-}

3+{-# LANGUAGE TupleSections #-}

34-- |

45-- Module: Data.Aeson.Encoding.Builder

56-- Copyright: (c) 2011 MailRank, Inc.

@@ -35,7 +36,6 @@ module Data.Aeson.Encoding.Builder

3536 , ascii5

3637 ) where

3738

38−import Prelude ()

3939import Prelude.Compat

4040

4141import Data.Aeson.Internal.Time

@@ -201,7 +201,7 @@ timeOfDay64 (TOD h m s)

201201 !(T mh ml) = twoDigits m

202202 !(T sh sl) = twoDigits (fromIntegral real)

203203 (real,frac) = s `quotRem` pico

204− showFrac = (\x -> ('.', x)) >$< (BP.liftFixedToBounded BP.char7 >*< trunc12)

204+ showFrac = ('.',) >$< (BP.liftFixedToBounded BP.char7 >*< trunc12)

205205 trunc12 = (`quotRem` micro) >$<

206206 BP.condB (\(_,y) -> y == 0) (fst >$< trunc6) (digits6 >*< trunc6)

207207 digits6 = ((`quotRem` milli) . fromIntegral) >$< (digits3 >*< digits3)

Data/Aeson/Encoding/Internal.hs+2−1

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

11{-# LANGUAGE DeriveDataTypeable #-}

22{-# LANGUAGE EmptyDataDecls #-}

3+{-# LANGUAGE NoImplicitPrelude #-}

34{-# LANGUAGE OverloadedStrings #-}

45{-# LANGUAGE RankNTypes #-}

6+

57module Data.Aeson.Encoding.Internal

68 (

79 -- * Encoding

@@ -55,7 +57,6 @@ module Data.Aeson.Encoding.Internal

5557 , comma, colon, openBracket, closeBracket, openCurly, closeCurly

5658 ) where

5759

58−import Prelude ()

5960import Prelude.Compat

6061

6162import Data.Aeson.Types.Internal (Value)

Data/Aeson/Internal.hs+1−1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12-- |

23-- Module: Data.Aeson.Internal

34-- Copyright: (c) 2015-2016 Bryan O'Sullivan

@@ -22,7 +23,6 @@ module Data.Aeson.Internal

2223 , iparse

2324 ) where

2425

25−import Prelude ()

2626

2727import Data.Aeson.Types.Internal

2828import Data.Aeson.Types.FromJSON (ifromJSON)

Data/Aeson/Internal/Functions.hs+1−1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12-- |

23-- Module: Data.Aeson.Functions

34-- Copyright: (c) 2011-2016 Bryan O'Sullivan

@@ -14,7 +15,6 @@ module Data.Aeson.Internal.Functions

1415 , mapKey

1516 ) where

1617

17−import Prelude ()

1818import Prelude.Compat

1919

2020import Data.Hashable (Hashable)

Data/Aeson/Parser.hs+1−1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12-- |

23-- Module: Data.Aeson.Parser

34-- Copyright: (c) 2012-2016 Bryan O'Sullivan

@@ -45,7 +46,6 @@ module Data.Aeson.Parser

4546 , eitherDecodeStrictWith

4647 ) where

4748

48−import Prelude ()

4949

5050import Data.Aeson.Parser.Internal (decodeStrictWith, decodeWith, eitherDecodeStrictWith, eitherDecodeWith, json, json', jstring, scientific, value, value')

5151

Data/Aeson/Parser/Internal.hs+1−2

@@ -1,10 +1,10 @@

11{-# LANGUAGE BangPatterns #-}

22{-# LANGUAGE CPP #-}

3+{-# LANGUAGE NoImplicitPrelude #-}

34{-# LANGUAGE OverloadedStrings #-}

45#if MIN_VERSION_ghc_prim(0,3,1)

56{-# LANGUAGE MagicHash #-}

67#endif

7−

88-- |

99-- Module: Data.Aeson.Parser.Internal

1010-- Copyright: (c) 2011-2016 Bryan O'Sullivan

@@ -35,7 +35,6 @@ module Data.Aeson.Parser.Internal

3535 , eitherDecodeStrictWith

3636 ) where

3737

38−import Prelude ()

3938import Prelude.Compat

4039

4140import Control.Applicative ((<|>))

Data/Aeson/Parser/Time.hs+2−1

@@ -1,3 +1,5 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

2+

13module Data.Aeson.Parser.Time

24 (

35 run

@@ -9,7 +11,6 @@ module Data.Aeson.Parser.Time

911 , zonedTime

1012 ) where

1113

12−import Prelude ()

1314import Prelude.Compat

1415

1516import Data.Attoparsec.Text (Parser)

Data/Aeson/TH.hs−1

@@ -116,7 +116,6 @@ module Data.Aeson.TH

116116 , mkLiftParseJSON2

117117 ) where

118118

119−import Prelude ()

120119import Prelude.Compat

121120

122121import Control.Applicative ((<|>))

Data/Aeson/Text.hs+2−1

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

11{-# LANGUAGE BangPatterns #-}

2+{-# LANGUAGE NoImplicitPrelude #-}

23{-# LANGUAGE OverloadedStrings #-}

34-- |

45-- Module: Data.Aeson.Text

@@ -14,13 +15,13 @@

1415--

1516-- You can use the conversions to 'Builder's when embedding JSON messages as

1617-- parts of a protocol.

18+

1719module Data.Aeson.Text

1820 (

1921 encodeToLazyText

2022 , encodeToTextBuilder

2123 ) where

2224

23−import Prelude ()

2425import Prelude.Compat

2526

2627import Data.Aeson.Types (Value(..), ToJSON(..))

Data/Aeson/Types.hs+1−1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12-- |

23-- Module: Data.Aeson.Types

34-- Copyright: (c) 2011-2016 Bryan O'Sullivan

@@ -124,7 +125,6 @@ module Data.Aeson.Types

124125 , defaultTaggedObject

125126 ) where

126127

127−import Prelude ()

128128import Prelude.Compat

129129

130130import Data.Aeson.Encoding (Encoding, unsafeToEncoding, fromEncoding, Series, pairs)

Data/Aeson/Types/Class.hs+1−1

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

44{-# LANGUAGE FlexibleInstances #-}

55{-# LANGUAGE GADTs #-}

66{-# LANGUAGE MultiParamTypeClasses #-}

7+{-# LANGUAGE NoImplicitPrelude #-}

78{-# LANGUAGE ScopedTypeVariables #-}

89{-# LANGUAGE TypeSynonymInstances #-}

910

@@ -91,7 +92,6 @@ module Data.Aeson.Types.Class

9192 , (.!=)

9293 ) where

9394

94−import Prelude ()

9595

9696import Data.Aeson.Types.FromJSON

9797import Data.Aeson.Types.Generic (One, Zero)

Data/Aeson/Types/FromJSON.hs+1−1

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

66{-# LANGUAGE GADTs #-}

77{-# LANGUAGE MultiParamTypeClasses #-}

88{-# LANGUAGE NamedFieldPuns #-}

9+{-# LANGUAGE NoImplicitPrelude #-}

910{-# LANGUAGE OverloadedStrings #-}

1011{-# LANGUAGE RecordWildCards #-}

1112{-# LANGUAGE ScopedTypeVariables #-}

@@ -76,7 +77,6 @@ module Data.Aeson.Types.FromJSON

7677 , parseOptionalFieldWith

7778 ) where

7879

79−import Prelude ()

8080import Prelude.Compat

8181

8282import Control.Applicative ((<|>), Const(..))

Data/Aeson/Types/Generic.hs+1−1

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

55{-# LANGUAGE FunctionalDependencies #-}

66{-# LANGUAGE KindSignatures #-}

77{-# LANGUAGE MultiParamTypeClasses #-}

8+{-# LANGUAGE NoImplicitPrelude #-}

89{-# LANGUAGE ScopedTypeVariables #-}

910{-# LANGUAGE TypeOperators #-}

1011{-# LANGUAGE UndecidableInstances #-}

@@ -36,7 +37,6 @@ module Data.Aeson.Types.Generic

3637 , ProductSize(..)

3738 ) where

3839

39−import Prelude ()

4040import Prelude.Compat

4141

4242import GHC.Generics

Data/Aeson/Types/Internal.hs+2−3

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

22{-# LANGUAGE DeriveDataTypeable #-}

33{-# LANGUAGE DeriveGeneric #-}

44{-# LANGUAGE GeneralizedNewtypeDeriving #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

56{-# LANGUAGE Rank2Types #-}

67#if __GLASGOW_HASKELL__ >= 800

78-- a) THQ works on cross-compilers and unregisterised GHCs

@@ -74,7 +75,6 @@ module Data.Aeson.Types.Internal

7475 , DotNetTime(..)

7576 ) where

7677

77−import Prelude ()

7878import Prelude.Compat

7979

8080import Control.Applicative (Alternative(..))

@@ -331,8 +331,7 @@ instance Monoid (Parser a) where

331331apP :: Parser (a -> b) -> Parser a -> Parser b

332332apP d e = do

333333 b <- d

334− a <- e

335− return (b a)

334+ b <$> e

336335{-# INLINE apP #-}

337336

338337-- | A JSON \"object\" (key\/value map).

Data/Aeson/Types/ToJSON.hs+1−1

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

77{-# LANGUAGE GADTs #-}

88{-# LANGUAGE MultiParamTypeClasses #-}

99{-# LANGUAGE NamedFieldPuns #-}

10+{-# LANGUAGE NoImplicitPrelude #-}

1011{-# LANGUAGE OverloadedStrings #-}

1112{-# LANGUAGE PatternGuards #-}

1213{-# LANGUAGE RecordWildCards #-}

@@ -58,7 +59,6 @@ module Data.Aeson.Types.ToJSON

5859 , listValue

5960 ) where

6061

61−import Prelude ()

6262import Prelude.Compat

6363

6464import Control.Applicative (Const(..))

HLint.hs+1

@@ -9,3 +9,4 @@ ignore "Eta reduce"

99ignore "Functor law"

1010ignore "Use >=>"

1111ignore "Use lambda-case"

12+ignore "Use $>"

attoparsec-iso8601/Data/Attoparsec/Time.hs+1−2

@@ -1,6 +1,6 @@

11{-# LANGUAGE BangPatterns #-}

2+{-# LANGUAGE NoImplicitPrelude #-}

23{-# LANGUAGE ScopedTypeVariables #-}

3−

44-- |

55-- Module: Data.Aeson.Parser.Time

66-- Copyright: (c) 2015-2016 Bryan O'Sullivan

@@ -21,7 +21,6 @@ module Data.Attoparsec.Time

2121 , zonedTime

2222 ) where

2323

24−import Prelude ()

2524import Prelude.Compat

2625

2726import Control.Applicative ((<|>))

attoparsec-iso8601/Data/Attoparsec/Time/Internal.hs+1−2

@@ -1,5 +1,5 @@

11{-# LANGUAGE CPP #-}

2−

2+{-# LANGUAGE NoImplicitPrelude #-}

33-- |

44-- Module: Data.Aeson.Internal.Time

55-- Copyright: (c) 2015-2016 Bryan O'Sullivan

@@ -17,7 +17,6 @@ module Data.Attoparsec.Time.Internal

1717 , toTimeOfDay64

1818 ) where

1919

20−import Prelude ()

2120import Prelude.Compat

2221

2322import Data.Int (Int64)

benchmarks/AesonEncode.hs+1−1

@@ -1,9 +1,9 @@

11{-# LANGUAGE BangPatterns #-}

2+{-# LANGUAGE NoImplicitPrelude #-}

23{-# LANGUAGE OverloadedStrings #-}

34

45module Main (main) where

56

6−import Prelude ()

77import Prelude.Compat

88

99import Control.DeepSeq

benchmarks/AesonFoldable.hs+1−1

@@ -1,10 +1,10 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23

34module Main (main) where

45

56import Criterion.Main

67

7−import Prelude ()

88import Prelude.Compat

99

1010import Data.Foldable (toList)

benchmarks/AesonMap.hs+1−1

@@ -1,11 +1,11 @@

11{-# LANGUAGE FlexibleContexts #-}

2+{-# LANGUAGE NoImplicitPrelude #-}

23{-# LANGUAGE RankNTypes #-}

34

45{-# OPTIONS_GHC -fno-warn-orphans #-}

56

67module Main (main) where

78

8−import Prelude ()

99import Prelude.Compat

1010

1111import Control.DeepSeq

benchmarks/AesonParse.hs+1−1

@@ -1,9 +1,9 @@

11{-# LANGUAGE BangPatterns #-}

2+{-# LANGUAGE NoImplicitPrelude #-}

23{-# LANGUAGE OverloadedStrings #-}

34

45module Main (main) where

56

6−import Prelude ()

77import Prelude.Compat

88

99import Data.Aeson

benchmarks/AesonTuples.hs+2−1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

2+

13module Main (main) where

24

3−import Prelude ()

45import Prelude.Compat

56

67import Control.DeepSeq (deepseq)

benchmarks/Compare.hs+1−1

@@ -1,8 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE ScopedTypeVariables #-}

23

34module Main (main) where

45

5−import Prelude ()

66import Prelude.Compat

77

88import Compare.BufferBuilder ()

benchmarks/Compare/BufferBuilder.hs+1−1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-# LANGUAGE RecordWildCards #-}

34

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

67

78module Compare.BufferBuilder () where

89

9−import Prelude ()

1010import Prelude.Compat hiding ((<>))

1111

1212import Data.BufferBuilder.Json

benchmarks/Compare/JsonBench.hs+5−5

@@ -1,16 +1,16 @@

1−-- Adapted from a buffer-builder benchmark:

2−--

3−-- https://github.com/chadaustin/buffer-builder/blob/master/test.json

4−

51{-# LANGUAGE BangPatterns #-}

62{-# LANGUAGE MagicHash #-}

3+{-# LANGUAGE NoImplicitPrelude #-}

74{-# LANGUAGE OverloadedStrings #-}

85{-# LANGUAGE RecordWildCards #-}

96{-# LANGUAGE ScopedTypeVariables #-}

107

8+-- Adapted from a buffer-builder benchmark:

9+--

10+-- https://github.com/chadaustin/buffer-builder/blob/master/test.json

11+

1112module Compare.JsonBench (benchmarks) where

1213

13−import Prelude ()

1414import Prelude.Compat hiding ((<>))

1515

1616import Control.DeepSeq (NFData(..))

benchmarks/Compare/JsonBuilder.hs+1−1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE RecordWildCards #-}

23

34{-# OPTIONS_GHC -fno-warn-name-shadowing #-}

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

56

67module Compare.JsonBuilder () where

78

8−import Prelude ()

99import Prelude.Compat hiding ((<>))

1010

1111import Data.Json.Builder

benchmarks/CompareWithJSON.hs+2−1

@@ -1,8 +1,9 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

2+

13{-# OPTIONS_GHC -fno-warn-orphans #-}

24

35module Main (main) where

46

5−import Prelude ()

67import Prelude.Compat

78

89import Blaze.ByteString.Builder (toLazyByteString)

benchmarks/Dates.hs+2−1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

2+

13module Main (main) where

24

3−import Prelude ()

45import Prelude.Compat

56

67import Criterion.Main

benchmarks/Escape.hs+2−1

@@ -1,9 +1,10 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE ScopedTypeVariables #-}

3+

24{-# OPTIONS_GHC -fno-warn-name-shadowing #-}

35

46module Main (main) where

57

6−import Prelude ()

78import Prelude.Compat

89

910import Criterion.Main

benchmarks/JsonParse.hs+2−1

@@ -1,10 +1,11 @@

11{-# LANGUAGE BangPatterns #-}

2+{-# LANGUAGE NoImplicitPrelude #-}

23{-# LANGUAGE ScopedTypeVariables #-}

4+

35{-# OPTIONS_GHC -fno-warn-orphans #-}

46

57module Main (main) where

68

7−import Prelude ()

89import Prelude.Compat

910

1011import Control.DeepSeq

benchmarks/Micro.hs+2−1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

2+

13module Main (main) where

24

3−import Prelude ()

45import Prelude.Compat

56

67import Criterion.Main

benchmarks/ReadFile.hs+1−1

@@ -1,9 +1,9 @@

11{-# LANGUAGE BangPatterns #-}

2+{-# LANGUAGE NoImplicitPrelude #-}

23{-# LANGUAGE OverloadedStrings #-}

34

45module Main (main) where

56

6−import Prelude ()

77import Prelude.Compat

88

99import Control.DeepSeq

benchmarks/Typed.hs+2−1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

2+

13module Main (main) where

24

3−import Prelude ()

45import Prelude.Compat

56

67import Criterion.Main

benchmarks/Typed/Common.hs+2−1

@@ -1,8 +1,9 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

2+

13{-# OPTIONS_GHC -fno-warn-unused-imports #-}

24

35module Typed.Common (load) where

46

5−import Prelude ()

67import Prelude.Compat

78

89import Data.ByteString.Lazy as L

benchmarks/Typed/Generic.hs+2−1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

2+

13module Typed.Generic (benchmarks, decodeBenchmarks) where

24

3−import Prelude ()

45import Prelude.Compat

56

67import Data.Aeson hiding (Result)

benchmarks/Typed/Manual.hs+2−1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

2+

13module Typed.Manual (benchmarks, decodeBenchmarks) where

24

3−import Prelude ()

45import Prelude.Compat

56

67import Data.Aeson hiding (Result)

benchmarks/Typed/TH.hs+2−1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

2+

13module Typed.TH (benchmarks, decodeBenchmarks) where

24

3−import Prelude ()

45import Prelude.Compat

56

67import Data.Aeson hiding (Result)

examples/Generic.hs+1−1

@@ -6,11 +6,11 @@

66-- automatically derive the Generic class for us.

77

88{-# LANGUAGE DeriveGeneric #-}

9+{-# LANGUAGE NoImplicitPrelude #-}

910{-# LANGUAGE OverloadedStrings #-}

1011

1112module Main (main) where

1213

13−import Prelude ()

1414import Prelude.Compat

1515

1616import Data.Aeson (FromJSON, ToJSON, decode, encode)

examples/Simplest.hs+1−1

@@ -1,9 +1,9 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-# LANGUAGE RecordWildCards #-}

34

45module Main (main) where

56

6−import Prelude ()

77import Prelude.Compat

88

99import Control.Applicative (empty)

examples/TemplateHaskell.hs+1−1

@@ -1,12 +1,12 @@

11-- We can use Template Haskell (TH) to generate instances of the

22-- FromJSON and ToJSON classes automatically. This is the fastest way

33-- to add JSON support for a type.

4+{-# LANGUAGE NoImplicitPrelude #-}

45{-# LANGUAGE OverloadedStrings #-}

56{-# LANGUAGE TemplateHaskell #-}

67

78module Main (main) where

89

9−import Prelude ()

1010import Prelude.Compat

1111

1212import Data.Aeson (decode, encode)

examples/Twitter.hs+1−1

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

1010

1111{-# LANGUAGE DeriveDataTypeable #-}

1212{-# LANGUAGE DeriveGeneric #-}

13+{-# LANGUAGE NoImplicitPrelude #-}

1314

1415module Twitter

1516 (

@@ -19,7 +20,6 @@ module Twitter

1920 , Result(..)

2021 ) where

2122

22−import Prelude ()

2323import Prelude.Compat

2424

2525import Control.DeepSeq

examples/Twitter/Generic.hs+2−1

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

11-- Use GHC generics to automatically generate good instances.

22

3+{-# LANGUAGE NoImplicitPrelude #-}

4+

35{-# OPTIONS_GHC -fno-warn-orphans #-}

46

57module Twitter.Generic

@@ -10,7 +12,6 @@ module Twitter.Generic

1012 , Result(..)

1113 ) where

1214

13−import Prelude ()

1415import Prelude.Compat ()

1516

1617import Twitter

examples/Twitter/Manual.hs+2−2

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

11-- Manually write instances.

2−

2+{-# LANGUAGE NoImplicitPrelude #-}

33{-# LANGUAGE OverloadedStrings #-}

44{-# LANGUAGE RecordWildCards #-}

5+

56{-# OPTIONS_GHC -fno-warn-orphans #-}

67

78module Twitter.Manual

@@ -12,7 +13,6 @@ module Twitter.Manual

1213 , Result(..)

1314 ) where

1415

15−import Prelude ()

1616import Prelude.Compat

1717

1818import Control.Applicative

examples/Twitter/TH.hs+2−1

@@ -1,6 +1,8 @@

11-- Use Template Haskell to generate good instances.

22

3+{-# LANGUAGE NoImplicitPrelude #-}

34{-# LANGUAGE TemplateHaskell #-}

5+

46{-# OPTIONS_GHC -fno-warn-orphans #-}

57

68module Twitter.TH

@@ -11,7 +13,6 @@ module Twitter.TH

1113 , Result(..)

1214 ) where

1315

14−import Prelude ()

1516

1617import Twitter

1718import Twitter.Options

tests/DataFamilies/Encoders.hs+1−1

@@ -1,10 +1,10 @@

11{-# LANGUAGE CPP #-}

22{-# LANGUAGE GADTs #-}

3+{-# LANGUAGE NoImplicitPrelude #-}

34{-# LANGUAGE TemplateHaskell #-}

45

56module DataFamilies.Encoders (module DataFamilies.Encoders) where

67

7−import Prelude ()

88import Prelude.Compat

99

1010import Data.Aeson.TH

tests/DataFamilies/Instances.hs+2−1

@@ -1,12 +1,13 @@

11{-# LANGUAGE FlexibleInstances #-}

22{-# LANGUAGE GADTs #-}

3+{-# LANGUAGE NoImplicitPrelude #-}

34{-# LANGUAGE TemplateHaskell #-}

45{-# LANGUAGE TypeFamilies #-}

6+

57{-# OPTIONS_GHC -fno-warn-orphans #-}

68

79module DataFamilies.Instances () where

810

9−import Prelude ()

1011import Prelude.Compat

1112

1213import Data.Aeson.TH

tests/DataFamilies/Properties.hs+1−1

@@ -1,8 +1,8 @@

11{-# LANGUAGE CPP #-}

2+{-# LANGUAGE NoImplicitPrelude #-}

23

34module DataFamilies.Properties (tests) where

45

5−import Prelude ()

66import Prelude.Compat

77

88import DataFamilies.Encoders

tests/DataFamilies/Types.hs+1−1

@@ -4,13 +4,13 @@

44{-# LANGUAGE FlexibleInstances #-}

55{-# LANGUAGE GADTs #-}

66{-# LANGUAGE GeneralizedNewtypeDeriving #-}

7+{-# LANGUAGE NoImplicitPrelude #-}

78{-# LANGUAGE StandaloneDeriving #-}

89{-# LANGUAGE TemplateHaskell #-}

910{-# LANGUAGE TypeFamilies #-}

1011

1112module DataFamilies.Types (module DataFamilies.Types) where

1213

13−import Prelude ()

1414import Prelude.Compat

1515

1616import Generics.Deriving.TH (deriveAll0)

tests/Encoders.hs+1−1

@@ -1,10 +1,10 @@

11{-# LANGUAGE CPP #-}

22{-# LANGUAGE GADTs #-}

3+{-# LANGUAGE NoImplicitPrelude #-}

34{-# LANGUAGE TemplateHaskell #-}

45

56module Encoders (module Encoders) where

67

7−import Prelude ()

88import Prelude.Compat

99

1010import Data.Aeson.TH

tests/ErrorMessages.hs+1−1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-# LANGUAGE ScopedTypeVariables #-}

34

@@ -6,7 +7,6 @@ module ErrorMessages

67 tests

78 ) where

89

9−import Prelude ()

1010import Prelude.Compat

1111

1212import Data.Aeson (FromJSON(..), eitherDecode)

tests/Functions.hs+2−1

@@ -1,10 +1,11 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

2+

13module Functions

24 (

35 approxEq

46 , approxEqWith

57 ) where

68

7−import Prelude ()

89import Prelude.Compat

910

1011approxEq :: (Fractional a, Ord a) => a -> a -> Bool

tests/Instances.hs+2−1

@@ -1,13 +1,14 @@

11{-# LANGUAGE CPP #-}

22{-# LANGUAGE FlexibleContexts #-}

33{-# LANGUAGE FlexibleInstances #-}

4+{-# LANGUAGE NoImplicitPrelude #-}

45{-# LANGUAGE OverloadedStrings #-}

56{-# LANGUAGE RecordWildCards #-}

7+

68{-# OPTIONS_GHC -fno-warn-orphans #-}

79

810module Instances () where

911

10−import Prelude ()

1112import Prelude.Compat

1213

1314import Control.Applicative (empty)

tests/JSONTestSuite/parsers/test_haskell-aeson/testaeson.cabal+5−3

@@ -1,6 +1,8 @@

1−-- This file has been generated from package.yaml by hpack version 0.14.0.

1+-- This file has been generated from package.yaml by hpack version 0.28.2.

22--

33-- see: https://github.com/sol/hpack

4+--

5+-- hash: 716ef4c3e64849526f097b85ed05015e0072c2e2afcc1f91e58d8bea68b123b2

46

57name: testaeson

68version: 0.0.0

@@ -12,8 +14,8 @@ executable testaeson

1214 hs-source-dirs:

1315 src

1416 build-depends:

15− base >= 4.7 && < 5

16− , aeson

17+ aeson

18+ , base >=4.7 && <5

1719 , base-prelude

1820 , bytestring

1921 default-language: Haskell2010

tests/Options.hs+2−1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

2+

13module Options (module Options) where

24

3−import Prelude ()

45import Prelude.Compat

56

67import Data.Aeson.Types

tests/Properties.hs+1−1

@@ -1,12 +1,12 @@

11{-# LANGUAGE CPP #-}

22{-# LANGUAGE FlexibleContexts #-} -- For arbitrary Compose

3+{-# LANGUAGE NoImplicitPrelude #-}

34{-# LANGUAGE OverloadedStrings #-}

45{-# LANGUAGE RankNTypes #-}

56{-# LANGUAGE ScopedTypeVariables #-}

67

78module Properties (module Properties) where

89

9−import Prelude ()

1010import Prelude.Compat

1111

1212import Control.Applicative (Const)

tests/SerializationFormatSpec.hs+1−1

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

11{-# LANGUAGE CPP #-}

22{-# LANGUAGE DeriveGeneric #-}

33{-# LANGUAGE GADTs #-}

4+{-# LANGUAGE NoImplicitPrelude #-}

45{-# LANGUAGE OverloadedStrings #-}

56#if __GLASGOW_HASKELL__ >= 708

67{-# LANGUAGE DataKinds #-}

@@ -15,7 +16,6 @@ module SerializationFormatSpec

1516 tests

1617 ) where

1718

18−import Prelude ()

1919import Prelude.Compat

2020

2121import Control.Applicative (Const(..))

tests/Tests.hs+2−1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

2+

13module Main (main) where

24

3−import Prelude ()

45import Prelude.Compat

56

67import Test.Tasty (defaultMain, testGroup)

tests/Types.hs+4−3

@@ -4,15 +4,16 @@

44{-# LANGUAGE FlexibleInstances #-}

55{-# LANGUAGE GADTs #-}

66{-# LANGUAGE GeneralizedNewtypeDeriving #-}

7−{-# LANGUAGE StandaloneDeriving #-}

7+{-# LANGUAGE NoImplicitPrelude #-}

88{-# LANGUAGE ScopedTypeVariables #-}

9+{-# LANGUAGE StandaloneDeriving #-}

910

1011module Types (module Types) where

1112

12−import Prelude ()

1313import Prelude.Compat

1414

1515import Math.NumberTheory.Logarithms (intLog2)

16+import Control.Applicative ((<$>))

1617import Data.Data

1718import Data.Functor.Compose (Compose (..))

1819import Data.Functor.Identity (Identity (..))

@@ -152,7 +153,7 @@ instance Hashable a => Hashable (LogScaled a) where

152153 hashWithSalt salt (LogScaled a) = hashWithSalt salt a

153154

154155instance Arbitrary a => Arbitrary (LogScaled a) where

155− arbitrary = fmap LogScaled $ scale (\x -> intLog2 $ x + 1) arbitrary

156+ arbitrary = LogScaled <$> scale (\x -> intLog2 $ x + 1) arbitrary

156157 shrink = fmap LogScaled . shrink . getLogScaled

157158

158159instance ToJSON a => ToJSON (LogScaled a) where

tests/UnitTests.hs+1−1

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

11{-# LANGUAGE CPP #-}

22{-# LANGUAGE DeriveGeneric #-}

33{-# LANGUAGE GeneralizedNewtypeDeriving #-}

4+{-# LANGUAGE NoImplicitPrelude #-}

45{-# LANGUAGE OverloadedStrings #-}

56{-# LANGUAGE ScopedTypeVariables #-}

67{-# LANGUAGE TemplateHaskell #-}

@@ -19,7 +20,6 @@ module UnitTests

1920 , withEmbeddedJSONTest

2021 ) where

2122

22−import Prelude ()

2323import Prelude.Compat

2424

2525import Control.Monad (forM, forM_)

tests/UnitTests/NullaryConstructors.hs+2−2

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

1−{-# LANGUAGE OverloadedStrings #-}

1+{-# LANGUAGE NoImplicitPrelude #-}

2+{-# LANGUAGE OverloadedStrings #-}

23

34{-# OPTIONS_GHC -fno-warn-deprecations #-}

45

@@ -7,7 +8,6 @@ module UnitTests.NullaryConstructors

78 nullaryConstructors

89 ) where

910

10−import Prelude ()

1111import Prelude.Compat

1212

1313import Data.Aeson (decode, eitherDecode, fromEncoding, Value)