Home Explore Help
Sign In
getty
/
s-cargot
1
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Browse Source

Fix for issue 10: flat printing of SCons of two SAtoms.

Kevin Quick 6 years ago
parent
6dfd7c72a4
commit
27e052ec07
1 changed files with 2 additions and 0 deletions
Split View Show Diff Stats
  1. 2 0
      Data/SCargot/Print.hs

+ 2 - 0
Data/SCargot/Print.hs
View File 

@@ -269,6 +269,8 @@ flatPrintSExpr = TL.toStrict . B.toLazyText . pHead
 
     pHead SNil         =
 
       B.fromString "()"
 
 
+    pTail e@(SCons _ (SAtom _)) =
 
+        B.fromString " " <> pHead e <> B.fromString ")"
 
     pTail (SCons x xs) =
 
       B.fromString " " <> pHead x <> pTail xs
 
     pTail (SAtom t) =