hpack 0.14.0 → 0.14.1

raw patch · 4 files changed

+7/−7 lines, 4 files

Files

hpack.cabal +2/−2
src/Hpack/Config.hs +1/−1
src/Hpack/GenericsUtil.hs +2/−2
test/Helper.hs +2/−2

hpack.cabal view

@@ -1,9 +1,9 @@--- This file has been generated from package.yaml by hpack version 0.12.0.+-- This file has been generated from package.yaml by hpack version 0.14.0. -- -- see: https://github.com/sol/hpack  name:           hpack-version:        0.14.0+version:        0.14.1 synopsis:       An alternative format for Haskell packages category:       Development homepage:       https://github.com/sol/hpack#readme

src/Hpack/Config.hs view

@@ -119,7 +119,7 @@ class HasFieldNames a where   fieldNames :: Proxy a -> [FieldName] -  default fieldNames :: (HasTypeName a, Generic a, Selectors (Rep a)) => Proxy a -> [String]+  default fieldNames :: (HasTypeName a, Selectors (Rep a)) => Proxy a -> [String]   fieldNames proxy = map (hyphenize $ typeName proxy) (selectors proxy)  data CaptureUnknownFields a = CaptureUnknownFields {

src/Hpack/GenericsUtil.hs view

@@ -21,10 +21,10 @@ instance (Datatype d, Generic a, Rep a ~ M1 D d m) => HasTypeName a where   typeName _ = datatypeName (undefined :: M1 D d x y) -selectors :: (Generic a, Selectors (Rep a)) => Proxy a -> [String]+selectors :: (Selectors (Rep a)) => Proxy a -> [String] selectors = f   where-    f :: forall a. (Generic a, Selectors (Rep a)) => Proxy a -> [String]+    f :: forall a. (Selectors (Rep a)) => Proxy a -> [String]     f _ = selNames (Proxy :: Proxy (Rep a))  class Selectors a where

test/Helper.hs view

@@ -10,14 +10,14 @@ import           Test.Hspec import           Test.Mockery.Directory import           Control.Applicative-import           System.Directory+import           System.Directory (getCurrentDirectory, setCurrentDirectory, canonicalizePath) import           Control.Exception import qualified System.IO.Temp as Temp import           System.FilePath  withCurrentDirectory :: FilePath -> IO a -> IO a withCurrentDirectory dir action = do-  bracket (getCurrentDirectory) (setCurrentDirectory) $ \ _ -> do+  bracket getCurrentDirectory setCurrentDirectory $ \ _ -> do     setCurrentDirectory dir     action