
{-# LANGUAGE TemplateHaskell #-}

module Example where

import Hs2Ps

data Array a   = Array a
data Tuple a b = Tuple a b

data Example = A [[Int]] | B [(Maybe Int, Maybe Bool, [Maybe Float])]


hs2Ps "Example"

{-
    Result from -ddump-splices

    data Example
      = A (Array (Array Int)) |
        B (Array (Tuple (Maybe Int) (Tuple (Maybe Bool) (Array (Maybe Float)))))
-}

