Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

update to use parsec-3

  • Loading branch information...
commit c9b8de6a46df0d2ef13d3aaaca85c812f7aec74d 1 parent ce058a5
@tdudziak tdudziak authored
Showing with 5 additions and 6 deletions.
  1. +2 −2 lex-pass.cabal
  2. +0 −4 src/Common.hs
  3. +3 −0  src/LexPassUtil.hs
View
4 lex-pass.cabal
@@ -20,7 +20,7 @@ executable lex-pass
hs-source-dirs: src
main-is: Main.hs
build-depends: FUtil, HSH >= 2, MissingH, base >= 4, binary, bytestring,
- containers, derive, directory, filepath, mtl, parsec == 2.*,
+ containers, derive, directory, filepath, mtl, parsec == 3.*,
process, syb
ghc-options: -threaded
@@ -30,6 +30,6 @@ executable lex-pass-test
hs-source-dirs: src
main-is: Lang/Php/Ast/Test.hs
build-depends: FUtil, HSH >= 2, base >= 4, binary, bytestring, containers,
- derive, directory, filepath, mtl, parsec == 2.*, process, syb
+ derive, directory, filepath, mtl, parsec == 3.*, process, syb
ghc-options: -threaded
View
4 src/Common.hs
@@ -13,10 +13,6 @@ import Text.ParserCombinators.Parsec.Expr
type Oper a = Operator Char () a
-instance Applicative (GenParser Char ()) where
- pure = return
- (<*>) = ap
-
class Parse a where
parse :: Parser a
View
3  src/LexPassUtil.hs
@@ -17,6 +17,8 @@ import System.IO
import System.Process
import qualified Data.Intercal as IC
+import Text.Parsec.Prim(Parsec)
+
--
-- transf framework
--
@@ -164,6 +166,7 @@ modAll f = stateToTransformer (everywhereM (mkM $ transformerToState f))
astPath :: FilePath -> FilePath -> FilePath
astPath codeDir subPath = codeDir </> ".ast" </> subPath ++ ".ast"
+transfModsFile :: Parsec s (Bool, b) ()
transfModsFile = updateState ((,) True . snd)
-- combine these into AnAst?
Please sign in to comment.
Something went wrong with that request. Please try again.