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

Lay out unboxed tuples in types

pull/186/head
Sergey Vinokurov 2018-09-18 09:03:28 +01:00
parent 281d7a2f81
commit 6898d3ef44
No known key found for this signature in database
GPG Key ID: D6CD29530F98D6B8
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src-literatetests/15-regressions.blt
View File

@ -658,5 +658,6 @@ spanKey = case foo of
#test unboxed-tuple and hashed name
{-# LANGUAGE MagicHash, UnboxedTuples #-}
spanKey :: _ -> (# Int#, Int# #)
spanKey = case foo of
(# bar#, baz# #) -> (# baz# +# bar#, bar# #)

17
src/Language/Haskell/Brittany/Internal/Layouters/Type.hs
View File

@ -234,7 +234,7 @@ layoutType ltype@(L _ typ) = docWrapNode ltype $ case typ of
list = List.tail cntxtDocs <&> \cntxtDoc ->
docCols ColTyOpPrefix
[ docCommaSep
, docAddBaseY (BrIndentSpecial 2)
, docAddBaseY (BrIndentSpecial 2)
$ cntxtDoc
]
in docPar open $ docLines $ list ++ [close]
@ -407,17 +407,18 @@ layoutType ltype@(L _ typ) = docWrapNode ltype $ case typ of
]
unboxedL = do
docs <- docSharedWrapper layoutType `mapM` typs
let start = docSeq [docLit $ Text.pack "(#", docSeparator]
end = docSeq [docSeparator, docLit $ Text.pack "#)"]
docAlt
[ docSeq $ [docLit $ Text.pack "(#"]
[ docSeq $ [start]
++ List.intersperse docCommaSep docs
++ [docLit $ Text.pack "#)"]
++ [end]
, let
start = docCols ColTyOpPrefix [docLit $ Text.pack "(#", head docs]
lines = List.tail docs <&> \d ->
docCols ColTyOpPrefix [docCommaSep, d]
end = docLit $ Text.pack "#)"
start' = docCols ColTyOpPrefix [start, head docs]
lines = List.tail docs <&> \d ->
docCols ColTyOpPrefix [docCommaSep, d]
in docPar
(docAddBaseY (BrIndentSpecial 2) start)
(docAddBaseY (BrIndentSpecial 2) start')
(docLines $ (docAddBaseY (BrIndentSpecial 2) <$> lines) ++ [end])
]
HsOpTy{} -> -- TODO