S-expressions: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,068: / Line 3,068: @@
     finished (_, token : _) = ")" == token
-    parseToken (trees, []) = (trees, [])
     parseToken (trees, "(" : rest) =
       bimap
@@ Line 3,092: / Line 3,091: @@
           <$> ( fmap
                   (<> (' ' : s))
-                  ["Int", "Integer", "Float", "Double"]
+                  ["Int", "Float"]
                   <> ["Symbol \"" <> s <> "\""]
               )