Moved source files to src directory

src/Level.hs

@@ -0,0 +1,18 @@
+module Level ( Level(..)
+             , testLevel
+             ) where
+
+import Data.List
+
+data Level = Level
+    { levelWidth  :: !Int
+    , levelHeight :: !Int
+    } deriving (Show)
+
+
+
+testLevel :: Level
+testLevel = Level
+            { levelWidth = 10
+            , levelHeight = 10
+            }