ghc/compiler/prelude/TyProcs.lhs

   1 %
   2 % (c) The GRASP Project, Glasgow University, 1992
   3 %
   4 \section[TyProcessor]{The processor datatypes}
   5
   6 This is used only for ``Data Parallel Haskell.''
   7
   8 \begin{code}
   9 #include "HsVersions.h"
  10
  11 module TyProcs where
  12
  13 import PrelFuns         -- help functions, types and things
  14 import PrelUniqs
  15
  16 import AbsUniType       ( applyTyCon, mkProcessorTyCon )
  17 import Util
  18
  19 mkProcessorTy :: [UniType] -> UniType -> UniType
  20 mkProcessorTy tys ty
  21  = applyTyCon (mkProcessorTyCon (length tys)) (tys++[ty])
  22
  23 processor1TyCon = mkProcessorTyCon (1::Int)
  24 processor2TyCon = mkProcessorTyCon (2::Int)
  25 processor3TyCon = mkProcessorTyCon (3::Int)
  26 \end{code}