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 ...@@ -204,7 +204,7 @@ getOutput = do
getSingleton :: Expr [a] -> String -> Expr a getSingleton :: Expr [a] -> String -> Expr a
getSingleton expr msg = do getSingleton expr msg = do
list <- expr xs <- expr
case list of case xs of
[res] -> return res [res] -> return res
_ -> lift $ putError msg _ -> 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