From: Ian Lynagh <igloo@earth.li>
Date: Tue, 24 Jun 2008 14:49:55 +0000 (+0000)
Subject: Add GHC.Unit for the definition of the () type
X-Git-Tag: 6_10_branch_has_been_forked~11
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=76c57ed48607324ec4a89b55f29a47be980fb2c0;p=ghc-prim.git

Add GHC.Unit for the definition of the () type
---

diff --git a/GHC/Unit.hs b/GHC/Unit.hs
new file mode 100644
index 0000000..09ebe73
--- /dev/null
+++ b/GHC/Unit.hs
@@ -0,0 +1,18 @@
+
+{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+
+module GHC.Unit where
+
+import GHC.Generics ()
+
+default ()
+
+{-
+The Unit type is here because GHC.PrimopWrappers needs to use it in a
+type signature.
+-}
+
+-- | The unit datatype @()@ has one non-undefined member, the nullary
+-- constructor @()@.
+data () = ()
+
diff --git a/ghc-prim.cabal b/ghc-prim.cabal
index f4235f6..0983598 100644
--- a/ghc-prim.cabal
+++ b/ghc-prim.cabal
@@ -17,6 +17,7 @@ Library {
         GHC.PrimopWrappers
         GHC.IntWord32
         GHC.IntWord64
+        GHC.Unit
     c-sources:
         cbits/longlong.c
     extensions: CPP, MagicHash, ForeignFunctionInterface, UnliftedFFITypes