@@ -240,7 +240,7 @@ attributeAssignment = do
240240 return $ (attrName, atom)
241241
242242parseString :: String -> Either RelationalError DatabaseExpr
243−parseString str = case parse multipleDatabaseExpr "" str of
243+parseString str = case parse (multipleDatabaseExpr <* eof) "" str of
244244 Left err -> Left $ ParseError (show err)
245245 Right r -> Right r
246246
@@ -261,7 +261,7 @@ typeP = do
261261showRelP :: Parser TutorialDOperator
262262showRelP = do
263263 reservedOp ":s"
264− expr <- relExpr
264+ expr <- relExpr <* eof
265265 return $ ShowRelation expr
266266
267267showPlanP :: Parser TutorialDOperator