packages feed

convertible-text 0.2.0 → 0.2.0.1

raw patch · 2 files changed

+1/−105 lines, 2 files

Files

Data/Convertible/Instances/C.hs view
@@ -33,24 +33,16 @@ $(deriveAttempts     [ (''CChar, ''Integer)     , (''CDouble, ''CFloat)-    , (''CDouble, ''CLDouble)     , (''CDouble, ''Double)     , (''CDouble, ''Float)     , (''CDouble, ''Integer)     , (''CDouble, ''Rational)     , (''CFloat, ''CDouble)-    , (''CFloat, ''CLDouble)     , (''CFloat, ''Double)     , (''CFloat, ''Float)     , (''CFloat, ''Integer)     , (''CFloat, ''Rational)     , (''CInt, ''Integer)-    , (''CLDouble, ''CDouble)-    , (''CLDouble, ''CFloat)-    , (''CLDouble, ''Double)-    , (''CLDouble, ''Float)-    , (''CLDouble, ''Integer)-    , (''CLDouble, ''Rational)     , (''CLLong, ''Integer)     , (''CLong, ''Integer)     , (''CSChar, ''Integer)@@ -64,46 +56,32 @@     , (''CWchar, ''Integer)     , (''Double, ''CDouble)     , (''Double, ''CFloat)-    , (''Double, ''CLDouble)     , (''Float, ''CDouble)     , (''Float, ''CFloat)-    , (''Float, ''CLDouble)     , (''Int16, ''CDouble)     , (''Int16, ''CFloat)-    , (''Int16, ''CLDouble)     , (''Int32, ''CDouble)     , (''Int32, ''CFloat)-    , (''Int32, ''CLDouble)     , (''Int64, ''CDouble)     , (''Int64, ''CFloat)-    , (''Int64, ''CLDouble)     , (''Int8, ''CDouble)     , (''Int8, ''CFloat)-    , (''Int8, ''CLDouble)     , (''Int, ''CDouble)     , (''Int, ''CFloat)-    , (''Int, ''CLDouble)     , (''Integer, ''CDouble)     , (''Integer, ''CFloat)-    , (''Integer, ''CLDouble)     , (''Rational, ''CDouble)     , (''Rational, ''CFloat)-    , (''Rational, ''CLDouble)     , (''Word16, ''CDouble)     , (''Word16, ''CFloat)-    , (''Word16, ''CLDouble)     , (''Word32, ''CDouble)     , (''Word32, ''CFloat)-    , (''Word32, ''CLDouble)     , (''Word64, ''CDouble)     , (''Word64, ''CFloat)-    , (''Word64, ''CLDouble)     , (''Word8, ''CDouble)     , (''Word8, ''CFloat)-    , (''Word8, ''CLDouble)     , (''Word, ''CDouble)     , (''Word, ''CFloat)-    , (''Word, ''CLDouble)     ])  -- remainder of this file generated by utils/genCinstances.hs@@ -209,56 +187,6 @@ instance ConvertSuccess Word64 CDouble where      convertSuccess= fromIntegral -instance ConvertAttempt CLDouble Int where -    convertAttempt = boundedConversion (return . truncate)-instance ConvertSuccess Int CLDouble where -    convertSuccess= fromIntegral--instance ConvertAttempt CLDouble Int8 where -    convertAttempt = boundedConversion (return . truncate)-instance ConvertSuccess Int8 CLDouble where -    convertSuccess= fromIntegral--instance ConvertAttempt CLDouble Int16 where -    convertAttempt = boundedConversion (return . truncate)-instance ConvertSuccess Int16 CLDouble where -    convertSuccess= fromIntegral--instance ConvertAttempt CLDouble Int32 where -    convertAttempt = boundedConversion (return . truncate)-instance ConvertSuccess Int32 CLDouble where -    convertSuccess= fromIntegral--instance ConvertAttempt CLDouble Int64 where -    convertAttempt = boundedConversion (return . truncate)-instance ConvertSuccess Int64 CLDouble where -    convertSuccess= fromIntegral--instance ConvertAttempt CLDouble Word where -    convertAttempt = boundedConversion (return . truncate)-instance ConvertSuccess Word CLDouble where -    convertSuccess= fromIntegral--instance ConvertAttempt CLDouble Word8 where -    convertAttempt = boundedConversion (return . truncate)-instance ConvertSuccess Word8 CLDouble where -    convertSuccess= fromIntegral--instance ConvertAttempt CLDouble Word16 where -    convertAttempt = boundedConversion (return . truncate)-instance ConvertSuccess Word16 CLDouble where -    convertSuccess= fromIntegral--instance ConvertAttempt CLDouble Word32 where -    convertAttempt = boundedConversion (return . truncate)-instance ConvertSuccess Word32 CLDouble where -    convertSuccess= fromIntegral--instance ConvertAttempt CLDouble Word64 where -    convertAttempt = boundedConversion (return . truncate)-instance ConvertSuccess Word64 CLDouble where -    convertSuccess= fromIntegral- -- Section 2 instance ConvertSuccess CFloat Double where     convertSuccess = realToFrac@@ -290,21 +218,6 @@ instance ConvertSuccess Rational CDouble where     convertSuccess = realToFrac -instance ConvertSuccess CLDouble Double where-    convertSuccess = realToFrac-instance ConvertSuccess Double CLDouble where-    convertSuccess = realToFrac--instance ConvertSuccess CLDouble Float where-    convertSuccess = realToFrac-instance ConvertSuccess Float CLDouble where-    convertSuccess = realToFrac--instance ConvertSuccess CLDouble Rational where-    convertSuccess = realToFrac-instance ConvertSuccess Rational CLDouble where-    convertSuccess = realToFrac- -- Section 3 instance ConvertAttempt CChar Int where     convertAttempt = boundedConversion (return . fromIntegral)@@ -1429,21 +1342,9 @@ instance ConvertSuccess CFloat CDouble where     convertSuccess = realToFrac -instance ConvertSuccess CFloat CLDouble where-    convertSuccess = realToFrac- instance ConvertSuccess CDouble CFloat where     convertSuccess = realToFrac -instance ConvertSuccess CDouble CLDouble where-    convertSuccess = realToFrac--instance ConvertSuccess CLDouble CFloat where-    convertSuccess = realToFrac--instance ConvertSuccess CLDouble CDouble where-    convertSuccess = realToFrac- -- Section 6 instance ConvertSuccess CFloat Integer where     convertSuccess = truncate@@ -1453,11 +1354,6 @@ instance ConvertSuccess CDouble Integer where     convertSuccess = truncate instance ConvertSuccess Integer CDouble where-    convertSuccess = fromIntegral--instance ConvertSuccess CLDouble Integer where-    convertSuccess = truncate-instance ConvertSuccess Integer CLDouble where     convertSuccess = fromIntegral  -- Section 7
convertible-text.cabal view
@@ -1,5 +1,5 @@ Name: convertible-text-Version: 0.2.0+Version: 0.2.0.1 License: LGPL Maintainer: Michael Snoyman <michael@snoyman.com> Author: John Goerzen, Michael Snoyman