Merge pull request qfpl#73 from Errorific/level04_order

level04/Types.hs indicates the wrong next step

src/Level04/Types.hs

@@ -101,4 +101,4 @@ encodeISO8601DateTime = pack . TF.formatTime loc fmt >$< E.text
     fmt = TF.iso8601DateFormat (Just "%H:%M:%S")
     loc = TF.defaultTimeLocale { TF.knownTimeZones = [] }
 
--- | Move on to ``src/Level04/Core.hs`` next.
+-- | Move on to ``src/Level04/DB.hs`` next.