Fix #603, stack path output can have missing values

This commit is contained in:
Daniel Gröber 2015-09-16 05:18:53 +02:00
parent 24050e5af3
commit 46891f13ee

View File

@ -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)