rfc 0.0.0.7 → 0.0.0.8

raw patch · 3 files changed

+12/−4 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• rfc.cabal +2/−1
• src/RFC/Data/UUID.hs +4/−1
• src/RFC/JSON.hs +6/−2

@@ -1,5 +1,5 @@ name:                rfc-version:             0.0.0.7+version:             0.0.0.8 synopsis:            Robert Fischer's Common library description:         An enhanced Prelude and various utilities for Aeson, Servant, PSQL, and Redis that Robert Fischer uses. homepage:            https://github.com/RobertFischer/rfc#README.md@@ -27,6 +27,7 @@   hs-source-dirs:      src   build-depends:       base >= 4.7 && < 5   default-language:    Haskell2010+  default-extensions:  NoImplicitPrelude   ghc-options:         -Wall -fno-warn-orphans -fno-warn-name-shadowing   if flag(Development)     ghc-options:       -Werror

@@ -7,14 +7,17 @@   ( module Data.UUID.Types   ) where +import           ClassyPrelude+import           RFC.String+ import           Data.UUID.Types import qualified Data.UUID.Types                    as UUID+ #ifndef GHCJS_BROWSER import           Database.PostgreSQL.Simple.FromRow import           Database.PostgreSQL.Simple.ToRow import           Database.PostgreSQL.Simple.Types   (Only (..)) #endif-import           RFC.String  #ifndef GHCJS_BROWSER instance FromRow UUID where

@@ -1,6 +1,7 @@ {-# LANGUAGE DeriveGeneric     #-} {-# LANGUAGE NoImplicitPrelude #-} + module RFC.JSON ( jsonOptions , deriveJSON@@ -15,12 +16,15 @@ , Value(..) , encode , decode+, module Data.Aeson.Types ) where +import           ClassyPrelude import           Data.Aeson       as JSON import           Data.Aeson.TH    (deriveJSON) import           Data.Aeson.Types (Options (..), SumEncoding (..))-import           RFC.Prelude+import           Data.Char+import           RFC.String  jsonOptions :: Options jsonOptions = defaultOptions@@ -32,7 +36,7 @@   where     ctm []     = []     ctm (c:cs) = (charToLower c):cs-    flm = flm' . span charIsLower+    flm = flm' . span isLower     flm' (cs, []) = cs     flm' (_, cs)  = lowerFirst cs     lowerFirst []     = []