free-gameでフルスクリーン表示 ref: http://qiita.com/alucky0707/items/a7eb3a14fb1de6b775ef

windowed.hs

import Data.Function
import Graphics.UI.FreeGame

main = do
  font <- loadFont "VL-PGothic-Regular.ttf"
  -- GUIParamの_windowedをFalseにするとフルスクリーンになる
  -- デフォルトはTrue
  -- （ウィンドウモードか、ってことらしい）
  -- 途中で変更は（多分）できない。
  runGame (def {_windowed = False}) $ fix $ \loop-> do
    translate (V2 50 300) $ colored black $ text font 40 "Push Q to quit"
    tick

    bracket 
    q <- keyChar 'Q'
    unless q loop