ms-tds 0.4.0.1 → 0.4.0.2

raw patch · 2 files changed

+13/−14 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ms-tds.cabal +3/−3
• src/Database/Tds/Primitives/Fixed.hs +10/−11

@@ -1,13 +1,13 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.31.1.+-- This file has been generated from package.yaml by hpack version 0.33.0. -- -- see: https://github.com/sol/hpack ----- hash: 6b929ccf4f7917678f4bf7ee98be72ed9fd5eb5505a7379bb35387ddc1004d42+-- hash: 62ac1f20af7f048e2567752d2a2b224f35b742e04aa39beed9bb54ab0c5c5d2e  name:           ms-tds-version:        0.4.0.1+version:        0.4.0.2 synopsis:       TDS Protocol implemented in Haskell description:    Please see the README on GitHub at <https://github.com/mitsuji/ms-tds#readme> category:       Database

@@ -84,7 +84,6 @@  import Data.Monoid ((<>)) import Language.Haskell.TH-import Language.Haskell.TH.Syntax (returnQ) import Data.Fixed (HasResolution(..),Fixed(..))  @@ -92,9 +91,9 @@ -- ... -- data Exp38 #if MIN_VERSION_template_haskell(2,11,0)-returnQ $ (flip map) [0..38] $ \i -> DataD [] (mkName $ "Exp" <> (show i)) [] Nothing [] []+$(return $ (flip map) [0..38] $ \i -> DataD [] (mkName $ "Exp" <> (show i)) [] Nothing [] []) #else-returnQ $ (flip map) [0..38] $ \i -> DataD [] (mkName $ "Exp" <> (show i)) [] [] []+$(return $ (flip map) [0..38] $ \i -> DataD [] (mkName $ "Exp" <> (show i)) [] [] []) #endif  @@ -102,20 +101,20 @@ -- ... -- instance HasResolution Exp38 where resolution _ = 100000000000000000000000000000000000000 #if MIN_VERSION_template_haskell(2,11,0)-returnQ $ (flip map) [0..38] $ \i ->-  InstanceD Nothing [] (AppT (ConT ''HasResolution) (ConT $ (mkName $ "Exp" <> (show i))))-  [FunD 'resolution [Clause [WildP] (NormalB (LitE (IntegerL (10^i)))) []]]+$(return $ (flip map) [0..38] $ \i ->+    InstanceD Nothing [] (AppT (ConT ''HasResolution) (ConT $ (mkName $ "Exp" <> (show i))))+    [FunD 'resolution [Clause [WildP] (NormalB (LitE (IntegerL (10^i)))) []]]) #else-returnQ $ (flip map) [0..38] $ \i ->-  InstanceD [] (AppT (ConT ''HasResolution) (ConT $ (mkName $ "Exp" <> (show i))))-  [FunD 'resolution [Clause [WildP] (NormalB (LitE (IntegerL (10^i)))) []]]+$(return $ (flip map) [0..38] $ \i ->+    InstanceD [] (AppT (ConT ''HasResolution) (ConT $ (mkName $ "Exp" <> (show i))))+    [FunD 'resolution [Clause [WildP] (NormalB (LitE (IntegerL (10^i)))) []]]) #endif   -- type Fixed0 = Fixed Exp0 -- ... -- type Fixed38 = Fixed Exp38-returnQ $ (flip map) [0..38] $ \i -> TySynD (mkName $ "Fixed" <> (show i)) [] $-                                     AppT (ConT ''Fixed) (ConT $ mkName $ "Exp" <> (show i))+$(return $ (flip map) [0..38] $ \i -> TySynD (mkName $ "Fixed" <> (show i)) [] $+                                      AppT (ConT ''Fixed) (ConT $ mkName $ "Exp" <> (show i)))