    -----------------------------------------------------------------------------
    -- |
    -- Module      : Data.Array.Parallel.Unlifted.Sequential.Flat.Text
    -- Copyright   : (c) 2006         Manuel M T Chakravarty & Roman Leshchinskiy
    -- License     : see libraries/ndp/LICENSE
    --
    -- Maintainer  : Roman Leshchinskiy <rl@cse.unsw.edu.au>
    -- Stability   : internal
    -- Portability : portable
    --
    -- Description ---------------------------------------------------------------
    --
    --  Read\/Show instances for flat unlifted arrays.
    --
    -- Todo ----------------------------------------------------------------------
    --

    module Data.Array.Parallel.Unlifted.Sequential.Flat.Text ()
    where

    import Data.Array.Parallel.Unlifted.Sequential.Flat.UArr (
      UA, UArr)
    import Data.Array.Parallel.Unlifted.Sequential.Flat.Basics (
      fromU, toU)
    import Data.Array.Parallel.Base (
      Read(..), showsApp, readApp)

    instance (Show e, UA e) => Show (UArr e) where
      showsPrec k = showsApp k "toU" . fromU

    instance (Read e, UA e) => Read (UArr e) where
      readPrec = fmap toU (readApp "toU")