diff options
Diffstat (limited to 'src/Types.hs')
-rw-r--r-- | src/Types.hs | 4 |
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) | |||
22 | 22 | ||
23 | import Data.Default.Class | 23 | import Data.Default.Class |
24 | 24 | ||
25 | import Data.CaseInsensitive (CI) | ||
26 | |||
25 | import Control.Monad.State.Strict (MonadState(..), MonadTrans(..)) | 27 | import Control.Monad.State.Strict (MonadState(..), MonadTrans(..)) |
26 | import Control.Monad.Writer.Strict (MonadWriter, MonadTrans(..)) | 28 | import Control.Monad.Writer.Strict (MonadWriter, MonadTrans(..)) |
27 | 29 | ||
@@ -30,7 +32,7 @@ import Control.Monad.IO.Class (MonadIO) | |||
30 | import System.Console.Haskeline (InputT) | 32 | import System.Console.Haskeline (InputT) |
31 | 33 | ||
32 | 34 | ||
33 | data Entity = Entity Text (Maybe Integer) | 35 | data Entity = Entity (CI Text) (Maybe Integer) |
34 | deriving (Eq, Ord, Show) | 36 | deriving (Eq, Ord, Show) |
35 | 37 | ||
36 | type SequenceValue = Integer | 38 | type SequenceValue = Integer |