missionDisplayGeneric f alleg msg = 
  pressAnyKeyScreen 
    (liftIO $ makeTextScreen (100, 500) 
        [(f, Color4 1.0 0.2 0.2 1.0, 
           intercalate "\n" (["Your current mission for " ++ alleg ++ ":", ""]
                             ++ msg ++ ["", "Press any key to continue"]))]
        (return ()))
missionDisplayGeneric f alleg msg = 
  pressAnyKeyScreen 
    (liftIO $ makeTextScreen (100, 500) 
        [(f, Color4 1.0 0.2 0.2 1.0, 
           intercalate "\n" (["Your current mission for " ++ alleg ++ ":", ""]
                             ++ msg ++ ["", "Press any key to continue"]))]
        (return ()))
missionDisplayGeneric f alleg msg = 
  pressAnyKeyScreen 
    (liftIO $ makeTextScreen (100, 500) 
        [(f, Color4 1.0 0.2 0.2 1.0, 
           intercalate "\n" (["Your current mission for " ++ alleg ++ ":", ""]
                             ++ msg ++ ["", "Press any key to continue"]))]
        (return ()))