[commit: ghc] master: Whitespace only in basicTypes/Avail.hs (f749f06)
Ian Lynagh
igloo at ghc.haskell.org
Sat Jul 27 15:21:00 CEST 2013
Repository : http://darcs.haskell.org/ghc.git/
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/f749f065a0856978bfa7dd028276bbc5f9a60750
>---------------------------------------------------------------
commit f749f065a0856978bfa7dd028276bbc5f9a60750
Author: Ian Lynagh <ian at well-typed.com>
Date: Sat Jul 27 12:52:10 2013 +0100
Whitespace only in basicTypes/Avail.hs
>---------------------------------------------------------------
compiler/basicTypes/Avail.hs | 31 ++++++++++++-------------------
1 file changed, 12 insertions(+), 19 deletions(-)
diff --git a/compiler/basicTypes/Avail.hs b/compiler/basicTypes/Avail.hs
index 758a104..afe93ff 100644
--- a/compiler/basicTypes/Avail.hs
+++ b/compiler/basicTypes/Avail.hs
@@ -2,13 +2,6 @@
-- (c) The University of Glasgow
--
-{-# OPTIONS -fno-warn-tabs #-}
--- The above warning supression flag is a temporary kludge.
--- While working on this module you are encouraged to remove it and
--- detab the module (please do the detabbing in a separate patch). See
--- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#TabsvsSpaces
--- for details
-
module Avail (
Avails,
AvailInfo(..),
@@ -32,24 +25,24 @@ import Util
-- The AvailInfo type
-- | Records what things are "available", i.e. in scope
-data AvailInfo = Avail Name -- ^ An ordinary identifier in scope
- | AvailTC Name
- [Name] -- ^ A type or class in scope. Parameters:
- --
- -- 1) The name of the type or class
- -- 2) The available pieces of type or class.
- --
- -- The AvailTC Invariant:
+data AvailInfo = Avail Name -- ^ An ordinary identifier in scope
+ | AvailTC Name
+ [Name] -- ^ A type or class in scope. Parameters:
+ --
+ -- 1) The name of the type or class
+ -- 2) The available pieces of type or class.
+ --
+ -- The AvailTC Invariant:
-- * If the type or class is itself
- -- to be in scope, it must be
- -- *first* in this list. Thus,
+ -- to be in scope, it must be
+ -- *first* in this list. Thus,
-- typically: @AvailTC Eq [Eq, ==, \/=]@
- deriving( Eq )
+ deriving( Eq )
-- Equality used when deciding if the
-- interface has changed
-- | A collection of 'AvailInfo' - several things that are \"available\"
-type Avails = [AvailInfo]
+type Avails = [AvailInfo]
-- | Compare lexicographically
stableAvailCmp :: AvailInfo -> AvailInfo -> Ordering
More information about the ghc-commits
mailing list