diff --git a/haskellscrabble.cabal b/haskellscrabble.cabal
--- a/haskellscrabble.cabal
+++ b/haskellscrabble.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                haskellscrabble
-version:             0.1.0.1
+version:             0.1.0.2
 synopsis:            A scrabble library capturing the core game logic of scrabble.
 description:         A scrabble library which enforces legal transitions between moves. Intended to facilitate the development of a playable game.
 homepage:            http://www.github.com/happy0/haskellscrabble
diff --git a/src/Wordify/Rules/Board.hs b/src/Wordify/Rules/Board.hs
--- a/src/Wordify/Rules/Board.hs
+++ b/src/Wordify/Rules/Board.hs
@@ -13,6 +13,9 @@
   import Data.List.Split
   import Data.List
 
+  instance Show Board where
+    show = prettyPrint
+
   {- |
     Returns all the squares on the board, ordered by column then row.
   -}
@@ -62,17 +65,17 @@
   prettyPrint :: Board -> String
   prettyPrint board = rowsWithLabels ++ columnLabelSeparator ++ columnLabels
     where
-      rows = transpose $ chunksOf 15 $ map (squareToString . snd) $ allSquares board
-      rowsWithLabels = concatMap (\(rowNo, row) -> (rowStr rowNo) ++ concat row ++ "\n") $ Prelude.zip [1 .. ] rows
+      rows = transpose . chunksOf 15 . map (squareToString . snd) . allSquares
+      rowsWithLabels = concatMap (\(rowNo, row) -> (rowStr rowNo) ++ concat row ++ "\n") . Prelude.zip [1 .. ] $ (rows board)
 
       rowStr :: Int -> String
       rowStr number = if number < 10 then ((show number) ++ " | ") else (show number) ++ "| "
       columnLabelSeparator = "  " ++ (Prelude.take (15 * 5) $ repeat '-') ++ "\n"
-      columnLabels = "      " ++ (concat $ Prelude.take (15 *2) $ intersperse "    " $ map ( : []) ['A' .. ])
+      columnLabels = "      " ++ (concat $ Prelude.take (15 * 2) . intersperse "    " . map ( : []) $ ['A' .. ])
 
       squareToString square = 
         case (tileIfOccupied square) of
-          Just sq -> maybe " [_] " (\lt -> " [" ++ lt : "] ") $ tileLetter sq
+          Just sq -> maybe " |_| " (\lt -> " |" ++ lt : "| ") $ tileLetter sq
           Nothing -> 
             case square of
               (Normal _) -> "  N  "
diff --git a/src/Wordify/Rules/Board/Internal.hs b/src/Wordify/Rules/Board/Internal.hs
--- a/src/Wordify/Rules/Board/Internal.hs
+++ b/src/Wordify/Rules/Board/Internal.hs
@@ -4,4 +4,4 @@
     import Wordify.Rules.Square
     import qualified Data.Map as Map
 
-    data Board = Board (Map.Map Pos Square) deriving (Show, Eq)
+    data Board = Board (Map.Map Pos Square) deriving (Eq)