writeSession :: Session -> String -> IO ()
writeSession session fileName =
    putJSON $ encode session
        where
          putJSON s = B.writeFile fileName s
writeSession :: Session -> String -> IO ()
writeSession session fileName =
    putJSON $ encode session
        where
          putJSON s = B.writeFile fileName s
writeSession session fileName =
    putJSON $ encode session
        where
          putJSON s = B.writeFile fileName s