diff --git a/exercises/sublist/Sublist.elm b/exercises/sublist/Sublist.elm
index a536680..53ce299 100644
--- a/exercises/sublist/Sublist.elm
+++ b/exercises/sublist/Sublist.elm
@@ -1,8 +1 @@
 module Sublist (..) where
-
-
-type ListComparison
-  = Equal
-  | Superlist
-  | Sublist
-  | Unequal
diff --git a/exercises/sublist/Sublist.example b/exercises/sublist/Sublist.example
index 1f2a36f..6acac34 100644
--- a/exercises/sublist/Sublist.example
+++ b/exercises/sublist/Sublist.example
@@ -1,6 +1,11 @@
 module Sublist (..) where
 
 
+version : Int
+version =
+  2
+
+
 type ListComparison
   = Equal
   | Superlist
diff --git a/exercises/sublist/SublistTests.elm b/exercises/sublist/SublistTests.elm
index 0f89598..714cc87 100644
--- a/exercises/sublist/SublistTests.elm
+++ b/exercises/sublist/SublistTests.elm
@@ -3,7 +3,7 @@ module Main (..) where
 import Task
 import Console
 import ElmTest exposing (..)
-import Sublist exposing (sublist, ListComparison(..))
+import Sublist exposing (version, sublist, ListComparison(..))
 
 
 tests : Test
@@ -11,6 +11,9 @@ tests =
   suite
     "Sublist"
     [ test
+        "the solution is for the correct version of the test"
+        (assertEqual 2 version)
+    , test
         "empty equals empty"
         (assertEqual Equal (sublist [] []))
     , test