diff options
Diffstat (limited to 'src/Gdk/Internal.icl')
| -rw-r--r-- | src/Gdk/Internal.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Gdk/Internal.icl b/src/Gdk/Internal.icl index a922d84..9c50238 100644 --- a/src/Gdk/Internal.icl +++ b/src/Gdk/Internal.icl @@ -9,7 +9,7 @@ gdk_event_get_keyval :: !Pointer -> Maybe Int gdk_event_get_keyval event # arr = {#0} # ok = get event (get_array_pointer arr) - | ok + | ok && arr.[0] <> 0 = Just (arr.[0]) = Nothing where |