From 5e50bb7d220bb937fc0f321857191595916f2f49 Mon Sep 17 00:00:00 2001
From: Francis Russell <francis@unchartedbackwaters.co.uk>
Date: Sun, 16 Sep 2012 00:52:43 +0100
Subject: [PATCH] Hard-code to ONETEP target.

---
 src/Parser.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/Parser.hs b/src/Parser.hs
index be0d78d..df0f9d6 100644
--- 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
-- 
2.47.3