diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -1,4 +1,4 @@
-# sentiwordnet-parser
+# sentiwordnet-parser [![Build Status](https://travis-ci.org/k-bx/sentiwordnet-parser.svg?branch=master)](https://travis-ci.org/k-bx/sentiwordnet-parser)
 
 Parser for the [SentiWordNet](http://sentiwordnet.isti.cnr.it/) tab-separated file.
 
diff --git a/sentiwordnet-parser.cabal b/sentiwordnet-parser.cabal
--- a/sentiwordnet-parser.cabal
+++ b/sentiwordnet-parser.cabal
@@ -2,10 +2,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 63064a8cda681a9767f685c20005f0e6b1064bb63bcb35c21169b4a0eb432ddf
+-- hash: 3fff6c8363d0c96d4c1cb3c7f659f1f158f5f21672d6142f2f4c26f88fea5ba5
 
 name:           sentiwordnet-parser
-version:        0.1.1.0
+version:        0.2.0.0
 synopsis:       Parser for the SentiWordNet tab-separated file
 description:    Parser for the SentiWordNet tab-separated file
 category:       Natural Language Processing
diff --git a/src/NLP/SentiwordnetParser.hs b/src/NLP/SentiwordnetParser.hs
--- a/src/NLP/SentiwordnetParser.hs
+++ b/src/NLP/SentiwordnetParser.hs
@@ -112,8 +112,11 @@
 parseSentiWordNet :: Parser SentiWordNet
 parseSentiWordNet = SentiWordNet <$> some parseEntry
 
-parse :: Text -> Result SentiWordNet
-parse = parseString parseSentiWordNet mempty . T.unpack
+parse :: Text -> Either String SentiWordNet
+parse t =
+  case parseString parseSentiWordNet mempty . T.unpack $ t of
+    Failure e -> Left (show e)
+    Success r -> Right r
 
 data SentiWordNetLookupItem = SentiWordNetLookupItem
   { lookPos :: Int
@@ -140,5 +143,5 @@
       "/home/kb/Downloads/SentiWordNet_3.0.0/SentiWordNet_3.0.0_20130122.txt"
   let res = parse sentiWordNet
   case res of
-    Success r -> print (length (items r))
-    Failure e -> print e
+    Right r -> print (length (items r))
+    Left e -> putStrLn e