ormolu/data/examples/module-header/double-dot-with-names.hs

18 lines
208 B
Haskell
Raw Normal View History

{-# LANGUAGE PatternSynonyms #-}
module ExportSyntax ( A(.., NoA), Q(F,..), G(T,..,U)) where
data A = A | B
pattern NoA = B
data Q a = Q a
pattern F a = Q a
data G = G | H
pattern T = G
pattern U = H