module Quoridor.Helpers where import Control.Monad (liftM2) import qualified Data.Map as M import Data.Maybe (fromJust) andP :: (a -> Bool) -> (a -> Bool) -> a -> Bool andP = liftM2 (&&) rotateList :: [a] -> [a] rotateList [] = [] rotateList (x:xs) = xs ++ [x] unsafeLookup :: Ord k => k -> M.Map k a -> a unsafeLookup = (fromJust .) . M.lookup