Haskell rock paper scissors game

rock-paper-scissors.hs

import System.IO.Unsafe
import System.Random

-- take user input for their choice
-- random number for computer choice
-- return outcome


moves :: [String]
moves = [ "rock"
        , "paper"
        , "scissors" ]

cChoice :: String
cChoice = moves!!unsafePerformIO (getStdRandom (randomR (0, 2)))

getOut :: String -> String -> String
getOut u c
    | u == c                            = draw
    | u == "rock" && c == "paper"       = cWin
    | u == "rock" && c == "scissors"    = uWin
    | u == "paper" && c == "rock"       = uWin
    | u == "paper" && c == "scissors"   = cWin
    | u == "scissors" && c == "rock"    = cWin
    | u == "scissors" && c == "paper"   = uWin
    | otherwise                         = err
    where
        draw = "Draw! You both picked " ++ u ++ "."
        uWin = "You win! You picked " ++ u ++ " while the computer picked " ++ c ++ "."
        cWin = "You lost! You picked " ++ u ++ " while the computer picked " ++ c ++ "."
        err  = "Error: that move doesn't exist."

main :: IO ()

main = do
    putStrLn "Do you pick rock, paper, or scissors?"
    uChoice <- getLine
    putStrLn (getOut uChoice cChoice)