From 5b8d419b249897eebe3bd83b4d2b5aaa50e7dab1 Mon Sep 17 00:00:00 2001
From: Sam Tay <sam.chong.tay@gmail.com>
Date: Wed, 26 Dec 2018 20:18:32 -0500
Subject: [PATCH] Use explicit exports

---
 src/Tetris.hs | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

diff --git a/src/Tetris.hs b/src/Tetris.hs
index c1224ef..34d576f 100644
--- a/src/Tetris.hs
+++ b/src/Tetris.hs
@@ -1,6 +1,28 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE FlexibleInstances #-}
-module Tetris where
+module Tetris
+  (
+  -- Game state modifiers
+    initGame
+  , timeStep
+  , shift
+  , rotate
+  , hardDrop
+  -- Game state queries
+  , isGameOver
+  , hardDroppedBlock
+  , coords
+  -- Types
+  , Block(..)
+  , Coord(..)
+  , Direction(..)
+  , Game(..)
+  , Tetrimino(..)
+  -- Lenses
+  , block, board, level, nextShape, score, shape
+  -- Constants
+  , boardHeight, boardWidth, relCells
+  ) where
 
 import Data.Map (Map)
 import qualified Data.Map as M