diff --git a/code/week07/src/Week07/TestStateMachine.hs b/code/week07/src/Week07/TestStateMachine.hs
index fb3b10c..c6114ff 100644
--- a/code/week07/src/Week07/TestStateMachine.hs
+++ b/code/week07/src/Week07/TestStateMachine.hs
@@ -12,7 +12,7 @@
 {-# LANGUAGE TypeFamilies          #-}
 {-# LANGUAGE TypeOperators         #-}
 
-module Week07.Test where
+module Week07.TestStateMachine where
 
 import           Control.Monad              hiding (fmap)
 import           Control.Monad.Freer.Extras as Extras