improve directionality of certain expressions

hexwell · Apr 16, 2022 · e1b340f · e1b340f
1 parent ba2abf0
commit e1b340f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/hs/Vflow.hs b/hs/Vflow.hs
@@ -41,7 +41,7 @@ parseBash = flip (parse B.parser) <*> (base sep >>> (B.ParserState sep))
         "mingw32" -> '\\'
 
 parseRoot :: String -> Filename -> IO (Either ParseError [Block])
-parseRoot l@"bash" rootFile = runExceptT $ allFiles >>= concatMapM (parseVflow l)
+parseRoot l@"bash" rootFile = allFiles >>= concatMapM (parseVflow l) & runExceptT
   where
     allFiles = (rootFile:) <$> parseBash rootFile
 

diff --git a/hs/VflowParser.hs b/hs/VflowParser.hs
@@ -72,7 +72,7 @@ comment = do
 
 variable :: Parser Variable
 variable = do
-  pos <- getParserState <&> statePos
+  pos <- statePos <$> getParserState
   name <- many $ noneOf " :\n"
   comm <- optionMaybe comment
   endOfLine