ormolu/data/examples/module-header/double-dot-with-names.hs
2019-07-29 23:14:31 +02:00

18 lines
208 B
Haskell

{-# 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