hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Implement pattern cases: {..} and ~

pull/1/head
Lennart Spitzner 2016-08-06 14:07:13 +02:00
parent 7f69ab8b43
commit 52a4f7c11c
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Language/Haskell/Brittany/Layouters/Pattern.hs
View File

@ -73,6 +73,12 @@ layoutPat lpat@(L _ pat) = docWrapNode lpat $ case pat of
, docSeparator , docSeparator
, docLit $ Text.pack "}" , docLit $ Text.pack "}"
] ]
ConPatIn lname (RecCon (HsRecFields [] (Just 0))) -> do
let t = lrdrNameToText lname
docSeq
[ appSep $ docLit t
, docLit $ Text.pack "{..}"
]
TuplePat args boxity _ -> do TuplePat args boxity _ -> do
argDocs <- docSharedWrapper layoutPat `mapM` args argDocs <- docSharedWrapper layoutPat `mapM` args
case boxity of case boxity of
@ -113,6 +119,9 @@ layoutPat lpat@(L _ pat) = docWrapNode lpat $ case pat of
BangPat pat1 -> do BangPat pat1 -> do
patDoc <- docSharedWrapper layoutPat pat1 patDoc <- docSharedWrapper layoutPat pat1
docSeq [docLit $ Text.pack "!", patDoc] docSeq [docLit $ Text.pack "!", patDoc]
LazyPat pat1 -> do
patDoc <- docSharedWrapper layoutPat pat1
docSeq [docLit $ Text.pack "~", patDoc]
NPat llit@(L _ (OverLit olit _ _ _)) _ _ _ -> do NPat llit@(L _ (OverLit olit _ _ _)) _ _ _ -> do
docWrapNode llit $ allocateNode $ overLitValBriDoc olit docWrapNode llit $ allocateNode $ overLitValBriDoc olit