fclabels 1.1.4.1 → 1.1.4.2

raw patch · 2 files changed

+14/−8 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• fclabels.cabal +5/−7
• src/Data/Label/Derive.hs +9/−1

@@ -1,5 +1,5 @@ Name:          fclabels-Version:       1.1.4.1+Version:       1.1.4.2 Author:        Sebastiaan Visser, Erik Hesselink, Chris Eidhof, Sjoerd Visscher                with lots of help and feedback from others. Synopsis:      First class accessor labels.@@ -20,11 +20,9 @@                .                See the "Data.Label.Maybe" module for the use of partial labels.                .-               > 1.1.4 -> 1.1.4.1-               >   - Changed infix type variables to named type variables.-               >     This makes fclabels compile with GHC > 7.6.-               >   - Added the `osi` (flipped iso) again.-+               > 1.1.4 -> 1.1.4.2+               >   - Make compilable against template haskell 2.8.+               >     Thanks to Shimuuar for the pull request.  Maintainer:    Sebastiaan Visser <code@fvisser.nl> License:       BSD3@@ -49,7 +47,7 @@   GHC-Options: -Wall   Build-Depends:       base                       < 5-    , template-haskell >= 2.2 && < 2.8+    , template-haskell >= 2.2 && < 2.9     , mtl              >= 1.0 && < 2.2     , transformers     >= 0.2 && < 0.4 

@@ -5,6 +5,7 @@   , FlexibleContexts   , FlexibleInstances   , TypeOperators+  , CPP   #-} module Data.Label.Derive ( mkLabels@@ -122,7 +123,14 @@   where      -- Generate an inline declaration for the label.-    inline = PragmaD (InlineP labelName (InlineSpec True True (Just (True, 0))))+    --+    -- Type of InlineSpec changed in TH-2.8.0 (GHC 7.6)+#if MIN_VERSION_template_haskell(2,8,0)+    doInline = Inline+#else+    doInline = True+#endif+    inline = PragmaD (InlineP labelName (InlineSpec doInline True (Just (True, 0))))     labelName = mkName (makeLabel (nameBase field))      -- Build a single record label definition for labels that might fail.