{-# LANGUAGE Haskell2010 #-}
{-# LANGUAGE Safe #-}
module SafeLang12_A ( A ) where

data A = A1 | A2

instance Show A where
    show A1 = "A1 is secret!"
    show A2 = "A2 is secret!"