hls-tactics-plugin-1.1.0.0: test/golden/LayoutSplitPatSyn.hs.expected

{-# LANGUAGE PatternSynonyms #-}

pattern JustSingleton :: a -> Maybe [a]
pattern JustSingleton a <- Just [a]


test :: Maybe [Bool] -> Maybe Bool
test (JustSingleton False) = _
test (JustSingleton True) = _