Wrote some files

src/PrimaryExpression.hs

@@ -0,0 +1,26 @@
+module PrimaryExpression (PrimaryExpression(..) ) where
+
+import qualified Data.List as List
+
+import ClassLiteral (ClassLiteral)
+import JavaLanguage (m_identifier)
+import LiteralExpression (LiteralExpression)
+
+import Text.Parsec (manyTill, char, string')
+import Text.Parsec.String (Parser)
+
+data PrimaryExpression = Literal LiteralExpression
+        | ClassLiteral ClassLiteral
+        | This
+        | TypedThis String
+        | InstanceCreation
+        deriving Show
+
+parseThis :: Parser PrimaryExpression
+parseThis = string' "this" *> return This
+
+parseTypedThis :: Parser PrimaryExpression
+parseTypedThis = do
+        start <- m_identifier
+        paths <- manyTill (char '.' *> m_identifier) (string' ".this")
+        return . TypedThis . List.intercalate "." $ (start:paths)