diff options
author | Roman Smrž <roman.smrz@seznam.cz> | 2023-03-22 21:47:42 +0100 |
---|---|---|
committer | Roman Smrž <roman.smrz@seznam.cz> | 2023-03-22 21:47:42 +0100 |
commit | ea38fdd4614bc8d3c5adf36932b0e5808a4cba67 (patch) | |
tree | f78f34bce6539d7ad97d09c03babed0b9be3b8cd /src/GDB.hs | |
parent | 1bff4ce6c10c762f846709578d6f036b3e45691f (diff) |
Fix non-exhaustive pattern match warnings
Diffstat (limited to 'src/GDB.hs')
-rw-r--r-- | src/GDB.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -190,7 +190,7 @@ gdbCompletion gdb (revcmd, _) = do gdbCommandRes gdb ("-complete " <> T.pack (show (reverse revcmd))) >>= \case (Done, resp) | Just (MiList matches) <- lookup "matches" resp -> do - return ("", map (\(MiString m) -> Completion (T.unpack m) (T.unpack m) False) matches) + return ("", concatMap (\case MiString m -> [Completion (T.unpack m) (T.unpack m) False]; _ -> []) matches) _ -> return ("", []) |