Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

fix issues with unicode input

  • Loading branch information...
commit fe512ef009110b84b1f7905dde6f76653f19ab8f 1 parent c9b8de6
tdudziak authored May 14, 2012

Showing 1 changed file with 3 additions and 2 deletions. Show diff stats Hide diff stats

  1. 5  src/LexPassUtil.hs
5  src/LexPassUtil.hs
@@ -7,6 +7,7 @@ import Control.Monad.State
7 7
 import Data.Binary
8 8
 import Data.Data
9 9
 import Data.Generics
  10
+import Data.String
10 11
 import FUtil
11 12
 import HSH
12 13
 import Lang.Php.Ast
@@ -177,7 +178,7 @@ parseAndCache cacheAsts codeDir subPath = do
177 178
     astFilename = astPath codeDir subPath
178 179
     regen = do
179 180
       hPutStrLn stderr "- Parsing"
180  
-      c <- readFileStrict $ codeDir </> subPath
  181
+      c <- readFile $ codeDir </> subPath
181 182
       case runParser parse () subPath c of
182 183
         Left err -> error $ show err
183 184
         Right ast -> do
@@ -196,7 +197,7 @@ parseAndCache cacheAsts codeDir subPath = do
196 197
         else regen
197 198
     else do
198 199
       hPutStrLn stderr "- Parsing (always)"
199  
-      c <- readFileStrict $ codeDir </> subPath
  200
+      c <- readFile $ codeDir </> subPath
200 201
       return $ case runParser parse () subPath c of
201 202
         Left err -> error $ show err
202 203
         Right ast -> ast

0 notes on commit fe512ef

Please sign in to comment.
Something went wrong with that request. Please try again.