]> git.unchartedbackwaters.co.uk Git - francis/ofc.git/commitdiff
Hard-code to ONETEP target.
authorFrancis Russell <francis@unchartedbackwaters.co.uk>
Sat, 15 Sep 2012 23:52:43 +0000 (00:52 +0100)
committerFrancis Russell <francis@unchartedbackwaters.co.uk>
Sat, 15 Sep 2012 23:52:43 +0000 (00:52 +0100)
src/Parser.hs

index be0d78dd57d65c2beb84b8bccab9f16ea363ee39..df0f9d6a67b60973cf697e7fc03355d946a3f046 100644 (file)
@@ -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