diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2011-08-19 00:17:10 +1000 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2011-08-19 01:16:56 +1000 |
| commit | 9282550cc1f1b7915642871cb6010ba45988683a (patch) | |
| tree | 98788f0f6d802c872c683c6fe242f28c22b02d7c /compiler/hsSyn | |
| parent | 46fa261eee74c1c1a1be52f9394ff131183024da (diff) | |
| download | haskell-9282550cc1f1b7915642871cb6010ba45988683a.tar.gz | |
Improve import and export of vectorisation information
Diffstat (limited to 'compiler/hsSyn')
| -rw-r--r-- | compiler/hsSyn/HsDecls.lhs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs index c1b06809d7..e17d421fe5 100644 --- a/compiler/hsSyn/HsDecls.lhs +++ b/compiler/hsSyn/HsDecls.lhs @@ -61,6 +61,7 @@ import HsTypes import HsDoc import TyCon import NameSet +import Name import {- Kind parts of -} Type import BasicTypes import ForeignCall @@ -1048,11 +1049,11 @@ data VectDecl name (Maybe Type) -- 'Nothing' => SCALAR declaration deriving (Data, Typeable) -lvectDeclName :: Outputable name => LVectDecl name -> name -lvectDeclName (L _ (HsVect (L _ name) _)) = name -lvectDeclName (L _ (HsNoVect (L _ name))) = name -lvectDeclName (L _ (HsVectTypeIn (L _ name) _)) = name -lvectDeclName (L _ (HsVectTypeOut name _)) = pprPanic "HsDecls.HsVectTypeOut" (ppr name) +lvectDeclName :: NamedThing name => LVectDecl name -> Name +lvectDeclName (L _ (HsVect (L _ name) _)) = getName name +lvectDeclName (L _ (HsNoVect (L _ name))) = getName name +lvectDeclName (L _ (HsVectTypeIn (L _ name) _)) = getName name +lvectDeclName (L _ (HsVectTypeOut tycon _)) = getName tycon instance OutputableBndr name => Outputable (VectDecl name) where ppr (HsVect v Nothing) |