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

Merge pull request #107 from eborden/infix-constructor-pattern-match 

Fix infix constructor pattern matching for normal constructors
pull/121/head
Lennart Spitzner 2018-02-13 17:26:32 +01:00
parent 3d1b104dce 077b93db01
commit 43e79bb174
4 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src-literatetests/10-tests.blt
View File

@ -355,6 +355,9 @@ func (x:xr) = x
#pending #pending
func (x :+: xr) = x func (x :+: xr) = x
#test normal infix constructor
func (x `Foo` xr) = x
############################################################################### ###############################################################################
############################################################################### ###############################################################################

6
src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs
View File

@ -77,10 +77,10 @@ layoutPat lpat@(L _ pat) = docWrapNode lpat $ case pat of
return $ x1 Seq.<| xR return $ x1 Seq.<| xR
ConPatIn lname (InfixCon left right) -> do ConPatIn lname (InfixCon left right) -> do
-- a :< b -> expr -- a :< b -> expr
let nameDoc = lrdrNameToText lname nameDoc <- lrdrNameToTextAnn lname
leftDoc <- colsWrapPat =<< layoutPat left leftDoc <- appSep . colsWrapPat =<< layoutPat left
rightDoc <- colsWrapPat =<< layoutPat right rightDoc <- colsWrapPat =<< layoutPat right
middle <- docLit nameDoc middle <- appSep $ docLit nameDoc
return $ Seq.empty Seq.|> leftDoc Seq.|> middle Seq.|> rightDoc return $ Seq.empty Seq.|> leftDoc Seq.|> middle Seq.|> rightDoc
ConPatIn lname (RecCon (HsRecFields [] Nothing)) -> do ConPatIn lname (RecCon (HsRecFields [] Nothing)) -> do
-- Abc{} -> expr -- Abc{} -> expr