TIM -> TI

src/Compiler/RLPC.hs

@@ -87,7 +87,7 @@ data RLPCOptions = RLPCOptions
     }
     deriving Show
 
-data Evaluator = EvaluatorGM | EvaluatorTIM
+data Evaluator = EvaluatorGM | EvaluatorTI
     deriving Show
 
 data Severity = Error

src/GM.hs

@@ -109,7 +109,7 @@ doAdmin :: GmState -> GmState
 doAdmin st = st & gmStats . stsReductions %~ succ
 
 -- the state is considered final if there is no more code to execute. very
--- simple compared to TIM
+-- simple compared to TI
 isFinal :: GmState -> Bool
 isFinal st = null $ st ^. gmCode
 

src/TI.hs

@@ -1,12 +1,12 @@
 {-|
-Module    : TIM
-Description : The Template Instantiation Machine
+Module    : TI
+Description : The Template Instantiator
 -}
 {-# LANGUAGE LambdaCase, BlockArguments #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE ViewPatterns #-}
 {-# LANGUAGE TemplateHaskell #-}
-module TIM
+module TI
     ( module Core.Examples
     , hdbgProg
     ) where