1 files changed, 3 insertions, 1 deletions

diff --git a/src/Types.hs b/src/Types.hs
index a90e5fe..031d2d5 100644
--- a/src/Types.hs
+++ b/src/Types.hs
@@ -22,6 +22,8 @@ import Data.Text (Text)
 
 import Data.Default.Class
 
+import Data.CaseInsensitive (CI)
+
 import Control.Monad.State.Strict (MonadState(..), MonadTrans(..))
 import Control.Monad.Writer.Strict (MonadWriter, MonadTrans(..))
 
@@ -30,7 +32,7 @@ import Control.Monad.IO.Class (MonadIO)
 import System.Console.Haskeline (InputT)
 
   
-data Entity = Entity Text (Maybe Integer)
+data Entity = Entity (CI Text) (Maybe Integer)
             deriving (Eq, Ord, Show)
 
 type SequenceValue = Integer