diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2016-02-22 21:31:35 +0100 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2016-02-23 12:27:40 +0100 |
| commit | 8626ac91a3cac028bbe742f07a1ce9fb598589f6 (patch) | |
| tree | c59cf1f913f513627a2de1e971ca371d402e17f8 /testsuite/tests/stranal | |
| parent | 31c312ebd29a4e79c166ad5dbbd5b57b42b6fafa (diff) | |
| download | haskell-8626ac91a3cac028bbe742f07a1ce9fb598589f6.tar.gz | |
Testsuite: delete Windows line endings [skip ci] (#11631)
Diffstat (limited to 'testsuite/tests/stranal')
| -rw-r--r-- | testsuite/tests/stranal/should_compile/T8037.hs | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/testsuite/tests/stranal/should_compile/T8037.hs b/testsuite/tests/stranal/should_compile/T8037.hs index 62d2a13621..58f16b1315 100644 --- a/testsuite/tests/stranal/should_compile/T8037.hs +++ b/testsuite/tests/stranal/should_compile/T8037.hs @@ -1,17 +1,17 @@ -module T8037 where
-
-import Unsafe.Coerce
-import Foreign.C.Types
-import System.IO.Unsafe
-
-data D4 = D4 CInt CInt CInt
-data Color3 = Color3 CInt CInt
-
-crash :: D4 -> IO ()
-crash x = color (unsafeCoerce x)
-
-color :: Color3 -> IO ()
-color (Color3 r g) = f (unsafePerformIO undefined) r g
-
-foreign import ccall f :: CInt -> CInt -> CInt -> IO ()
-
+module T8037 where + +import Unsafe.Coerce +import Foreign.C.Types +import System.IO.Unsafe + +data D4 = D4 CInt CInt CInt +data Color3 = Color3 CInt CInt + +crash :: D4 -> IO () +crash x = color (unsafeCoerce x) + +color :: Color3 -> IO () +color (Color3 r g) = f (unsafePerformIO undefined) r g + +foreign import ccall f :: CInt -> CInt -> CInt -> IO () + |