diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index 689411c..020c0f8 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -97,7 +97,7 @@ main = do else case amt of 0 -> trunc' False 0 as acc - 4 -> trunc' False 0 as ("... " ++ acc) + 4 | length as > 3 -> trunc' False 0 as ("... " ++ acc) _ -> trunc' False (amt - 1) as (a : acc) splitOnAll arr str = splitOnAll' arr [str] |