{-# language
    OverloadedStrings
#-}
module Rasa.Ext.Views.Internal.ActiveBar
  ( ActiveBar(..)
  ) where

import Rasa.Ext

import qualified Yi.Rope as Y

data ActiveBar = ActiveBar

instance Renderable ActiveBar where
  render width _ _ _ = return . Just $ RenderInfo (Y.replicate width "-") [Span (Range (Coord 0 0) (Coord 0 width)) (fg Red)]