avoid the possibility of two Nothings

2024-11-28 01:47:01 +03:00 · 2019-10-15 13:23:00 -04:00 · 2019-10-15 13:23:00 -04:00 · d7ce6ef1d3
commit d7ce6ef1d3
parent 927a987f0d
1 changed files with 1 additions and 2 deletions
--- a/semantic-ast/src/Main.hs
+++ b/semantic-ast/src/Main.hs
@ -16,8 +16,7 @@ import Data.Semigroup ((<>))

 data SemanticAST = SemanticAST
  { format              :: Format
-  , sourceFilePath      :: Maybe FilePath
-  , sourceString        :: Maybe Prelude.String
+  , source              :: Either FilePath Prelude.String
  } deriving (Read)

 -- TODO: