added test that currently fails for locating things properly

Hspec.hs

@@ -372,4 +372,12 @@ parseStringTests = describe "Parser" $ do
         Nothing
         Just 100))
     |] `is` Expression
+  it "correctly locates parsed items" $ do
+    let go = doGhc . parseString
+    go [hereLit|
+        first
+
+        second
+       |] >>= (`shouldBe` [Located 1 (Expression "first"),
+                          Located 2 (Expression "second")])
     

IHaskell/Eval/Parser.hs

@@ -50,7 +50,7 @@ data CodeBlock
   deriving (Show, Eq)
 
 -- | Store locations along with a value.
-data Located a = Located LineNumber a deriving Show
+data Located a = Located LineNumber a deriving (Eq, Show)
 
 -- | Directive types. Each directive is associated with a string in the
 -- directive code block.