postgresql-typed 0.4.2 → 0.4.2.1

raw patch · 2 files changed

+3/−2 lines, 2 files

Files

• Database/PostgreSQL/Typed/Enum.hs +2/−1
• postgresql-typed.cabal +1/−1

@@ -15,6 +15,7 @@ import qualified Data.ByteString as BS import qualified Data.ByteString.Char8 as BSC import qualified Data.ByteString.Lazy as BSL+import Data.Ix (Ix) import Data.String (fromString) import Data.Typeable (Typeable) import qualified Language.Haskell.TH as TH@@ -56,7 +57,7 @@     valn = map (\[PGTextValue v] -> let u = BSC.unpack v in (TH.mkName $ valnf u, map (TH.IntegerL . fromIntegral) $ BS.unpack v, TH.StringL u)) vals   dv <- TH.newName "x"   return-    [ TH.DataD [] typn [] (map (\(n, _, _) -> TH.NormalC n []) valn) [''Eq, ''Ord, ''Enum, ''Bounded, ''Typeable]+    [ TH.DataD [] typn [] (map (\(n, _, _) -> TH.NormalC n []) valn) [''Eq, ''Ord, ''Enum, ''Ix, ''Bounded, ''Typeable]     , TH.InstanceD [] (TH.ConT ''Show `TH.AppT` typt)       [ TH.FunD 'show $ map (\(n, _, v) -> TH.Clause [TH.ConP n []]         (TH.NormalB $ TH.LitE v) []) valn

@@ -1,5 +1,5 @@ Name:          postgresql-typed-Version:       0.4.2+Version:       0.4.2.1 Cabal-Version: >= 1.8 License:       BSD3 License-File:  COPYING