main :: IO ()
main = do
  succeeded <- GLFW.initialize
  if succeeded
    then do
      putStrLn "Hm."
      return ()
    else return ()
main :: IO ()
main = do
  succeeded <- GLFW.initialize
  if succeeded
    then do
      putStrLn "Hm."
      return ()
    else return ()
main = do
  succeeded <- GLFW.initialize
  if succeeded
    then do
      putStrLn "Hm."
      return ()
    else return ()