rename Hack to Unsafe plus minor

src/Graphics/Vty/Image/Internal.hs

@@ -33,7 +33,7 @@ data Image =
       }
     -- | A horizontal join can be constructed between any two images. However a HorizJoin instance is
     -- required to be between two images of equal height. The horiz_join constructor adds background
-    -- filles to the provided images that assure this is true for the HorizJoin value produced.
+    -- fills to the provided images that assure this is true for the HorizJoin value produced.
     | HorizJoin
       { part_left :: Image 
       , part_right :: Image

src/Graphics/Vty/Inline.hs

@@ -31,7 +31,7 @@ module Graphics.Vty.Inline ( module Graphics.Vty.Inline
 
 import Graphics.Vty.Attributes
 import Graphics.Vty.DisplayAttributes
-import Graphics.Vty.Inline.Hack
+import Graphics.Vty.Inline.Unsafe
 import Graphics.Vty.Terminal.Interface
 import Graphics.Vty.Terminal
 

src/Graphics/Vty/Inline/Unsafe.hs

@@ -1,4 +1,4 @@
-module Graphics.Vty.Inline.Hack where
+module Graphics.Vty.Inline.Unsafe where
 
 import Graphics.Vty.Terminal.Interface (Terminal)
 

test/benchmark.hs

@@ -32,10 +32,10 @@ main = do
         ["-h"    ] -> help
         _          -> do
             let args' = if args /= []
-                        then args
+                        then map (drop 2) args
                         else map fst benches
             -- drop the dash-dash "--"
-            results <- forM args' $ \(_ : _ : b_name) -> do
+            results <- forM args' $ \b_name -> do
                 case lookup b_name benches of
                     Just b  -> bench b_name b
                     Nothing -> fail $ "No benchmark named " ++ b_name

test/current_benchmark_results.txt

@@ -1,20 +1,11 @@
-pre-release 5.0
+no unclipped opt 5.0
+on toast
 [("no-diff-opt-0",147,8),("render-char-0",332,18),("render-char-1",277,16),("vertical-scroll-0",1503,61),("image-fuzz-0",46,3)]
 [("no-diff-opt-0",137,11),("render-char-0",470,18),("render-char-1",254,18),("vertical-scroll-0",1240,56),("image-fuzz-0",46,3)]
-release 4.7
-starting no-diff-opt-0
-user time: 226
-system time: 13
-starting render-char-0
-user time: 411
-system time: 22
-starting render-char-1
-user time: 386
-system time: 21
-starting vertical-scroll-0
-user time: 1930
-system time: 96
-starting image-fuzz-0
-user time: 1225
-system time: 52
+
+on ooyala
+pre unclipped opt
+[("no-diff-opt-0",24,3),("render-char-0",102,8),("render-char-1",41,4),("vertical-scroll-0",226,24),("image-fuzz-0",17,1)]
+
+release 4.7 on toast
 [("no-diff-opt-0",226,13),("render-char-0",411,22),("render-char-1",386,21),("vertical-scroll-0",1930,96),("image-fuzz-0",1225,52)]

vty.cabal

@@ -58,6 +58,7 @@ library
                        Graphics.Vty.Error
                        Graphics.Vty.Image
                        Graphics.Vty.Inline
+                       Graphics.Vty.Inline.Unsafe
                        Graphics.Vty.LLInput
                        Graphics.Vty.Picture
                        Graphics.Vty.Terminal
@@ -79,7 +80,6 @@ library
                        Graphics.Vty.Terminal.XTermColor
                        Graphics.Vty.Terminal.TerminfoBased
 
-  other-modules:       Graphics.Vty.Inline.Hack
 
   c-sources:           cbits/gwinsz.c
                        cbits/set_term_timing.c