Permalink
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...
1 parent 26c6f25 commit 0e85feac93d277882ef45eb75d3e8903f651adc1 @dancor dancor committed Sep 9, 2012
Showing with 2 additions and 3 deletions.
  1. +2 −3 src/LexPassUtil.hs
View
5 src/LexPassUtil.hs
@@ -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

0 comments on commit 0e85fea

Please sign in to comment.