s-cargot/Data/SExpression/Repr/Rich.hs

{-# LANGUAGE PatternSynonyms #-}

module Data.SExpression.Repr.Rich
       ( pattern List
       , pattern DotList
       , pattern Atom
       ) where

import Data.SExpression.Repr as R

pattern List xs = R.RSList xs
pattern DotList xs = R.RSDotted xs
pattern Atom a = R.RSAtom a