Update Features.md and Minor Bug Fix :)

Author: drsooch

docs/features.md

@@ -17,6 +17,7 @@ You can watch demos for some of these features [below](#demos).
 - [Module name suggestions](#module-names) for insertion or correction
 - [Call hierarchy support](#call-hierarchy)
 - [Qualify names from an import declaration](#qualify-imported-names) in your code
+- [Suggest alternate numeric formats](#alternate-number-formatting)
 
 ## Demos
 
@@ -51,3 +52,7 @@ You can watch demos for some of these features [below](#demos).
 ### Qualify imported names
 
 ![Qualify Imported Names Demo](../plugins/hls-qualify-imported-names-plugin/qualify-imported-names-demo.gif)
+
+### Alternate Number Formatting
+
+![Alternate Number Format Demo](../plugins/hls-alternate-number-format-plugin/HLSAll.gif)

plugins/hls-alternate-number-format-plugin/HLSAll.gif

@@ -10,7 +10,7 @@ The plugin requires no extra setup to work. Simply place your cursor on top of a
 
 ## Demo
 
-![Alternate format suggestions](HLSInt.gif)
+![Alternate format suggestions](HLSAll.gif)
 
 ### Currently Supported GHC Extensions:
 - `BinaryLiterals`

plugins/hls-alternate-number-format-plugin/HLSInt.gif

@@ -21,7 +21,7 @@ module Ide.Plugin.Conversion (
 ) where
 
 import           Data.Char                     (toUpper)
-import           Data.List                     (delete)
+import           Data.List                     (delete, dropWhileEnd)
 import           Data.Maybe                    (mapMaybe)
 import           Data.Ratio                    (denominator, numerator)
 import           Data.Text                     (Text)
@@ -165,7 +165,9 @@ generateNumDecimal val = map (toNumDecimal val) $ take 3 $ takeWhile (val >= ) $
 toNumDecimal :: Integer -> Integer -> Text
 toNumDecimal val divisor = let (q, r) = val `quotRem` divisor
                                numExponent = length $ filter (== '0') $ show divisor
-                               in T.pack $ show q <> "." <> show r <> "e" <> show numExponent
+                               -- remove unnecessary trailing zeroes from output
+                               r' = dropWhileEnd (== '0') $ show r
+                               in T.pack $ show q <> "." <> r' <> "e" <> show numExponent
 
 toBase :: (Num a, Ord a) => (a -> ShowS) -> String -> a -> String
 toBase conv header n