createState o (Just s) (Just i) = return $ Just State.State { State.settings = s
                                                            , State.identity = i
                                                            , State.options = o
                                                            }
createState o (Just s) (Just i) = return $ Just State.State { State.settings = s
                                                            , State.identity = i
                                                            , State.options = o
                                                            }
createState o (Just s) (Just i) = return $ Just State.State { State.settings = s
                                                            , State.identity = i
                                                            , State.options = o
                                                            }