Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add test files for mutually recursive modules.

  • Loading branch information...
commit 8f675ebd7016daf0955a15e5b2720360110a4dab 1 parent 4b5a2a1
@nominolo nominolo authored
View
4 .gitignore
@@ -2,9 +2,11 @@
asm_offsets.incl
gen_offs
*.hi
+*.hi-boot
+*.o-boot
.deps
*~
-tests/*.lcbc
+*.lcbc
# Util executables
utils/genopcodes
utils/print_config
View
4 tests/GHC/Bool.hs
@@ -0,0 +1,4 @@
+{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+module GHC.Bool (Bool(..)) where
+
+data Bool = False | True
View
11 tests/MutRecA.hs
@@ -0,0 +1,11 @@
+{-# LANGUAGE NoImplicitPrelude, MagicHash #-}
+module MutRecA where
+
+import GHC.Prim
+
+import {-# SOURCE #-} MutRecB
+
+data A = A Int# B
+
+f :: A -> Int#
+f (A n _) = n
View
8 tests/MutRecB.hs
@@ -0,0 +1,8 @@
+{-# LANGUAGE NoImplicitPrelude, MagicHash #-}
+module MutRecB where
+
+import GHC.Bool
+
+import MutRecA
+
+data B = B Bool A
View
6 tests/MutRecB.hs-boot
@@ -0,0 +1,6 @@
+{-# LANGUAGE NoImplicitPrelude, MagicHash #-}
+module MutRecB where
+
+import GHC.Bool
+
+data B -- = B Bool A
Please sign in to comment.
Something went wrong with that request. Please try again.