writeSH :: FilePath -> String -> IO FilePath
writeSH fp ln = do
    writeFile fp $ unlines $ [ "#!/bin/sh", ln ]
    p <- getPermissions fp
    setPermissions fp (p { executable = True })
    canonicalizePath fp
writeSH :: FilePath -> String -> IO FilePath
writeSH fp ln = do
    writeFile fp $ unlines $ [ "#!/bin/sh", ln ]
    p <- getPermissions fp
    setPermissions fp (p { executable = True })
    canonicalizePath fp
writeSH fp ln = do
    writeFile fp $ unlines $ [ "#!/bin/sh", ln ]
    p <- getPermissions fp
    setPermissions fp (p { executable = True })
    canonicalizePath fp