diff --git a/Hclip.cabal b/Hclip.cabal
--- a/Hclip.cabal
+++ b/Hclip.cabal
@@ -10,7 +10,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             1.0.0.2
+version:             1.0.0.3
 
 -- A short (one-line) description of the package.
 synopsis:            A small cross-platform library for reading and modifying the system clipboard.
diff --git a/System/Hclip.hs b/System/Hclip.hs
--- a/System/Hclip.hs
+++ b/System/Hclip.hs
@@ -51,7 +51,7 @@
 data Platform = Linux
               | Darwin
               | Windows
-                deriving (Show)
+              deriving (Show)
 
 
 -- | Error Types
@@ -59,7 +59,7 @@
                     | NoTextualData
                     | MissingCommands [String]
                     | MiscError String
-                      deriving (Eq)
+                    deriving (Eq)
 
 instance Show ClipboardError where
   show (UnsupportedOS os) = "Unsupported Operating System: " ++ os
@@ -106,8 +106,8 @@
 -- | MAC OS: use pbcopy and pbpaste    
 clipboard Darwin command = Right `fmap` withExternalCommand extCmd command
   where extCmd = case command of
-                   GetClipboard   -> "pbcopy"
-                   SetClipboard _ -> "pbpaste"
+                   GetClipboard   -> "pbpaste"
+                   SetClipboard _ -> "pbcopy"
 
 
 -- | Linux: use xsel or xclip
@@ -150,7 +150,7 @@
 withExternalCommand :: String -> Command -> IO String
 withExternalCommand prog command = 
   bracket (runInteractiveCommand prog)
-          (\(inp, outp, stderr, pid) -> do mapM_ hClose [inp, outp, stderr] >> waitForProcess pid)
+          (\(inp, outp, stderr, pid) -> mapM_ hClose [inp, outp, stderr] >> waitForProcess pid)
           (\(inp, outp, _, _) -> action command (inp, outp))
   where
     action GetClipboard = hGetContents . stdout