Polish comments.

[haskell/symantic.git] / symantic-grammar / Language / Symantic / Grammar / Test.hs

diff --git a/symantic-grammar/Language/Symantic/Grammar/Test.hs b/symantic-grammar/Language/Symantic/Grammar/Test.hs
index 67f48ada4a5d2a7e476e4ad9c17fa1a3c0b03d5d..14a219476cdd502d86747947750d61f728de99d0 100644 (file)
--- a/symantic-grammar/Language/Symantic/Grammar/Test.hs
+++ b/symantic-grammar/Language/Symantic/Grammar/Test.hs
@@ -48,10 +48,6 @@ instance ParsecC e s => Gram_CF (P.ParsecT e s m) where
        CF f <& Reg p      = CF $ P.lookAhead f <*> p
        Reg f &> CF p      = CF $ P.lookAhead f <*> p
        CF f `minus` Reg p = CF $ P.notFollowedBy (P.try p) *> f
-instance ParsecC e s => Gram_Meta P.SourcePos (P.ParsecT e s m) where
-       withMeta p = do
-               pos <- P.getPosition
-               ($ pos) <$> p
 instance ParsecC e s => Gram_Comment (P.ParsecT e s m)
 
 elide :: Text.Text -> String