dp wiz avatar dp wiz committed 2e02da3

format string parser pipeline

Comments (0)

Files changed (1)

src/Data/EDN/Parser.hs

     char '"'
 
     if '\\' `BS.elem` x
-        then return $! String .
-                       -- NOTE: There is a bug in here!
-                       TE.decodeUtf8 .
-                       rep "\\\"" "\"".
-                       rep "\\\\" "\\" .
-                       rep "\\n" "\n" .
-                       rep "\\r" "\r" .
-                       rep "\\t" "\t" $ x
+        then return $! String
+                     . TE.decodeUtf8
+                     . rep "\\\"" "\""
+                     . rep "\\\\" "\\"
+                     . rep "\\n" "\n"
+                     . rep "\\r" "\r"
+                     . rep "\\t" "\t"
+                     $ x
         else return $! String . TE.decodeUtf8 $ x
 
     where rep f t s = BS.concat . BSL.toChunks $! replace (BS.pack f) (BS.pack t) s
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.