summaryrefslogtreecommitdiff
path: root/lib/Data/Packed/Internal
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Data/Packed/Internal')
-rw-r--r--lib/Data/Packed/Internal/Common.hs10
1 files changed, 1 insertions, 9 deletions
diff --git a/lib/Data/Packed/Internal/Common.hs b/lib/Data/Packed/Internal/Common.hs
index 5ac4f5a..baeb5bc 100644
--- a/lib/Data/Packed/Internal/Common.hs
+++ b/lib/Data/Packed/Internal/Common.hs
@@ -22,16 +22,8 @@ import Control.Monad(when)
22import Debug.Trace 22import Debug.Trace
23import Foreign.C.String(peekCString) 23import Foreign.C.String(peekCString)
24import Foreign.C.Types 24import Foreign.C.Types
25import Foreign.Storable.Complex
25 26
26----------------------------------------------------------------------
27instance (Storable a, RealFloat a) => Storable (Complex a) where --
28 alignment x = alignment (realPart x) --
29 sizeOf x = 2 * sizeOf (realPart x) --
30 peek p = do --
31 [re,im] <- peekArray 2 (castPtr p) --
32 return (re :+ im) --
33 poke p (a :+ b) = pokeArray (castPtr p) [a,b] --
34----------------------------------------------------------------------
35 27
36-- | @debug x = trace (show x) x@ 28-- | @debug x = trace (show x) x@
37debug :: (Show a) => a -> a 29debug :: (Show a) => a -> a