"sphere" Main: Results: lightpos (Directional ? ?1) ==> ! Main.hs:83:2-31: Non-exhaustive patterns in function lightpos lightdir (Point ? ?1) ==> ! Main.hs:86:2-51: Non-exhaustive patterns in function lightdir lightpos (Directional ? ?1) ==> ! Main.hs:83:2-31: Non-exhaustive patterns in function lightpos lightdir (Point ? ?1) ==> ! Main.hs:86:2-51: Non-exhaustive patterns in function lightdir case trace ([]) ? ?1 of (,,) _ _ x -> x ==> ! Prelude.head: empty list Writing: Main.hs.html Writing: hpc_index.html Writing: hpc_index_fun.html Writing: hpc_index_alt.html Writing: hpc_index_exp.html ["Main.hs"]