toSystemString :: String -> SystemString
-- #if __GLASGOW_HASKELL__ < 702
-- toSystemString = case os of
--                      "unix" -> UTF8.encodeString
--                      "linux" -> UTF8.encodeString
--                      "darwin" -> UTF8.encodeString
--                      _ -> id
-- #else
toSystemString = id
toSystemString :: String -> SystemString
toSystemString = id
toSystemString = id