diff --git a/Graphics/Vty/Menu.hs b/Graphics/Vty/Menu.hs
--- a/Graphics/Vty/Menu.hs
+++ b/Graphics/Vty/Menu.hs
@@ -36,7 +36,7 @@
 
 -}
 
-module Graphics.Vty.Menu(displayMenu) where
+module Graphics.Vty.Menu(displayMenu,displayMenuOfValues) where
 import qualified Graphics.Vty as Vty
 
 getName :: String -> String
@@ -117,11 +117,15 @@
 
 displayMenu :: [String] -> IO (Maybe String)
 displayMenu items = do
+ displayMenuOfValues $ zip items items
+
+displayMenuOfValues :: [(String,a)] -> IO (Maybe a)
+displayMenuOfValues items = do
  vty <- allocate
- (vty',maybePos) <- work 0 0 items vty
+ (vty',maybePos) <- work 0 0 (map fst items) vty
  deallocate vty'
  case maybePos of
-  Just pos -> return $ Just $ items !! pos
+  Just pos -> return $ Just $ snd $ items !! pos
   Nothing -> return Nothing
 
 --main = do
diff --git a/vty-menu.cabal b/vty-menu.cabal
--- a/vty-menu.cabal
+++ b/vty-menu.cabal
@@ -1,5 +1,5 @@
 Name: vty-menu
-Version: 0.0.1
+Version: 0.0.3
 Synopsis: A lib for displaying a menu and getting a selection using VTY
 Category:Graphics
 
@@ -12,9 +12,13 @@
 cabal-version: >= 1.6
 
 library
- build-depends:base<5,vty <= 4.7.0.14
+ build-depends:base<5,vty <= 4.8
  exposed-modules:Graphics.Vty.Menu
 
+Executable vty-menu
+ Main-is: vty-menu.hs
+
 source-repository head
   type:     git
   location: git://github.com/timthelion/vty-menu.git
+
diff --git a/vty-menu.hs b/vty-menu.hs
new file mode 100644
--- /dev/null
+++ b/vty-menu.hs
@@ -0,0 +1,14 @@
+{- This executables sole purpose is getting arround  http://hackage.haskell.org/trac/ghc/ticket/7789 -}
+import Graphics.Vty.Menu
+import System.Environment
+import System.IO
+
+main = do
+ { args <- getArgs
+ ; ansM <- displayMenu args
+ ; let
+    ans =
+     case ansM of
+      Nothing -> ""
+      Just ans' -> ans'
+ ; hPutStrLn stderr ans }