From d0e8c85a8d30fd32ec7909c2def10f96d46af35f Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Thu, 9 Oct 2014 17:00:03 +0200
Subject: [PATCH] PARSER: improve haddock comments

---
 Parser/Core.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Parser/Core.hs b/Parser/Core.hs
index 2e5ca2a..d4fb030 100644
--- a/Parser/Core.hs
+++ b/Parser/Core.hs
@@ -67,7 +67,8 @@ posInt = MkParser f
       | otherwise = Just (read ns, rest)
         where (ns, rest) = span isDigit xs
 
--- |Creates a Parser that accepts positive integers.
+-- |Creates a Parser that accepts positive doubles.
+-- Both 131.31 and 132 are valid.
 posDouble :: Parser Double
 posDouble = (read <$>)                   $
               (\x y z -> x ++ [y] ++ z) <$>