diff --git a/pdfinfo.cabal b/pdfinfo.cabal
--- a/pdfinfo.cabal
+++ b/pdfinfo.cabal
@@ -1,5 +1,5 @@
 Name:                pdfinfo
-Version:             0.1.1
+Version:             0.1.2
 Synopsis:            Wrapper around the pdfinfo command.
 Description:         Just a wrapper around the pdfinfo command. See man pdfinfo.
 License:             BSD3
diff --git a/src/Text/PDF/Info.hs b/src/Text/PDF/Info.hs
--- a/src/Text/PDF/Info.hs
+++ b/src/Text/PDF/Info.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE GeneralizedNewtypeDeriving, MultiParamTypeClasses, ViewPatterns #-}
 {-# LANGUAGE FlexibleContexts #-}
 {-# OPTIONS -Wall #-}
-module Text.PDF.Info 
+module Text.PDF.Info
     (-- * Reading PDF info
      pdfInfo
     ,PDFInfo(..)
@@ -28,7 +28,9 @@
 
 -- | A type representing the output from the pdfinfo command.
 data PDFInfo = PDFInfo {
-    pdfInfoAuthor       :: Maybe String  -- ^ Author: E.g. Chris Done
+    pdfInfoTitle        :: Maybe String  -- ^ Title
+  , pdfInfoSubject      :: Maybe String  -- ^ Subject
+  , pdfInfoAuthor       :: Maybe String  -- ^ Author: E.g. Chris Done
   , pdfInfoCreator      :: Maybe String  -- ^ Creator: E.g. Microsoft® Office Word 2007
   , pdfInfoProducer     :: Maybe String  -- ^ Producer: E.g. Microsoft® Office Word 2007
   , pdfInfoCreationDate :: Maybe UTCTime -- ^ Creation Date
@@ -43,7 +45,7 @@
   } deriving Show
 
 -- | Possible things that can go wrong while reading the info.
-data PDFInfoError = 
+data PDFInfoError =
     ParseError String        -- ^ Couldn't parse a property value.
   | ProcessError IOException -- ^ Error to do with the pdfinfo process.
   | NoMessage                -- ^ No message given.
@@ -69,7 +71,9 @@
 -- | Parse PDFInfo's output.
 parse :: String -> Either PDFInfoError PDFInfo
 parse out = runParse $
-  PDFInfo <$> string "Author"
+  PDFInfo <$> string "Title"
+          <*> string "Subject"
+          <*> string "Author"
           <*> string "Creator"
           <*> string "Producer"
           <*> date "CreationDate"
@@ -103,23 +107,23 @@
 
 -- | Parse a page size. This is loosely defined.
 parseSize :: String -> ParsePDFInfo PDFSize
-parseSize s = 
+parseSize s =
   case words s of
-    ((readRight -> Right x):"x":(readRight -> Right y):_) -> 
+    ((readRight -> Right x):"x":(readRight -> Right y):_) ->
         return $ PDFSize x y
     _ -> throwError $ ParseError $ "Unable to read size: " ++ show s
 
 -- | Parse a date according to pdfinfo's format.
 parseDate :: String -> ParsePDFInfo UTCTime
-parseDate s = 
+parseDate s =
   case parseTime defaultTimeLocale "%a %b %e %H:%M:%S %Y" s of
     Just ok -> return ok
     Nothing -> throwError $ ParseError $ "Unable to parse date: " ++ show s
 
 -- | Read a value, maybe, allow misc trailing data.
 readRight :: (MonadError PDFInfoError m,Read a) => String -> m a
-readRight s = 
-  case reads s of 
+readRight s =
+  case reads s of
     [(v,_)] -> return v
     _ -> throwError $ ParseError $ "Couldn't read value: " ++ show s