Commit fd844793 authored by simonpj's avatar simonpj

[project @ 2004-02-24 11:52:34 by simonpj]

Comment only
parent 42be1de4
......@@ -480,7 +480,7 @@ data BangType name = BangType HsBang (LHsType name)
data HsBang = HsNoBang
| HsStrict -- !
| HsUnbox -- !! (GHC extension, meaning "unbox")
| HsUnbox -- {-# UNPACK #-} ! (GHC extension, meaning "unbox")
getBangType (BangType _ ty) = ty
getBangStrictness (BangType s _) = s
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment