diff --git a/._BirdPP.cabal b/._BirdPP.cabal
new file mode 100644
Binary files /dev/null and b/._BirdPP.cabal differ
diff --git a/._LICENSE b/._LICENSE
new file mode 100644
Binary files /dev/null and b/._LICENSE differ
diff --git a/._Main.lhs b/._Main.lhs
new file mode 100644
Binary files /dev/null and b/._Main.lhs differ
diff --git a/._README b/._README
new file mode 100644
Binary files /dev/null and b/._README differ
diff --git a/._Setup.lhs b/._Setup.lhs
new file mode 100644
Binary files /dev/null and b/._Setup.lhs differ
diff --git a/BirdPP.cabal b/BirdPP.cabal
--- a/BirdPP.cabal
+++ b/BirdPP.cabal
@@ -1,6 +1,6 @@
 
 Name:                BirdPP
-Version:             1.0
+Version:             1.1
 Description:         Literate preprocessor that allows intuitive Haddock comments.
 License:             GPL
 License-file:        LICENSE
@@ -11,7 +11,7 @@
 bug-reports:         http://github.com/seanmcl/BirdPP/issues
 category:            Development
 Synopsis:            A preprocessor for Bird-style Literate Haskell comments with Haddock markup.
-Extra-source-files:  LICENSE README 
+Extra-source-files:  LICENSE README
 Executable BirdPP
   Main-is:           Main.lhs
   Build-Depends:     base >= 2 && < 4,
diff --git a/Main.lhs b/Main.lhs
--- a/Main.lhs
+++ b/Main.lhs
@@ -8,19 +8,17 @@
 Usage: ghc -pgmL BirdPP ...
 
 This file contains some gratuitous Haddock markup so you can see it
-in action.  
+in action.
 
-> module Main 
+> module Main
 >   ( -- * The preprocessor
->     literize 
+>     literize
 >     -- * The glue
 >   , main )
 > where
 
-> import qualified System
 > import qualified System.IO as IO
 > import qualified System.Environment as Env
-> import qualified Monad
 
 | This comment will show up in the Haddock docs.
 
@@ -31,16 +29,16 @@
 > literize ('>' : ' ' : s) = s
 > literize s = "-- " ++ s
 
-| Main runs the preprocessor.  
+| Main runs the preprocessor.
 
 > main :: IO ()
-> main = do 
->   args <- System.getArgs
+> main = do
+>   args <- Env.getArgs
 
 If we are calling BirdPP in the GHC pipeline, it passes a number
 of arguments (see above URL).
 
->   if length args >= 3 then 
+>   if length args >= 3 then
 >     do let [orig, src, out] = drop (length args - 3) args
 >        fi <- IO.openFile src IO.ReadMode
 >        fo <- IO.openFile out IO.WriteMode
@@ -53,7 +51,7 @@
 To see the result of the preprocessor (for debugging) you can
 just call BirdPP with a file to process.
 
->     else case args of 
+>     else case args of
 >            [f] -> do text <- IO.readFile f
 >                      mapM_ (putStrLn . literize) (lines text)
 >                      return ()