----------------------------------------------------------------------------- -- | -- Module : Data.Array.Parallel.Unlifted.Sequential.Flat.Text -- Copyright : (c) 2006 Roman Leshchinskiy -- License : see libraries/ndp/LICENSE -- -- Maintainer : Roman Leshchinskiy <rl@cse.unsw.edu.au> -- Stability : internal -- Portability : portable -- -- Description --------------------------------------------------------------- -- -- Read\/Show instances for segmented unlifted arrays. -- -- Todo ---------------------------------------------------------------------- -- module Data.Array.Parallel.Unlifted.Sequential.Segmented.Text () where import Data.Array.Parallel.Base ( Read(..), showsApp, readApp) import Data.Array.Parallel.Unlifted.Sequential.Flat ( UA) import Data.Array.Parallel.Unlifted.Sequential.Segmented.USegd ( USegd, lengthsUSegd ) instance Show USegd where showsPrec k = showsApp k "toUSegd" . lengthsUSegd -- instance Read USegd where -- readPrec = fmap toUSegd (readApp "toUSegd")