diff --git a/src/GHCMod/Options.hs b/src/GHCMod/Options.hs
index d6ad6d9..046eb43 100644
--- a/src/GHCMod/Options.hs
+++ b/src/GHCMod/Options.hs
@@ -1,6 +1,5 @@
 module GHCMod.Options (
   parseArgs,
-  parseCommandsFromList,
   GhcModCommands(..)
 ) where
 
@@ -19,13 +18,6 @@ parseArgs =
       ( fullDesc
      <> header "ghc-mod: Happy Haskell Programming" )
 
-parseCommandsFromList :: [String] -> Either String GhcModCommands
-parseCommandsFromList args =
-  case execParserPure (prefs idm) (info commandsSpec idm) args of
-    Success a -> Right a
-    Failure h -> Left $ show h
-    CompletionInvoked _ -> error "WTF"
-
 helpVersion :: Parser (a -> a)
 helpVersion =
   helper <*>