@@ -71,7 +71,7 @@ extractFileName ('"':xs) = takeWhile (/= '"') xs
7171extractFileName ('\'':xs) = takeWhile (/= '\'') xs
7272extractFileName x = build x []
7373 where
74− build [] acc = reverse acc
74+ build [] acc = reverse $ dropWhile (== ' ') acc
7575 build ('\\':' ':xs) acc = build xs (' ':acc)
7676 build (x:xs) acc = build xs (x:acc)
7777