Skip to content

Commit f7593ab

Browse files
committed
Fix retuning void function
1 parent 210bb12 commit f7593ab

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

lslforge/haskell/src/Language/Lsl/Syntax.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -741,7 +741,7 @@ compileStatement (Ctx ctx (Return (Just expr))) = do
741741
(LLString,LLKey) -> return ()
742742
(LLKey,LLString) -> return ()
743743
(LLInteger,LLFloat) -> return ()
744-
(x,y) | x == y -> return ()
744+
(x,y) | x /= LLVoid && x == y -> return ()
745745
| otherwise -> (vsmAddErr (ctx,"inappropriate return type for function/handler"))
746746
put'vsBranchReturns True
747747
return True

0 commit comments

Comments
 (0)