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:             2.0.0.0
+version:             2.0.0.1
 
 -- 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
@@ -123,7 +123,7 @@
     if isText
       then do 
         h <- getClipboardData cF_TEXT
-        bracket (globalLock h) globalUnlock $ liftM Right . peekCAString . castPtr
+        bracket (globalLock h) globalUnlock $ peekCAString . castPtr
       else throwIO NoTextualData
 
 clipboard Windows (SetClipboard s) =