From 46891f13ee2c079c433a3219ab05935f1a794e68 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= Date: Wed, 16 Sep 2015 05:18:53 +0200 Subject: [PATCH] Fix #603, `stack path` output can have missing values --- Language/Haskell/GhcMod/Stack.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Language/Haskell/GhcMod/Stack.hs b/Language/Haskell/GhcMod/Stack.hs index b4bdfc0..6cce20e 100644 --- a/Language/Haskell/GhcMod/Stack.hs +++ b/Language/Haskell/GhcMod/Stack.hs @@ -58,6 +58,7 @@ getStackEnv projdir = U.withDirectory_ projdir $ runMaybeT $ do } where liToTup [k,v] = (k,v) + liToTup [k] = (k, error "getStackEnv: missing key '"++k++"'") liToTup _ = error "getStackEnv" getStackGhcPath :: IOish m => StackEnv -> m (Maybe FilePath)