Skip to content
This repository has been archived by the owner on Jan 13, 2022. It is now read-only.

Commit

Permalink
Revert "fix issues with unicode input"
Browse files Browse the repository at this point in the history
"time lex-pass -a no-ip" works, but
"time lex-pass -a id" yells about "resource busy (file is locked)"

This reverts commit fe512ef.
  • Loading branch information
dancor committed Sep 9, 2012
1 parent 26c6f25 commit 0e85fea
Showing 1 changed file with 2 additions and 3 deletions.
5 changes: 2 additions & 3 deletions src/LexPassUtil.hs
Expand Up @@ -7,7 +7,6 @@ import Control.Monad.State
import Data.Binary
import Data.Data
import Data.Generics
import Data.String
import FUtil
import HSH
import Lang.Php.Ast
Expand Down Expand Up @@ -178,7 +177,7 @@ parseAndCache cacheAsts codeDir subPath = do
astFilename = astPath codeDir subPath
regen = do
hPutStrLn stderr "- Parsing"
c <- readFile $ codeDir </> subPath
c <- readFileStrict $ codeDir </> subPath
case runParser parse () subPath c of
Left err -> error $ show err
Right ast -> do
Expand All @@ -197,7 +196,7 @@ parseAndCache cacheAsts codeDir subPath = do
else regen
else do
hPutStrLn stderr "- Parsing (always)"
c <- readFile $ codeDir </> subPath
c <- readFileStrict $ codeDir </> subPath
return $ case runParser parse () subPath c of
Left err -> error $ show err
Right ast -> ast
Expand Down

0 comments on commit 0e85fea

Please sign in to comment.