msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

uhh it shares now hooray for redex updation

Browse Source
This commit is contained in:
crumbtoo
2023-11-10 17:43:52 -07:00
parent 8ce258b9de
commit 31953c9fa1
1 changed files with 0 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/TI.hs
View File

@@ -225,9 +225,6 @@ instance Pretty TiState where
pnode (NSupercomb n _ _) _ = IStr n pnode (NSupercomb n _ _) _ = IStr n
pnodeRef :: Addr -> Int -> ISeq
pnodeRef a p = IStr (show a) <> "@" <> pnode (hLookupUnsafe a h) p
-- pnoderef :: Addr -> Int -> ISeq -- pnoderef :: Addr -> Int -> ISeq
-- pnoderef a p = bracketPrec 0 p $ -- pnoderef a p = bracketPrec 0 p $
-- IStr (show a) <> " -> " <> pnode (hLookupUnsafe a h) 0 -- IStr (show a) <> " -> " <> pnode (hLookupUnsafe a h) 0