From 8bc4aa8f711e7194563aa32f7b1b1b54ec6d8a43 Mon Sep 17 00:00:00 2001
From: Suguivy <suguivy@riseup.net>
Date: Mon, 1 Mar 2021 12:06:07 +0100
Subject: [PATCH] Added parsing of floating point numbers

---
 src/Parser.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/Parser.hs b/src/Parser.hs
index 32186fd..bd809a5 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -35,5 +35,10 @@ symbolParser = Symbol <$> do
 -- Parser for a number
 numberParser :: GenParser Char st Expression
 numberParser = do
-  num <- read <$> many1 digit
-  return $ Number num
+  intPart <- many1 digit
+  decPart <- option "" parseDecPart
+  return $ Number $ read (intPart ++ decPart)
+  where parseDecPart = do
+          p <- char '.'
+          dec <- many digit
+          return $ p:dec