playerSnippet :: Player -> String
playerSnippet p = 
  "You are in the " 
    ++ (showRelativeDirection (fromVector3 $ p^.loc)) ++ "."
    ++ case p^.holding of
         Just x -> "\nYou are holding a " ++ show x ++ "."
         _      -> []

----- Extras -----
playerSnippet :: Player -> String
playerSnippet p = 
  "You are in the " 
    ++ (showRelativeDirection (fromVector3 $ p^.loc)) ++ "."
    ++ case p^.holding of
         Just x -> "\nYou are holding a " ++ show x ++ "."
         _      -> []

----- Extras -----
playerSnippet p = 
  "You are in the " 
    ++ (showRelativeDirection (fromVector3 $ p^.loc)) ++ "."
    ++ case p^.holding of
         Just x -> "\nYou are holding a " ++ show x ++ "."
         _      -> []

----- Extras -----