fltkhs-fluidtohs generates incorrect module names for nested modules

[asakul]

Suppose that I keep all my UI-related files in some directory like "app/MyApp/UI/MainWindow.fl". I'm calling fltkhs-fluidtohs:

stack exec -- fltkhs-fluidtohs -o app/MyApp/UI app/MyApp/UI/MainWindow.fl

It generates app/MyApp/UI/MainWindow.hs which contains incorrect module header:

module MainWindow where

which, of course, fails to compile:

File name does not match module name:
Saw: ‘MainWindow’
Expected: ‘MyApp.UI.Fltk.MainWindow’

Now, I understand that it might be tricky to detect full module name, so if it's not possible, maybe another command line switch can be added which will override module name in the header? Or am I missing something?