Hard-code to ONETEP target.

diff --git a/src/Parser.hs b/src/Parser.hs
index be0d78dd57d65c2beb84b8bccab9f16ea363ee39..df0f9d6a67b60973cf697e7fc03355d946a3f046 100644 (file)
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -118,14 +118,16 @@ parseIdentifierAccess = do
   return $ IndexedIdentifier ident indices
   <?> "indexed identifier"
 
-parseTarget = lReserved "target" >> lIdentifier
+parseTarget = do
+  lReserved "target"
+  lSymbol "ONETEP"
 
 parseOFL :: Parsec String OFL OFL
 parseOFL = do 
   lWhiteSpace 
   _ <- many1 parseDeclaration
   _ <- many1 parseAssignment
-  target <- parseTarget
+  _ <- parseTarget
   _ <- many parseBinding
   _ <- many anyChar
   eof