Remove unused FFI import GetTempPathA (getTempPath)

[ghc-hetmet.git] / compiler / main / SysTools.lhs

diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs
index a5362aa..91c0e7f 100644 (file)
--- a/compiler/main/SysTools.lhs
+++ b/compiler/main/SysTools.lhs
@@ -311,10 +311,6 @@ initSysTools mbMinusB dflags
                         -- elaborate it in the same way as the others
                 }
         }
-
-#if defined(mingw32_HOST_OS)
-foreign import stdcall unsafe "GetTempPathA" getTempPath :: Int -> CString -> IO Int32
-#endif
 \end{code}
 
 \begin{code}