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) <$>