Commit dbe8c1e0 authored by Neil Mitchell's avatar Neil Mitchell

Refactor getSingleton to avoid using list, otherwise an import of...

Refactor getSingleton to avoid using list, otherwise an import of Data.Extra.List causes shadowing issues
parent 4444fa43
......@@ -204,7 +204,7 @@ getOutput = do
getSingleton :: Expr [a] -> String -> Expr a
getSingleton expr msg = do
list <- expr
case list of
xs <- expr
case xs of
[res] -> return res
_ -> lift $ putError msg
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment