diff --git a/Copy.hs b/Copy.hs
index dc0ca0b..552eb76 100644
--- a/Copy.hs
+++ b/Copy.hs
@@ -1,5 +1,5 @@
 module Main where
-import System
+import System.Environment
 
 main = do
   [file1, file2] <- getArgs -- read the first two arguments passed in