Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Revert "fix issues with unicode input"

"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...
commit 0e85feac93d277882ef45eb75d3e8903f651adc1 1 parent 26c6f25
daniel corson dancor authored
Showing with 2 additions and 3 deletions.
  1. +2 −3 src/LexPassUtil.hs
5 src/LexPassUtil.hs
View
@@ -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
@@ -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
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.