79f6900 · project-m36 · git.iko.soy

git.iko.soy/project-m36

fix leftover hlint suggestions due to merge conflicts

commit79f6900ed18fe57c3377a26750b34019b1ea7619 authorAgentM <agentm@themactionfaction.com> dateMon 7 Aug 2017, 22:33 (9 years ago) parent5191549

2 files changed+3−3

unifiedsplit

src/bin/TutorialD/Interpreter.hs+2−2

@@ -76,11 +76,11 @@ promptText eHeadName eSchemaName = "TutorialD (" <> transInfo <> "): "

7676 transInfo = either (const "<unknown>") id eHeadName <> "/" <> either (const "<no schema>") id eSchemaName

7777

7878parseTutorialD :: T.Text -> Either (ParseError Char Dec) ParsedOperation

79−parseTutorialD inputString = parse interpreterParserP "" inputString

79+parseTutorialD = parse interpreterParserP ""

8080

8181--only parse tutoriald which doesn't result in file I/O

8282safeParseTutorialD :: T.Text -> Either (ParseError Char Dec) ParsedOperation

83−safeParseTutorialD inputString = parse safeInterpreterParserP "" inputString

83+safeParseTutorialD = parse safeInterpreterParserP ""

8484

8585data SafeEvaluationFlag = SafeEvaluation | UnsafeEvaluation deriving (Eq)

8686

src/bin/TutorialD/Interpreter/RelationalExpr.hs+1−1

@@ -232,7 +232,7 @@ stringAtomP :: Parser Atom

232232stringAtomP = TextAtom <$> quotedString

233233

234234doubleAtomP :: Parser Atom

235−doubleAtomP = DoubleAtom <$> (try float)

235+doubleAtomP = DoubleAtom <$> try float

236236

237237intAtomP :: Parser Atom

238238intAtomP = do