diff options
author | Don Stewart <dons@galois.com> | 2008-03-05 03:37:12 +0000 |
---|---|---|
committer | Don Stewart <dons@galois.com> | 2008-03-05 03:37:12 +0000 |
commit | f4275e0d21fd3ccce9d2a585c42ecba0a71dae5f (patch) | |
tree | 25b348978b560410978c4e6b84c3fb146edb1070 /libraries/base/include | |
parent | c0e1b8dd3f3014e20a6a8b6a3a9a017cdde27f59 (diff) | |
download | haskell-f4275e0d21fd3ccce9d2a585c42ecba0a71dae5f.tar.gz |
untabify
Diffstat (limited to 'libraries/base/include')
-rw-r--r-- | libraries/base/include/CTypes.h | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libraries/base/include/CTypes.h b/libraries/base/include/CTypes.h index a3a8b3a273..3ca9f1c6ad 100644 --- a/libraries/base/include/CTypes.h +++ b/libraries/base/include/CTypes.h @@ -114,7 +114,7 @@ instance Bits T where { \ instance Fractional T where { \ (T x) / (T y) = T (x / y) ; \ recip (T x) = T (recip x) ; \ - fromRational r = T (fromRational r) } + fromRational r = T (fromRational r) } #define INSTANCE_FLOATING(T) \ instance Floating T where { \ @@ -197,14 +197,14 @@ INSTANCE_TYPEABLE0(T,C,S) ; #define INSTANCE_READ(T,B) \ instance Read T where { \ - readsPrec = unsafeCoerce# (readsPrec :: Int -> ReadS B); \ - readList = unsafeCoerce# (readList :: ReadS [B]); } + readsPrec = unsafeCoerce# (readsPrec :: Int -> ReadS B); \ + readList = unsafeCoerce# (readList :: ReadS [B]); } #define INSTANCE_SHOW(T,B) \ instance Show T where { \ - showsPrec = unsafeCoerce# (showsPrec :: Int -> B -> ShowS); \ - show = unsafeCoerce# (show :: B -> String); \ - showList = unsafeCoerce# (showList :: [B] -> ShowS); } + showsPrec = unsafeCoerce# (showsPrec :: Int -> B -> ShowS); \ + show = unsafeCoerce# (show :: B -> String); \ + showList = unsafeCoerce# (showList :: [B] -> ShowS); } #endif /* __GLASGOW_HASKELL__ */ |