From 71a571b083cb837c37b1a8e6cb8fa1c13326723b Mon Sep 17 00:00:00 2001
From: Vidar Holen <spam@vidarholen.net>
Date: Sun, 4 Nov 2012 00:32:54 -0700
Subject: [PATCH] Moar errors

---
 shpell.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/shpell.hs b/shpell.hs
index 8638dfc..2a517cd 100644
--- a/shpell.hs
+++ b/shpell.hs
@@ -981,7 +981,7 @@ collectNotes = do
 
 getNotes s = getNotesWith readScript doAllAnalysis s
 getNotesWith parser analytics s = 
-    case rp (parseWithNotes (parser) analytics) s of
+    case rp (parseWithNotes (do { x <- parser; eof; return x; }) analytics) s of
         (Right (x, notes), parsenotes) -> sortNotes $ notes ++ parsenotes
         (Left err, p) -> sortNotes $ (ParseNote (initialPos "-") ErrorC $ "Parsing failed: " ++ (show err)):(p)