diff --git a/alfred.cabal b/alfred.cabal
--- a/alfred.cabal
+++ b/alfred.cabal
@@ -1,5 +1,5 @@
 Name:                   alfred
-Version:                0.3.1
+Version:                0.4
 Synopsis:               utility library for Alfred version 2
 Description:            
   A utility library for writing workflows for Alfred version 2
diff --git a/src/Alfred.hs b/src/Alfred.hs
--- a/src/Alfred.hs
+++ b/src/Alfred.hs
@@ -1,6 +1,6 @@
 {-# LANGUAGE NamedFieldPuns    #-}
 {-# LANGUAGE OverloadedStrings #-}
-
+{-# LANGUAGE CPP               #-}
 --------------------------------------------------------------------------------
 -- |
 -- Module      :  Alfred
@@ -55,7 +55,10 @@
     , Search (..)
     , Search' (..)) where
 
+#if __GLASGOW_HASKELL__ < 710
 import Control.Applicative
+#endif
+
 import Data.ByteString (ByteString)
 import qualified Data.ByteString as B
 import Data.List
@@ -177,12 +180,12 @@
 
 -- | This data type represents standard search scripts used by
 -- 'searchRenderer'.
-data Search = Search {searchURL, found, notFound :: Text -> Text}
+data Search a = Search {searchURL, notFound :: Text -> Text, found :: a -> Text}
 
 
 -- | This data type represents advanced standard search scripts used
 -- by 'searchRenderer''.
-data Search' a = Search' {simpleSearch :: Search,
+data Search' a = Search' {simpleSearch :: Search a,
                           resultURL :: a -> Text, resultTitle :: a -> Text}
 
 
@@ -199,7 +202,7 @@
 -- @
 --
 
-searchRenderer :: Search -> Renderer [Text]
+searchRenderer :: Search Text -> Renderer [Text]
 searchRenderer s = searchRenderer' Search' { simpleSearch = s, resultURL = searchURL s . escapeText
                                            , resultTitle = id}
 
@@ -239,7 +242,7 @@
                            valid=Nothing,autocomplete=Nothing,title= s,
                            subtitle=T.concat ["Error: ", err],icon=Just (IconFile "icon.png")}]
   where mkItem t = Item {uid=Nothing,arg=arg,isFile=False,valid=Nothing,
-                         autocomplete=Just t', title=t',  subtitle=found t',icon=Just (IconFile "icon.png")}
+                         autocomplete=Just t', title=t',  subtitle=found t,icon=Just (IconFile "icon.png")}
             where arg   = T.concat ["\"",resultURL t,"\" \"", searchURL (escapeText s), "\""]
                   t' = resultTitle t
         searchURL2 s = T.concat ["\"",url,"\" \"", url, "\""]