@@ -305,10 +305,12 @@ clauseToJS span var (Clause value vars e) = do
305305 let vars' = map (\n -> var ++ "._" ++ show n) [0..]
306306 s <- matchToJS span $ matchSubst (zip vars vars') e
307307 return $ concat [ "\ncase ", case value of
308− Left name -> quoted name
309308 Right (Boolean True) -> "true"
310309 Right (Boolean False) -> "false"
311310 Right lit -> show lit
311+ Left name -> quoted $ case List.elemIndices '.' name of
312+ [] -> name
313+ is -> drop (last is + 1) name
312314 , ":", indent s ]
313315
314316jsNil = "_L.Nil"