Sped up string compression and decompression

DecompressString.hs

@@ -16,8 +16,9 @@ decompressString s = go "" s where
 --We need to read it at runtime, otherwise compilation is too slow and memory-hungry
 --dictionary = Map.fromDistinctAscList $ map read $ lines listdict where
 dictionary :: [(String,String)]
-dictionary = map read $lines listdict where
+dictionary = map parse $lines listdict where
+    parse s | (first,tab:second) <- span (/='\t') s = (second,first)
     listdict = unsafePerformIO $ getDict
     getDict = do
               path <- getExecutablePath
-              readFile $ replaceFileName path "dict.hs"
+              readFile $ replaceFileName path "dictionary.tsv"

compressString.hs

@@ -1,16 +1,16 @@
-import qualified Data.Map as Map
+import qualified Data.Map.Strict as Map
 import Data.List ((\\), nub, inits)
 import System.Environment (getArgs)
 import Debug.Trace (trace)
 
 type Node = (Int,[String],String)
 
 main = do args <- getArgs
-          dictionary <- readFile "dict.hs"
+          dictionary <- readFile "dictionary.tsv"
           putStr $ unlines $ compressString (head args) $ buildDict dictionary
        where
-         buildDict text = Map.fromList $ map (swap.read) $ lines text
-         swap (a,b) = (b,a)
+         buildDict text = Map.fromList $ map splitTab $ lines text
+         splitTab s | (first,tab:second) <- span (/='\t') s = (first,second)
 
 compressString :: String -> Map.Map String String -> [String]
 compressString s dictionary = astar [(length s, [""],map replaceNewlines s)] where