diff --git a/semantic-ast/src/Main.hs b/semantic-ast/src/Main.hs
index 44be32e8b..87ebe7c9f 100644
--- a/semantic-ast/src/Main.hs
+++ b/semantic-ast/src/Main.hs
@@ -15,7 +15,8 @@ import Options.Applicative hiding (style)
 import Data.Semigroup ((<>))
 
 data SemanticAST = SemanticAST
-  { sourceFilePath      :: Input
+  { sourceFilePath      :: Maybe FilePath
+  , sourceString        :: Maybe Prelude.String
   , format              :: Format
   } deriving (Read)