fix Non-exhaustive patterns in case

hey @kenhkan, I got this error print when i build embed just now:

```
src/Development/Duplo/Markups.hs:(50,24)-(53,37): Non-exhaustive patterns in case
```

sorry, this should be introduced by my last PR, now fixed this in this patch :cherries: