Commit dbe8c1e0 authored by Neil Mitchell's avatar Neil Mitchell
Browse files

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
Supports Markdown
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